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
- 3809
-
od Kvp2
Zobrazit poslední příspěvek
12 lis 2023 20:39
-
- 0
- 2225
-
od showpayne
Zobrazit poslední příspěvek
07 srp 2023 19:08
-
- 3
- 1235
-
od filipo88
Zobrazit poslední příspěvek
16 led 2024 17:59
-
-
Pomoc / Stavění PC do 20K / Nováček Příloha(y)
od blatantq » 16 pro 2023 18:38 » v Rady s výběrem hw a sestavením PC - 32
- 1736
-
od Martab
Zobrazit poslední příspěvek
26 pro 2023 11:04
-
-
- 6
- 1016
-
od Vlada47
Zobrazit poslední příspěvek
13 úno 2024 18:00
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 16 hostů