Soru Çift tıklayınca üst satır niye bir alt satıra kopyalanmıyor?

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,586
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Pro x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2027
Merhabalar;

Daha önce Ömer üstadın makro koduyla, Harcamalar sayfasında üstteki satırdaki kayıtlar, bir alt satıra çift tıklayınca kopyalanıyordu.

2020 yılı için yarattığım kopyada makro niye çalışmıyor? Sorun nasıl aşılabilir?
 

Ekli dosyalar

systran

Destek Ekibi
Destek Ekibi
Katılım
15 Aralık 2007
Mesajlar
1,666
Excel Vers. ve Dili
2021 PRO [TR]
şu kodları deneyin
Kod:
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    son = WorksheetFunction.CountA(Range("A:A")) + 1
    If Target.Row <> son Then Exit Sub
    Rows(son - 1).Copy Range("A" & son)
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,586
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Pro x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2027
Sayın systran,

Üstadım kısa süredeki yanıtınız için teşekkürler. Sorunum çözüldü.

Sevgi ve saygıl
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,586
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Pro x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2027
Sayın @EmrExcel16,

Yardımınız için teşekkürler. Sağ olun, var olun.
 
Üst