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

[luko02420]

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

[Grimm]

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]

Děkuji funguje perfektně.