Pomoc se zápisem Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

junis
nováček
Příspěvky: 39
Registrován: březen 22
Pohlaví: Muž
Stav:
Offline

Pomoc se zápisem

Příspěvekod junis » 09 dub 2022 13:58

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

Reklama
Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Grimm » 09 dub 2022 14:45

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
  • Pomoc s výběrem HW
    od adelafridrichova » 13 dub 2023 20:41 » v Rady s výběrem hw a sestavením PC
    6
    2109
    od Karrex Zobrazit poslední příspěvek
    14 dub 2023 14:09
  • Pomoc se sestavením PC 45-50K
    od Kvp2 » 03 lis 2023 23:27 » v Rady s výběrem hw a sestavením PC
    22
    2624
    od Kvp2 Zobrazit poslední příspěvek
    12 lis 2023 20:39
  • Pomoc s výběrem SSD disku
    od eli125 » 25 dub 2023 12:37 » v Rady s výběrem hw a sestavením PC
    1
    1179
    od Zivan Zobrazit poslední příspěvek
    25 dub 2023 15:07
  • pomoc v oblasti grafiky
    od showpayne » 07 srp 2023 19:08 » v Vše ostatní (Off topic)
    0
    1380
    od showpayne Zobrazit poslední příspěvek
    07 srp 2023 19:08
  • Pomoc s instalací Windows Příloha(y)
    od volvo1971 » 02 zář 2023 10:00 » v Windows 11, 10, 8...
    8
    1497
    od martin.100 Zobrazit poslední příspěvek
    02 zář 2023 18:33

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti