Új hozzászólás Aktív témák

• #41736 Delila_1 veterán jackal79 #41731

  Új Válasz 2019-09-12 14:15:48 #41736

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz jackal79 #41731 üzenetére

  Laphoz rendeld a lenti, eseményvezérelt makrót (a módját lásd a Téma összefoglalóban):

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.WorksheetFunction.CountA(Rows(Target.Row)) > 0 Then
Application.EnableEvents = False
Range("A" & Target.Row) = Date
Application.EnableEvents = True
End If
End Sub

  Az egyes sorok bármelyik cellájára kattintva az A-ban megjelenik a mai dátum, de csak akkor, ha a sorban bármelyik cellában van már adat. Ha másik oszlopba kell a dátum, akkor a

  Range("A" & Target.Row) = Date

  sorban írd át az "A"-t.

Új hozzászólás Aktív témák