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

• #45796 Delila_1 veterán karlkani #45793

  Új Válasz 2021-01-17 14:09:27 #45796

  Ú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 karlkani #45793 üzenetére

  Szia!
  Rendeld a lapodhoz:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G2:G39]) Is Nothing Then
If Target = "" Then
Range(Target.Address).Offset(, 1) = ""
Else
Range(Target.Address).Offset(, 1) = Date
End If
End If
End Sub

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