Boş satır silme

[opossum]

iyi akşamlar

çalışma kitabımda boş satırları aşağıdaki kod yardımıyla aktif sayfada çalıştırarak siliyorum, istediğim aktif sayfa seçili olmadan sayfa 1, sayfa 2 ve sayfa 3 teki boş satırları tek bir makro ile silmek, teşekkür ederim


Sub Bossatirsil()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For k = LastRow To 1 Step -1
If Cells(k, 1) = "" Then Rows(k).Delete
Next k
End Sub

 

[Orion1]

sayfa1,sayfa2 ve sayfa3 te a sütunundaki boş hücreleri siler.

Sub sil59()
Dim k As Range, i As Byte
For i = 1 To 3
    Set k = Sheets(i).Range("A:A").SpecialCells(xlCellTypeBlanks)
    k.Delete
Next i
MsgBox "İşlem tamamlanmıştır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[opossum]

ilgin için teşekkürler yalnız sayfa numaralarını belirtebilirmiyiz çünkü boş satırları silinmeyecek sayfalarda var.

sayfa1,sayfa2 ve sayfa3 te a sütunundaki boş hücreleri siler.

Sub sil59()
Dim k As Range, i As Byte
For i = 1 To 3
    Set k = Sheets(i).Range("A:A").SpecialCells(xlCellTypeBlanks)
    k.Delete
Next i
MsgBox "İşlem tamamlanmıştır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[Orion1]

ilgin için teşekkürler yalnız sayfa numaralarını belirtebilirmiyiz çünkü boş satırları silinmeyecek sayfalarda var.

dizi içine silinecek sayfaları yazdım.sizde hangi sayfaları silmek istiyorsanız dizi içine yazınız.
A sütununda boş olan hücreleri siler.Tüm satırı silmez.

Sub sil59()
Dim k As Range, i As Byte, sayfalar(), sh As Worksheet
sayfa = Array("", "Sayfa1", "Sayfa3")
For i = 1 To 2
    Set sh = Sheets(sayfa(i))
    Set k = sh.Range("A:A").SpecialCells(xlCellTypeBlanks)
    k.Delete
Next i
MsgBox "İşlem tamamlanmıştır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[opossum]

Ellerin dert görmesin. Orion1.

 

[Orion1]

Tüm satırı silmek için.

Sub sil59()
Dim k As Range, i As Byte, sayfalar(), sh As Worksheet
sayfa = Array("", "Sayfa1", "Sayfa3")
For i = 1 To 2
    Set sh = Sheets(sayfa(i))
    Set k = sh.Range("A:A").SpecialCells(xlCellTypeBlanks)
    k.EntireRow.Rows.Delete
Next i
MsgBox "İşlem tamamlanmıştır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub