Boş satırların silinmesi

[nikomedian]

Aşağıdaki kodu kod bankası V2.4'ten indirdim yalnız ben; A sütunundaki boş hücreyi görünce o satırı silmesini istiyorum. Nasıl bir değişiklik yapılmalı bu kodda ?

Sub BosSatirlariSil()
Dim LastRow As Long, r As Long
Sheets("Sheet2").Select
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

 

[ECYavuz]

Selam,

Aşağıdaki kodu kullanın...

Sub sil()
For x = [a65526].End(3).Row To 1 Step -1
If Cells(x, 1).Value <= Empty Then Rows(x).Delete
Next
End Sub

 

[BG]

merhaba

Private Sub CommandButton1_Click()
[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


şeklinde denermisiniz.

 

[ECYavuz]

Hatta bir &#246;rnek daha...

Sub CommandButton1_Click()
Range("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

 

[nikomedian]

Hocam &#231;ok sa&#287;olun ilginiz i&#231;in, bu kodlar&#305; kendi ar&#351;ivime ekledim yaln&#305;z, sildirme y&#246;ntemi yerine sat&#305;r atlamay&#305; kullanmaya karar verdim. Sizi u&#287;ra&#351;t&#305;rd&#305;&#287;&#305;m i&#231;in &#246;z&#252;r dilerim, &#231;ok sa&#287;olun.