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
-
- Level 2
- Příspěvky: 160
- Registrován: září 17
- Pohlaví:
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
-
- 8
- 1825
-
od Alferi
08 pro 2022 18:10
-
- 10
- 2231
-
od satik
13 pro 2022 18:24
-
- 22
- 2075
-
od Kvp2
12 lis 2023 20:39
-
- 6
- 1486
-
od Karrex
14 dub 2023 14:09
-
-
Žádost o pomoc s upgrade HP 830 G5
od Peťa » 13 úno 2023 21:19 » v Rady s výběrem hw a sestavením PC - 4
- 570
-
od zeus
15 úno 2023 11:56
-
Kdo je online
Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů