Sütundaki dolu hücreleri seçme

[zulkarneyn37]

Merhaba değerli ve yardımsever arkadaşlar.

Bir sütündaki dolu hücreleri seçip başka bir sütüna yada sayfaya aralarında boşluk olmadan tek sütun halinde yazmak istiyorum. Yani diyelimki A sütununda 500 satır verim var ama arada boşluklar var. A1, A2, A3 dolu A4 boş A5, A6 dolu gibi giden bir dizi olsun. Ben bu verileri boşlukları almadan tek sütuna yazdırmak istiyorum.



Bir yöntemi varsa yardım edeceklere şimdiden teşekkür ederim.

 

[ExcelF1]

Sub yeni()
For a = 1 To [A65000].End(xlUp).Row
If Cells(a, 1) <> "" Then Cells(a, 1).Copy Sheets(2).[A65000].End(xlUp).Offset(1, 0)
Next a
End Sub

şeklinde deneyebilirsiniz. Sayfa isimleri ve Sütun isimlerini kendinize göre revize etmeyi unutmayın.

 

[sacexcel]

Sub yeni()
For a = 1 To [A65000].End(xlUp).Row
If Cells(a, 1) <> "" Then Cells(a, 1).Copy Sheets(2).[A65000].End(xlUp).Offset(1, 0)
Next a
End Sub

şeklinde deneyebilirsiniz. Sayfa isimleri ve Sütun isimlerini kendinize göre revize etmeyi unutmayın.

Bu kod benim de çok işime yaradı. Teşekkürler. Bu kodu sayfalar arasında dolaşacak şekilde düzenlemek mümkün mü?