standart satır aralığı silme

[kurthan]

arkadaşlar merhaba,
detayları ekte anlattım yardımcı olursanız büyük uğraştan beni kurtarmış olursunuz
şimdiden tşk.ler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Not : Dosyanızın bir kopyasını çıkartmayı unutmayınız.

Sub Baslik_Sil()
Dim i   As Long
    
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
    If Cells(i, "A") Like "Rapor Tarihi:*" Then Rows(i & ":" & i + 7).Delete
Next i
i = Cells(Rows.Count, "A").End(3).Row
Range("A9:A" & i).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
End Sub

 

[kurthan]

nejdet hocam teşekkürler
makbule geçti

 

[Necdet]

Merhaba,

Güle güle kullanınız.