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ž

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: 160
Registrován: září 17
Pohlaví: Muž

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
    1941
    od Karrex
    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
    2453
    od Kvp2
    12 lis 2023 20:39
  • Pomoc s instalací Windows
    od volvo1971 » 02 zář 2023 10:00 » v Windows 11, 10, 8...
    8
    1387
    od martin.100
    02 zář 2023 18:33
  • pomoc v oblasti grafiky
    od showpayne » 07 srp 2023 19:08 » v Vše ostatní (Off topic)
    0
    1252
    od showpayne
    07 srp 2023 19:08
  • Pomoc s výběrem Linuxu
    od Luis » 02 pro 2023 14:33 » v LiNuX a ostatní alternativní OS
    5
    3631
    od KubaCZE
    20 úno 2024 11:05

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host