Excel Macro knop maken die tijd invoert

Status
Niet open voor verdere reacties.
W

Witveertje1

Gebruiker
Lid geworden
28 nov 2013
Berichten
30
Hallo
ik heb een knop kunnen maken die als je er op klikt dat de tijd wordt ingegeven op de cel vb A1, nu zou ik graag willen dat telkens je er opdrukt dat de tijd de rij eronder komt
bedankt
Private Sub CommandButton1_Click()
Range("E2").Value = Date
CommandButton1.Visible = true
End Sub
 
Code: 
Private Sub CommandButton1_Click()
[COLOR=#0000ff]cells(rows.count,5).end(xlup).offset(1) = time[/COLOR]
End Sub
 
Zoiets?
(verander het rode gedeelte),
Code: 
Private Sub CommandButton1_Click()
With Sheets("[COLOR="#FF0000"]Blad1[/COLOR]")
LastRow = .Range("[COLOR="#FF0000"]A[/COLOR]" & Rows.Count).End(xlUp).Row
.Cells(LastRow + 1, "[COLOR="#FF0000"]A[/COLOR]").Value = Now
End With
End Sub
 
@dotchie,
Als de gegevens in hetzelfde blad blijven als waar de commandbutton staat, heb je geen verwijzing nodig naar het blad.

en:
now = datum+tijd
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan