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

• #48103 Delila_1 veterán Jonie #48102

  Új Válasz 2021-12-24 09:01:42 #48103

  Ú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 Jonie #48102 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        If Application.WorksheetFunction.CountA(Range(Target.Address)) = Target.Count Then
            Range(Target.Address).Offset(, 1) = Date
        Else
            Range(Target.Address).Offset(, 1) = ""
        End If
        Application.EnableEvents = True
    End If
End Sub

  Ha nem az első oszlopba írsz adatot, akkor az If Target.Column = 1 Then sorban kell az 1-et átírnod az oszlop számára. Ha pedig a dátumot nem a következő oszlopba íratnád, akkor a Range(Target.Address).Offset(, 1) = "" sorban kell az 1-et annyira átírni, ahány oszloppal jobbra szeretnéd megkapni.

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