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 PC
    od CoryCz » 08 pro 2022 07:02 » v Rady s výběrem hw a sestavením PC
    8
    1825
    od Alferi
    08 pro 2022 18:10
  • Pomoc s výběrem GPU
    od geekercz » 12 pro 2022 18:01 » v Rady s výběrem hw a sestavením PC
    10
    2231
    od satik
    13 pro 2022 18:24
  • 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
    2075
    od Kvp2
    12 lis 2023 20:39
  • 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
    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

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

Kdo je online

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