kopyala yapıştır olarak girdiğim birden çok verinin karşılığına tarih değerini atama

[u.L.a.s]

aşağıdaki kod ile bir sütunda veri olarak tamamlandı yazınca o yazdığım hücrenin bağlı olduğu satırda başka bir hücreye o günün tarihini yazdırıyorum

sorum şu şekilde.

ben V sütununda tamamlandı verisini tek tek yazmıyorum bazen tamamlandıverisini kopyalayıp aşağıya doğru birden çok hücreyi seçili hale getirip tamamlandı verisini yapıştır diyorum. işte tam burada kod hata veriyor. kopyala yapıştır yaptığım hücrelerin hangisiyse o hücrelerin bağlı olduğu satırdaki AA sütunundaki hürelere bugünün tarihini nasıl yazdırabilirim bilgilerinizi rica ederim

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("V:V")) Is Nothing Then
    If Target.Value = "Tamamlandı" Then
        
        Cells(Target.Row, "AA") = Date
    Else
        Cells(Target.Row, "AA") = ""
        'Cells(Target.Row, "P") = ""
    End If
End If
End Sub

 

[hmtstc]

Merhaba

Benzer bir sorunu yaşamıştım

Aşağıdaki konuda bulabilirsiniz

Son değiştirilen hücreyi bulmak

Merhaba arkadaşlar, bir tablom var ve aşağıdaki formülle tablodaki seçili alandaki değişiklik durumunda 1. sütuna "eksik" yazdırmaya çalışıyorum. ancak değişimdeki 2 koşulu kontrol etmesini istiyorum. 1.si ilk değer ile son değeri kıyaslayacak ve aynı ise "eksik" yazmayacak ! 2. si ise...

www.excel.web.tr