Makro İle Çoklu Sütundan Satır Silmek

[taboo165]

Herkese Merhaba,

2500 satırlık dinamik bir excel sayfam var (Sayfa 1).

Bu sayfamdaki D ve G sütünlarından yeni sayfaya (Sayfa 2) veri taşımak istiyorum ancak satırlar arasında bazılarında 1 bazılarında 2 satır boşluk var.

Acaba bu sütunların içerisinde sadece veri olanlarını (boş satırlar hariç) yeni sayfaya taşımak üzere bir makro yazabilir misiniz?

Yardımlarınız için şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu dener misiniz? Sorun oluşursa örnek dosya yükleyip üzerinde almak istediğiniz sonucu belirtiniz.

Sub kod()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Range("D:D,G:G").Copy s2.Range("A:B")
s2.Range("A:B").SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[taboo165]

Çok teşekkürler elinize sağlık.