Aşağıya doğru bş hücreye kadar veriyi kopyalama

[u.L.a.s]

Merhabalar

Aşağıdaki kod düzeneğimde 1. sütunda çift tıklayınca bugünün tarihini yazıyor.

Excel sayfamda bu tarihi A2 den itibaren aşağıya doğru B sütununda boş hücreye kadar aynı tarihi yazdırmak istiyorum.

Yani ben A2 ye çift tıklayınca bugünün tarihi yazacak ama işte Atıyorum B25 e kadar satır satır veri var. o zaman A25 e kadar bugünün tarihini yazması lazım. B26 boş olduğu için artık orada duracak ve tarih yazmayacak. bu koda bu istediğim şeyi nasıl ekleyebiliriz bilgi ve yardımlarınızı rica ederim

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cells(Target.Row, "A") = Date
End If
End Sub

 

[Ziynettin]

Merhaba,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    son = Cells(Rows.Count, 2).End(3).Row
    If Not Intersect(Target, Range("A2:A" & son)) Is Nothing Then
        Cancel = 1
        If son > 1 Then
            Range("A2", Range("A" & son)) = Date
        Else
            Exit Sub
        End If
    End If
End Sub

 

[u.L.a.s]

üstadım emeğine bilgine sağlık çok teşekkür ederim