Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Werkuren ingeven  (gelezen 4289 keer)

0 leden en 1 gast bekijken dit topic.

Offline Tech8

  • Lid
  • *
  • Berichten: 14
  • Geslacht: Man
Werkuren ingeven
« Gepost op: 27 november 2023, 18:47:47 »
Beste,

in voorbeeld bestand zie je een formuliertje dat moet ingevuld worden bij begin werk en bij einde werk.
Graag had ik een VBA code gevonden die de cursor één cel naar rechts verplaatst en dan daar de invoer van het formulier plaatst en dit voor 3 tijdvakken per dag (C2-D2 _ E2-F2 _ G2-H2)
Als deze zijn ingevuld, moet het herbeginnen op C3-D3 enz.
Wel telkens met hetzelfde formuliertje.

Dank bij voorbaat.

Tech8
Office 365
Office 2019
Photoshop CC 2023
Filmora 13

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.190
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Werkuren ingeven
« Reactie #1 Gepost op: 29 november 2023, 13:14:28 »
Hallo Tech8,

Welkom op Oplossing.be  :)

Het spijt me erg dat je vraag even is blijven liggen. Soms zijn alle vrijwilligers bezig, of hebben ze persoonlijk werk.

Ik heb hier toch al even wat code geschreven om de rijen af te gaan. Probeer die te inplanteren in jou code:

Sub vind()
Rij = Blad1.Range("C35").End(xlUp).Row   
Kol = Blad1.Range("I2").End(xlToLeft).Column 
If Kol = 8 Then
Blad1.Cells(Rij + 1, 3).Select     ' Als kolom A en/of B moeten ingevuld worden voor ingave uren, 3 veranderen in 1 (of 2?)
End If
End Sub

Deze code springt van 2 de rij, in-uit, in-uit, in-uit om dan naar de volgende rij kolom C te gaan.
Ik weet niet of er eerst dat moet komen in kolom A en B alvorens er uren worden ingevuld?
In dat geval moet de code wat aangepast worden.

Ik probeer straks nog bovenstaande in te voegen in jou  code.

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.190
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Werkuren ingeven
« Reactie #2 Gepost op: 29 november 2023, 13:48:21 »
Hallo Tech8,

Deze code schijnt goed te werken:

Private Sub CmdB1_Click()
   
    Rij = Blad1.Range("C35").End(xlUp).Row
    MsgBox "Rij =" & Rij
    Kol = Blad1.Range("I2").End(xlToLeft).Column
    MsgBox "Kolom =" & Kol
     If Kol = 8 Then
           Blad1.Cells(Rij + 1, 3) = TxtB1.Value
        Else
           Blad1.Cells(Rij, Kol + 1) = TxtB1.Value
     End If
    TxtB1.Value = ""

End Sub

Test ze even en geef eventuele problemen door.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Tech8

  • Lid
  • *
  • Berichten: 14
  • Geslacht: Man
Re: Werkuren ingeven
« Reactie #3 Gepost op: 29 november 2023, 16:34:14 »
Hey SoftAid,

Deze code werkt, maar ik heb ondertussen ook al een werkende code gevonden.
Nu kan ik kiezen uit twee code's.

toch al bedankt om te willen mee denken.

Vriendelijke groeten,

Tech8
Office 365
Office 2019
Photoshop CC 2023
Filmora 13

Offline Tech8

  • Lid
  • *
  • Berichten: 14
  • Geslacht: Man
Re: Werkuren ingeven
« Reactie #4 Gepost op: 29 november 2023, 16:53:20 »
Beste mede leden.

In bijlage een werkende sheet, voor wie het zou willen gebruiken.
Is wel maar één maand.

Succes ermee.

Tech8
Office 365
Office 2019
Photoshop CC 2023
Filmora 13

Offline FrankB

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
Re: Werkuren ingeven
« Reactie #5 Gepost op: 31 december 2023, 20:02:02 »
Hallo iedereen
Heb het bestand van Tech8 bekeken en vond dit eigenlijk een zeer interessante bijlage
Alleen vond ik het jammer dat je maar 1 gegeven per keer kan invoegen (dus eigenlijk 6 maal per dag)
Daarom bijgevoegd een beetje aangepast met een formulier dat ik gebruik voor mij werk.
Nadeel hiervan is dan weer dat het formulier telkens een rij naar beneden gaat ,je moet dus de gewerkte tijd voor de ganse dag onthouden en pas op het einde van de werkdag ingeven
Moest iemand van de leden hier zich geroepen voelen om van de twee opties 1 te maken zou geweldig zijn  _/-\o_ _/-\o_
Ga zelf ook proberen dit voor mekaar te krijgen
Als laatste nog een kleine opmerking:De code die ik gebruik is door de jaren heen bij elkaar gesprokkeld op verschillende
helpdesks ,zodat ik eigenlijk niet meer weet welke waarvandaan komt , moest iemand hier iets van zichzelf in herkennen dan duizendmaal dank daarvoor
Bij deze wens ik jullie allemaal een gelukkig en voorspoedig 2024
Microsoft Office 365
Editie   Windows 11 Home
Versie   22H2
Build van besturingssysteem   22621.2861
Ervaring   Windows Feature Experience Pack 1000.22681.1000.0

Offline mvdvlist

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: Werkuren ingeven
« Reactie #6 Gepost op: 01 januari 2024, 16:30:05 »
Waarom niet alleen IN UIT PAUZE en in de kolom GEWERKT de uren met een formuletje?

Offline FrankB

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
Re: Werkuren ingeven
« Reactie #7 Gepost op: 01 januari 2024, 19:43:03 »
@mvdvlist
Snap je redenering wel en zou ook de simpelste oplossing zijn als je negen tot vijf job hebt
In mijn geval (ben begeleider uitzonderlijk vervoer) kan het gebeuren dat ik om middernacht begin met werken tot bv 6 uur
dan om 10 uur terug begin tot 15 uur om vervolgens nog eens te herstarten om 21 uur tot middernacht
De uren tussen 6 h en 10 h en tussen 15 h en 21 h zijn uiteraard niet betaald ,je ziet dat je dan met twee kolommetjes niet toekomt
Vervolgens moeten deze uren ook nog eens opgesplitst worden in uren die aan 100% ,135% ,150% ,200% betaald worden
In het bestand dat ik gebruik is de dag zelfs verdeeld in vier tijdsblokken om te kunnen voldoen aan de zeer onregelmatige werkuren
Misschien verduidelijkt dit misschien een beetje de opzet van het formulier
Groetjes
Microsoft Office 365
Editie   Windows 11 Home
Versie   22H2
Build van besturingssysteem   22621.2861
Ervaring   Windows Feature Experience Pack 1000.22681.1000.0

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 176
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Re: Werkuren ingeven
« Reactie #8 Gepost op: 02 januari 2024, 14:51:59 »
Daar valt wel een mouw aan aan te passen.
Twee vraagjes.
Als je na een shift de uren invult hoef je uren niet te onthouden, mijn eerste vraag vul je de uren in na iedere shift?
Vraag 2
Hoe gebeurd deze opsplitsing, op welke basis?
Citaat
Vervolgens moeten deze uren ook nog eens opgesplitst worden in uren die aan 100% ,135% ,150% ,200% betaald worden
Wel een paar dagen geduld hebben, ik werk overdag.
Groetjes,Della

 


www.combell.com