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

• #48091 Delila_1 veterán Fire/SOUL/CD #48090

  Új Válasz 2021-12-22 20:10:21 #48091

  Ú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 Fire/SOUL/CD #48090 üzenetére

  Kiküszöbölve.
  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 1 And Target > "" Then Cells(Target.Row, 2) = Date
        If Target.Column = 1 And Target = "" Then Cells(Target.Row, 2) = ""
    End If
End Sub

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