Boş satır sil

[nadirornek]

Sayfa1 hariç diğer sayfalardaki boş satırlar silinsin.Macro ile yapabilirmiyiz.
Ben bir macro hazırladım biraz uzun oldu çalışıyor fakat SayfaA da satır boşluğu yok ise diğer sayfaya atlamıyor bütün sayfalarda boş satır var ise siliyor.Macroyu düzelte bilirmiyiz.

 

[Ömer]

Merhaba,

Sub SatırSil()
 
Dim i As Integer
 
On Error Resume Next
For i = 1 To Worksheets.Count
    With Sheets(i)
        If .Name <> "Sayfa1" Then
            .[A:A].SpecialCells(xlCellTypeBlanks).Delete
        End If
    End With
Next i
 
End Sub

Bu şekilde deneyiniz..

.

 

[nadirornek]

.[A:A].SpecialCells(xlCellTypeBlanks).Delete
Kod satırı hata verdi

 

[Ömer]

#2 nolu mesajı güncelledim.

Satır sayınızı bilmiyorum fakat büyük tablolarda

SpecialCells(xlCellTypeBlanks).Delete

bu metod hatalı sonuçlar üretir.

.

 

[nadirornek]

Kodu denedim sadece A sutununda boş satır var ise yukarı alıyor,diğer sutunları aynen yukarı almıyor.

 

[Ömer]

Kodu denedim sadece A sutununda boş satır var ise yukarı alıyor,diğer sutunları aynen yukarı almıyor.

Delete

yerine

EntireRow.Delete

yazınız.


.

 

[nadirornek]

Teşekkürler Ömer bey şimdi tam oldu elinize sağlık.