kritere göre son dolu satırı sonraki boşlara kopyalamak

[kucukdunyam]

merhabalar, A sütünündaki don dolu satır sayısına kadar, b sütünündeki son dolu verinin yine b sütünündeki boş hücrelere kopyalanmasını istiyorum, makro ile nasıl yazabiliriz acaba, dosyanın içinde örnek dok mevcut ama çalışmıyor.

 

[Ömer]

merhabalar, A sütünündaki don dolu satır sayısına kadar, b sütünündeki son dolu verinin yine b sütünündeki boş hücrelere kopyalanmasını istiyorum, makro ile nasıl yazabiliriz acaba, dosyanın içinde örnek dok mevcut ama çalışmıyor.

Merhaba,

Bu şekilde deneyin.

Sub Kopyala()
 
    Dim sonA As Long, sonC As Long
 
    sonA = Cells(Rows.Count, "A").End(xlUp).Row
    sonC = Cells(Rows.Count, "C").End(xlUp).Row
    
    If sonA = sonC Then Exit Sub
    
    Range("C" & sonC).Copy Range("C" & sonC + 1, "C" & sonA)
    
    
End Sub

.

 

[kucukdunyam]

çok teşekkür ederim. Oldu