Boş satır silme

[opossum]

Merhabalar hayırlı cumalar;

Excel çalışma kitabında 15 tane sayfa olup bunlarda boş satırlar mevcuttur. Aşağıda yazdığım makro ile bu boş satırları silebiliyorum fakat makroyu çalıştırıken o sayfanın seçili olması gerekiyor ve tek tek 15 sayfada bu işlemi yapmam gerekiyor daha kısa yolu varmı acaba 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

 

[suleyman242]

böyle denermisin ?

Sub Bossatirsil()
Dim sayfalar As Worksheet
i = 1
For Each sayfalar In Worksheets
Worksheets(i).Select
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
i = i + 1
Next
End Sub

 

[opossum]

Bu makroyu sayfa isimleri belirterek düzenleyebilirmiyiz

 

[Muzaffer Ali]

Sub Bossatirsil()
Dim sayfalar As Worksheet
i = 1
For Each sayfalar In Worksheets
LastRow = Worksheets(i).UsedRange.Row - 1 + _
Worksheets(i).UsedRange.Rows.Count
Application.ScreenUpdating = False
For k = LastRow To 1 Step -1
If Cells(k, 1) = "" Then Rows(k).Delete
Next k
i = i + 1
Next
End Sub

 

[suleyman242]

Bu makroyu sayfa isimleri belirterek düzenleyebilirmiyiz

böylemi ?

Sub Bossatirsil()
[COLOR="Red"][B]Sheets("Sayfa2").Select[/B][/COLOR]
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

 

[opossum]

Aynen eline sağlık

böylemi ?

Sub Bossatirsil()
[COLOR="Red"][B]Sheets("Sayfa2").Select[/B][/COLOR]
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

 

[suleyman242]

Aynen eline sağlık

Rica ederim.