Při změne v buňce zapiš do druhé
Napsal: 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.
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