2 macro's om cel te vullen met "Tijdstip nu" zitten elkaar in de weg.

[Louw]

Best forum,

Ik heb twee knoppen toegevoegd met elk een macro er onder om een bepaalde cel te vullen met Tijdstip=nu.
Als ik 1 macro heb werkt het prima. Maar zodra ik 2 macro's heb gaat het fout. Als ik de knoppen gebruik, worden beide cellen gevuld tijdstip nu.
Wat ik dus wil is als ik op knop 1 klik de begintijd wordt gevuld met tijdstip nu en als ik tien minuten later op knop 2 klik de eindtijd wordt gevuld met tijdstip nu.
Alvast bedankt.

' Begintijd
'

'
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("G5").Select
End Sub

' Eindtijd
'

'
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("G6").Select
End Sub

 

[ExcelAmateur]

Test dit eens,

Sub Begintijd()
  With Range("G5")
     .Formula = "=NOW()"
  End With
End sub

 

[edmoor]

Of:

Sub Begintijd()
    With Range("G5")
        .Value = Time()
        .NumberFormat = "h:mm:ss"
    End With
End Sub

Of met datum:

Sub Begintijd()
    With Range("G5")
        .Value = Now()
        .NumberFormat = "DD-MM-YYYY h:mm:ss"
    End With
End Sub

 

[Louw]

Helaas ik heb ze beiden gebruikt. Ook de ene voor begintijd en de andere voor eindtijd. Het lijkt erop dat zodra de macro's worden gebruikt alle cellen met =Now() worden vernieuwd.

 

[Louw]

Gelukt! IK gebruik de formule =NOW() om het tijdstip te gebruiken en kopier en plak de tijd als waarde

Sub Begintijd()
'
' Begintijd Macro
'

'
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("G5").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
End Sub

 

[edmoor]

Cellen met =NOW() worden altijd vernieuwd.
Daarom staat dat ook niet in de code die ik plaatste.

Je hele code van Select, Copy en Paste is nergens voor nodig.

 

[Louw]

Heb het dan niet goed getest blijkbaar. Maar ik ben er nu met een omweggetje gekomen. Thanks

 

[Louw]

Heb je korte code nog weer geprobeerd en het werkt.

 With Range("G5")
        .Value = Time()
        .NumberFormat = "h:mm:ss"
    End With
End Sub

 

[VenA]

Volgens mij gaat het zo ook goed.

Range("G5") = Format(Now, "h:mm:ss")

 

[edmoor]

Niet aan gedacht, maar klopt helemaal :thumb:

 

[snb]

Voor de zekerheid:

cells(5,7)= Format(Now, "'h:mm:ss")

 

[VenA]

Een beetje afhankelijk van de celeigenschappen natuurlijk.

 

[Louw]

VenA wat is het voordeel van jouw code? Gewoonweg omdat ie korter en dus sneller?

 

[VenA]

Een korter code is niet per definitie sneller maar vaak wel omdat elke stap in de code doorlopen moet worden. Het meest vertragend zijn de handeling die je in het werkblad doet. In mijn code wordt de cel maar 1 keer 'aangesproken'; ga naar G5 en zet daar de huidige tijd in het juiste formaat neer.

In de andere iets minder korte code is het meer van: we gaan wat met G5 doen aha de huidige tijd er inzetten oh en ook nog het formaat aanpassen. Maar daar merk je in dit geval niets van.

In jouw code ga je nog een stap verder door eerst de cel te selecteren. Als iets een code traag maakt is dat het gebruik van Select wel.

Voor in een testbestandje om 1000 cellen om het verschil te zien.

Sub VenA_select()
For j = 1 To 1000
  Cells(j, 1).Select
  ActiveCell = Format(Now, "h:mm:ss")
Next j
End Sub

Sub VenA()
  Cells(1, 2).Resize(1000) = Format(Now, "h:mm:ss")
End Sub