Makro ile koşullu satır kopyalama

[ethemozt]

Merhabalar

Sayfa 2 de A2 den Q2 ye kadar dolu bir satırım var, bir altındaki boş satıra bir üstten satır kopyalama yapmak istiyorum ama bunu Sayfa 1 deki A sütünunda bulunan dolu hücre sayısı kadar kopyalasın istiyorum. Ben siteden bulduklarımla şöyle bir şey yaptım ama bunun çalışması için sayfa 1 deki dolu hücre kadar butona tıklamam gerekiyor yardımlarınız için şimdiden teşekkür ederim.

If Not Sayfa1.Range("A3") > 0 Then Exit Sub
Dim son As Long
son = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & son, "Q" & son).Copy Range("A" & son + 1)

 

[Muzaffer Ali]

Merhaba.

Range("A" & son, "Q" & son).Copy Range("A" & son + 1)
satırını, aşağıdaki ile değiştirin
Range("A2" &, "Q" & son).Copy Range("A" & son + 1)

 

[ethemozt]

Sayın dalgalikur cevabınız için çok teşekkürler ama benim sorunum makronun o bölümünden ziyade şu kısmında
If Not Sayfa1.Range("A3") > 0 Then Exit Sub = Sayfa 1 de A sütünunda dolu hücre kadar altındaki makronun çalışmasını sağlamalı örnek A3 den A30 kadar dolu ise o kadar alttaki kodu çalıştırmalı

 

[Muzaffer Ali]

Örnek dosya ile gösterir misiniz?

 

[ethemozt]

FT sayfasındaki Doldur Butonuna bir kez tıkladığımda VERİ sayfasındaki dolu satır kadar dolduracak şu anda her tıkladığımda tek satır şeklinde dolduruyor

Örnek Dosya

 

[ethemozt]

Örnek dosya ektedir teşekkürler

 

[ethemozt]

Örnek dosya ile gösterir misiniz?

Sayın @dalgalikur örnek dosyayı ekledim

 

[ethemozt]

güncel