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: 30
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: 152
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 SQL
    od BeHappy » 07 pro 2021 17:19 » v Programování a tvorba webu
    3
    612
    od petrmet
    08 pro 2021 08:05
  • Pomoc při výběru HW na PC do 50 000
    od lepid » 13 zář 2021 16:52 » v Rady s výběrem hw a sestavením PC
    10
    518
    od lepid
    13 zář 2021 18:32
  • Pomoc s vylepšením
    od NilooCZ » 08 lis 2021 11:24 » v Rady s výběrem hw a sestavením PC
    6
    346
    od NilooCZ
    09 lis 2021 12:49
  • Pomoc s naceněním PC
    od creeperman » 22 kvě 2022 14:59 » v Vše ostatní (hw)
    2
    492
    od petr22
    22 kvě 2022 18:51
  • Pomoc s VBS skriptem
    od wolfie » 12 kvě 2022 23:12 » v Vše ostatní (sw)
    3
    785
    od ITCrowd
    13 kvě 2022 19:42

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

Kdo je online

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