Belirli bir hücre boş ise (yada sayı değise) satırı silme

[serhan]

Öncelikle kod için yurttas'a tesekkürler...

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

Yukarıdaki kod sayfadaki bütün satırları kontrol ediyor ve eğer tüm satır boş ise satırı siliyor. Ve çok güzel çalışıyor... Benim bunda küçük bir değişiklik yapmam gerekiyor. Ama neyi denediysem beceremedim. İstediğim işlem ...

Çalışma sayfasındaki her satırı yine kontrol edecek ve ilgili satırdaki A hücresi boş ise o satırı silmesini istiyorum. Yardımlarınız için teşekkürler...

 

[Ali]

Sub sil()
Range("A1:A" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[Recep İpek]

Alternatif olarak

[vb:1:cb9be87bc5]
Sub Bossatirsil()
Application.ScreenUpdating = False
Range("A1").Select
LastRow = 2500 'İstediğiniz satır
For k = LastRow To 1 Step -1
If Application.CountA(Rows(k)) = 0 Then Rows(k).Delete
Next k
Application.ScreenUpdating = True
End Sub
[/vb:1:cb9be87bc5]

 

[veyselemre]

A sutunundaki boş hücrelerin bulunduğu satırları silmek için sayın Fructose ve Yurttaş'ın kodlarını aşağıdaki şekilde düzenleyerek kullanabilirsiniz.

[vb:1:0387631bd2]Sub sil()
On Error Resume Next
Range("A1:A" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


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[/vb:1:0387631bd2]

 

[serhan]

A sutunundaki boş hücrelerin bulunduğu satırları silmek için sayın Fructose ve Yurttaş'ın kodlarını aşağıdaki şekilde düzenleyerek kullanabilirsiniz.

[vb:1:3790c7708f]Sub sil()
On Error Resume Next
Range("A1:A" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


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[/vb:1:3790c7708f]

Kodları denedim. Ve her ikisi de aynı işlemi doğru bir şekilde yaptı. Zaman ayırdığınız ve emekleriniz için teşekkürler...