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
-
- 22
- 2815
-
od Kvp2
Zobrazit poslední příspěvek
12 lis 2023 20:39
-
- 0
- 1496
-
od showpayne
Zobrazit poslední příspěvek
07 srp 2023 19:08
-
- 8
- 1603
-
od martin.100
Zobrazit poslední příspěvek
02 zář 2023 18:33
-
- 5
- 4300
-
od KubaCZE
Zobrazit poslední příspěvek
20 úno 2024 11:05
-
- 1
- 1374
-
od zeus
Zobrazit poslední příspěvek
04 pro 2023 22:07
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 29 hostů