Stránka 1 z 1

Pomoc se zápisem

Napsal: 09 dub 2022 13:58
od junis
Mám zápis vyplnění bunky ve sloupci 17 zapíše datum a čas vyplnění do bunky ve sloupci 18. To funguje. Potřeboval bych ale upravit, aby při vymazání bunky ve sloupci 17 smazalo i datum v příslušném řádku ve sloupci 18. Díky

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(Target.Row, 17).Value = "1" And Cells(Target.Row, 18).Value = "" Then
Cells(Target.Row, 18) = Now
End If
End Sub

Re: Pomoc se zápisem  Vyřešeno

Napsal: 09 dub 2022 14:45
od Grimm

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(Target.Row, 17).Value = "1" And Cells(Target.Row, 18).Value = "" Then
    Cells(Target.Row, 18) = Now
ElseIf Cells(Target.Row, 17).Value = "" And Not IsEmpty(Cells(Target.Row, 18).Value) Then
    Cells(Target.Row, 18) = ""
End If
End Sub