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

• #36427 Delila_1 veterán Talala #36426

  Új Válasz 2017-11-01 06:32:53 #36427

  Ú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 Talala #36426 üzenetére

  Ezt egy rövid, laphoz rendelt makróval (lásd a Téma összefoglalót) lehet elérni.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
Cells(Target.Row, "B") = Date
End If
End Sub

  Az If Target.Column = 1 jelzi a makrónak, hogy az első (A) oszlopba írás esetén írja be a dátumot.
  Ha nem a B oszlopba akarod íratni, a Cells(Target.Row, "B") = Date sorban a "B" helyére írd a céloszlop betűjelét.

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