Aanpassen Timestamp macro naar datum vandaag

[peter59]

Hallo beste helpers

Ik tracht om een Timestamp macro aan te passen naar de datum van vandaag().
Voor een maand lukt onderstaande macro wel maar in een jaarkalender niet.
Wat dient er aangepast te worden? Zelf heb ik al gestoeid met TODAY() maar helaas.

Sub TimeStamp()
 Cells(2, 4).Offset(Day(Now), 3 + (Cells(2, 4).Offset(Day(Now), 1) = "") * 2) = Time
End Sub

Mvg
Peter

 

[alphamax]

Cells(2, 4).Offset(Day(Now), 3 + (Cells(2, 4).Offset(Day(Now), 1) = "") * 2) = [COLOR="#FF0000"]Date[/COLOR]

 

[peter59]

Hallo Alphamax

Vooraleerst dank voor het meedenken maar helaas is dit niet de bedoeling.
Er dient een tijdsweergave (stempel) op de dag van vandaag (7 okt) gezet te worden.
Ik heb een voorbeeldje toegevoegd.
Hopelijk maakt dit het e.e.a. duidelijker.

Mvg
Peter

 

[VenA]

Sub TimeStamp()
  Application.EnableEvents = False
  Dim r As Range
  Set r = Cells(Date - [d3] + 3, 5)
  If r = "" Then r = Time Else r.Offset(, 2) = Time
  Application.EnableEvents = True
End Sub

Alle formules kunnen veel eenvoudiger

tijd in: =IF(E3="";"";MAX($A$1;ROUND(E3/"0:15";0)*"0:15"))

tijd uit: =IF(G4="";"";CEILING(G4;"0:05"))

pauze: =IF(F3="";"";"0:30"*(O3<>"Nee"))

Voor de werktijd ook maar ik die begrijp ik niet helemaal.

 

[peter59]

Hallo VenA

Heel hartelijk dank voor je support.
Ik ga hier eens verder induiken. Het ziet er verdomst goed uit.
Wordt vervolgd.
Wederom voor nu, nogmaals dank.
Opmerking: Ik vraag mij af hoe hele vele van jullie helpers, waaronder jij het e.e.a. voor elkaar krijgen.
CHAPEAU!!!

Mvg
Peter

 

[HSV]

Sub TimeStamp()
 Application.EnableEvents = False
  Cells(2, 4).Offset(DatePart("y", Date), 3 + (Cells(2, 4).Offset(DatePart("y", Date), 1) = "") * 2) = Time
 Application.EnableEvents = True
End Sub

of:

Sub TimeStamp()
 Application.EnableEvents = False
  Cells(2, 4).Offset(DateDiff("d", [d3], Date) + 1, 3 + (Cells(2, 4).Offset(DateDiff("d", [d3], Date) + 1, 1) = "") * 2) = Time
 Application.EnableEvents = True
End Sub

of:

Sub TimeStamp()
 Application.EnableEvents = False
  Cells(3, 4).Offset(DateDiff("d", [d3], Date), 3 + (Cells(3, 4).Offset(DateDiff("d", [d3], Date), 1) = "") * 2) = Time
 Application.EnableEvents = True
End Sub

meerdere mogelijkheden

 

[VenA]

In reactie op

Opmerking: Ik vraag mij af hoe hele vele van jullie helpers, waaronder jij het e.e.a. voor elkaar krijgen.

Mijn kennis heb ik opgedaan door actief mee te helpen op fora. Als ik een vraag zie waar ik een oplossing denk te weten reageer ik daarop, vervolgens zijn er weer anderen die een beter idee hebben en dat probeer ik dan te onthouden

[Edit] zie #6. Dit is een andere benadering en die ga ik dan eens bestuderen. Zo leren helpers ook weer van andere helpers.

 

[snb]

Of zo:

Private Sub CommandButton2_Click()
  Application.EnableEvents = False

  Cells(3, 5).Offset(DatePart("y", Date) - 1, -2 * (Cells(3, 5).Offset(DatePart("y", Date) - 1) <> "")) = Time

  Application.EnableEvents = True
End Sub

 

[route99]

[Edit] zie #6. Dit is een andere benadering en die ga ik dan eens bestuderen. Zo leren helpers ook weer van andere helpers.

Zo bestudeer ik ook oplossingen die via Google te voorschijn komen. Zo heb ik mijn VBA geleerd en gebruk jet nu heel veel in MS Access.
Als je eenmaal de stap gezet hebt en een aantal problemen opgelost hebt, dan gaat het in principe steeds sneller steeds beter.
Je herkent de problemen veel eerder dus de kans dat je zelf oplossingen verzint wordt steeds groter!

Succes verder.

 

[snb]

Ik ben gewoon systematisch met een boek van voren naar achteren begonnen, en heb later daar andere boeken aan toegevoegd bijv. Excel 2007 VBA; Green, Bullen, Bovey, Alexander.

Maar de F1 en F2 toetsen in de VBEditor zijn uiteindelijk de bronnen die het dichtst bij liggen.

En vooral: neem geen enkele code 'at face value'; test hem en vraag je af: 'kan dat niet eenvoudiger'
Er is nl. veel clumsy coding in omloop op het Internet.

 

[snb]

=if(e282="";"";max(a1;floor(e282;1/288)))

 

[peter59]

Hallo allemaal

Heel, heel hartelijk dank voor deze toevoegingen.
Ik sta hier versteld van.
Ik ga dit eens bestuderen én laten bezinken.
Alle oplossingen ga ik eens toepassen in het origineel.

Nogmaals, heel hartelijk dank voor de aangeboden mogelijkheden.

Mvg
Peter