Při změne v buňce zapiš do druhé Vyřešeno

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

Moderátor: Mods_senior

luko02420
Level 2
Level 2
Příspěvky: 165
Registrován: únor 12
Pohlaví: Nespecifikováno

Při změne v buňce zapiš do druhé

Příspěvekod luko02420 » 29 dub 2020 09:06

Dobrý den, potřeboval bych pomoc s úpravou následujícího makra.
Používám proceduru na změnu v bunce viz níže. Funguje tak, že když se zmení obsah bunky ve sloupci D, tak do sloupce A stejneho radku mi zapise datum.
Potreboval bych to rozsirit jeste o jedno pravidlo a to tak, ze pri zmene ve sloupci D, se do sloupce P ve stejnem rádku, vlozi hodnota z bunky Q1.
Dekuji vsem za pomoc.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
' zapsání do buňky
Application.EnableEvents = True

If Target.Column = 4 Then
    i = Target.Row
   Cells(i, 1).Value = Format$(Now, "dd/mm/yyyy ")
End If
End Sub



Reklama
Uživatelský avatar
Grimm
Level 1
Level 1
Příspěvky: 96
Registrován: září 17
Pohlaví: Muž

Re: Při změne v buňce zapiš do druhé

Příspěvekod Grimm » 29 dub 2020 13:03

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        i = Target.Row
       Cells(i, 1).Value = Format$(Now, "dd/mm/yyyy ")
       Cells(i, 16).Value = Cells(1, 17).Value
    End If
End Sub

luko02420
Level 2
Level 2
Příspěvky: 165
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Při změne v buňce zapiš do druhé  Vyřešeno

Příspěvekod luko02420 » 29 dub 2020 13:47

Děkuji funguje perfektně.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Zapojení routeru 3 jako druhé AP?
    od Fanynek123 » 15 bře 2020 15:36 » v Sítě - hardware
    2
    736
    od Fanynek123
    16 bře 2020 19:24
  • Podbarvení buněk na základě hodnoty v buňce
    od luko02420 » 03 dub 2020 03:42 » v Kancelářské balíky
    2
    187
    od luko02420
    03 dub 2020 07:45
  • Excel (vba) - změna v buňce spustí makro
    od Andrea320 » 29 říj 2019 06:49 » v Kancelářské balíky
    5
    1009
    od X
    15 lis 2019 10:57
  • Excel - makro na sledování změny v buňce
    od Joselinne » 04 lis 2019 20:57 » v Kancelářské balíky
    0
    806
    od Joselinne
    04 lis 2019 20:57
  • monitor naběhne vždy až na druhé zapnutí PC
    od stasacz » 24 led 2020 18:06 » v Problémy s hardwarem
    10
    605
    od stasacz
    28 led 2020 20:03

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

Kdo je online

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