Çözüldü Son dolu satır, bir alt satıra makroyla nasıl kopyalanır?

[assenucler]

Dostlar Merhabalar;

Ekteki dosyanın A sütunundaki son dolu hücresine çift tıklayınca; en son dolu satırın aynen bir alt satıra kopyalanması makroyla nasıl yapılır?

Sitemizde bir üstadımın aşağıdaki kodunu buldum. Ancak, kendime bir türlü uyarlayamadım.

"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A12:L2000")) Is Nothing Then
sat = Target.Row
If Cells(sat, 1) <> "" Then
sonsatir = Range("A65536").End(xlUp).Row + 1
For k = 1 To 12
Cells(sonsatir, k) = Cells(sat, k)
Cells(sonsatir, k).Font.ColorIndex = Cells(sat, k).Font.ColorIndex
Cells(sonsatir, k).Interior.ColorIndex = Cells(sat, k).Interior.ColorIndex
Next k
End If
End If
End Sub"

Yardımınızı rica ediyorum.

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    son = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If Target.Row <> son Then Exit Sub
    Rows(son - 1).Copy Range("A" & son)
End Sub

 

[assenucler]

Sayın Ömer Bey,

İlginiz ve yanıtınız için teşekkür ederim.

Kodunuzu ilk mesajımdaki dosyanın "Kod Görüntüle" kısmına kopyalayıp; Sayfa1'in A sütunundaki son hücreye tıkladığımda, alt satıra kopyalar yarattı.

Ancak, esas dosyamın "Harcamalar" sayfasının "Kod Görüntüle" ya da "Modul'e" yapıştırıp; A sütunu son dolu satırına çift tıkladığımda, bir alt satıra kopyalama yapmadı. Nedeni A sütununda "formül" olması ya da "Veri Doğrulama"olabilir mi?

 

[Ömer]

Formülden dolayı son satırı şartında eşleşme olmuyordur.
Sonuca daha hızlı ulaşmak için gerçek dosyanızı küçülterek (4-5 satırlık veri ile) ekler misiniz.

 

[assenucler]

Dosya ilişiktedir. İlginiz için teşekkürler üstadım.

 

[assenucler]

Formülleri sildim ve sorun çözüldü üstadım,
Teşekkürler.