Boş satırları silmek!

[harziyan]

Merhabalar;
Boş satırları silmek için forumda bulduğum aşağıdaki kodu dosyama ilave ettiğimde "400" şeklinde bir hata alıyorum. Acaba sorun ne?
Kod;

Sheets("Sayfa1").[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Bakmak isterseniz dosyam da ekte...

 

[Orion1]

Birşeştirilmiş hücre vardır.

 

[harziyan]

Hocam birleştirilmiş hücre göremedim ben???

 

[tahsinanarat]

Sub Satırsil()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. harziyan,

A sütunundaki boş zannettiğiniz hücreler aslında boş değil. Sanırım bu verileri bir yerden kopyaladınız. Satır silme işleminde aşağıdaki yöntemi kullanmayı deneyin.

Option Explicit
 
Sub BOŞ_SATIR_SİL()
    Dim X As Long
    
    For X = Sheets("Sayfa1").Range("A65536").End(3).Row To 1 Step -1
        If Sheets("Sayfa1").Cells(X, 1) = "" Then Sheets("Sayfa1").Rows(X).Delete
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[harziyan]

Doğru söylüyorsunuz hocam, evet verileri kopyalamıştım. Ufacık bir ayrıntı nelere kadir! Sorunum halloldu, çok teşekkür ederim.