Boş Satırları Silmek

[htsumer]

Bir programdan Excele aktarılan verilerde her dolu satır altında boş satır olarak geliyor.Dolu satırların altındaki tüm satırları silmek için bir kod lazım.(Veriler çok olduğundan tek tek silinmesi zaman alıyor)
Teşekkürler

 

[ahzola]

merhaba
ben bunu kullanıyorum bir deneyiniz.

Sub BosSatirlariSil()
Range(Range("B65536").End(xlUp), Range("B2")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[htsumer]

Teşekkürler ama 2010'da Run Time 424 Object Reguired hatası verdi..Dolu satırların altındaki satırlar hem boş hemde gizlenmiş halde bunu yazmayı unutmuşum

 

[ahzola]

Uzman arkadaşlar yardımcı olacaklardır.
Profilinizde 2003 gözüküyor lakin versiyon.

İyi günler.

 

[antonio]

Şu kodu dener misiniz

Sub sil()
Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[dEdE]

Dolu satırların altındaki satırlar hem boş hemde gizlenmiş halde ...

Merhaba,
Verilerinizin A kolonunda olduğunu varsayarak, aşağıdaki kodları kullanabilirsiniz.

Sub GizliBosSatırSil()
    Cells.EntireRow.Hidden = False
    Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete (3)
End Sub

 

[htsumer]

antonia ve dede
ikinizin verdiği kod/lar çalıştı teşekkür ederim.

 

[Necdet]

Böyle bir şey için kod yazmaya gerek var mı?
İmzamı okuyunuz.

 

[antonio]

antonia ve dede
ikinizin verdiği kod/lar çalıştı teşekkür ederim.

ismimi doğru okuyun, doğru yazın lütfen. Olur mu?

 

[htsumer]

ismimi doğru okuyun, doğru yazın lütfen. Olur mu?

...........:???:

 

[cengizank]

Sub Düğme1_Tıklat()
Columns("A:E").Select ' sütün boyutunu belirtmek size bağlı
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
End Sub

denenmiş kod

 

[dEdE]

Sub Düğme1_Tıklat()
Columns("A:E").Select ' sütün boyutunu belirtmek size bağlı
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
End Sub
denenmiş kod

Merhaba,

Denenmiş olabilir.!!!!
6. mesajda yazdığım ve aşağıda tekrar eklediğim koddan ne farkı var? Açıklayabilir misiniz?

Sub GizliBosSatırSil()
    Cells.EntireRow.Hidden = False
   [B] Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete (3)[/B]
End Sub