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
Pomoc se zápisem Vyřešeno
Re: Pomoc se zápisem Vyřešeno
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
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 6
- 2109
-
od Karrex
Zobrazit poslední příspěvek
14 dub 2023 14:09
-
- 22
- 2624
-
od Kvp2
Zobrazit poslední příspěvek
12 lis 2023 20:39
-
- 1
- 1179
-
od Zivan
Zobrazit poslední příspěvek
25 dub 2023 15:07
-
- 0
- 1380
-
od showpayne
Zobrazit poslední příspěvek
07 srp 2023 19:08
-
- 8
- 1497
-
od martin.100
Zobrazit poslední příspěvek
02 zář 2023 18:33
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti