Satır aç satır kopyala

[ADER_34]

Merhaba arkadaşlar örnek dosyamda Makro ile Sayfa1 "A" sütununda "A2" satırının altına bir boş satır aç "B2" satırındaki veriyi "A2"satırı altına kopyala, bu işlemi A sütunun boyunca dolu satırlda yap kolay gelsin teşekkürler..


http://s8.dosya.tc/server5/mvjjl5/Kitap1.xlsx.html

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
.

[B]Sub KARISTIR()[/B]
Cells(Cells(Rows.Count, 1).End(3).Row + 1, 1) = Cells(Cells(Rows.Count, 1).End(3).Row, 2)
For sat = Cells(Rows.Count, 1).End(3).Row - 1 To 3 Step -1
    Cells(sat, 1).Insert Shift:=xlDown
    Cells(sat, 1) = Cells(sat - 1, 2)
Next
MsgBox "İşlem tamamlandı..."
[B]End Sub[/B]

 

[ADER_34]

Çok teşekkür ederim Ömer Bey, kodlarınız sorunsuz çalışıyor tam istediğim gibi iyi çalışmalar..