Bosluklari silme

[muratsedef]

Merhaba arkadaslar,
Uzun bir listede bircok bos satir var. Bos satirlari bulup silen bi formül var mi? Ya da baska bir yöntemi var mi, makro gibi mesela?
ilgilenen herkeze tesekkürler

 

[Kemal Demir]

Sn.Muratsedef Küçük Bir Örnek Dosya Eklermisiniz.

Size Forumdaki Arkadasların yardımları açısından daha açıklayacı olacaktır.

 

[mehmett]

Aşağıdaki kod A sütunundaki boş hücrelerin bulunduğu satırları siler. İşinizi görmezse Sn kemaldemir'in dediği gibi örnek bir dosya gönderin, onun üzerinden gidelim.

Sub satirsil()
sonsat = Range("A65536").End(xlUp).Row
For x = sonsat To 1 Step -1
If Cells(x, 1) = "" Then
Rows(x).Delete
End If
Next
End Sub

 

[zafer]

Merhaba

A sütunundaki boş olan hücrelerin satırlarını siler.

Sub bos_alanları_sil()

Application.ScreenUpdating = False
Dim hucre As Range
Dim x As Integer
basla:
x = WorksheetFunction.CountA(Range("A:a"))
For Each hucre In Range("A1:a" & x)
If hucre.Value = "" Then
hucre.Select
Selection.EntireRow.Delete Shift:=xlUp

GoTo basla
End If
Next
End Sub


Edit: Sn.Mehmet Kodlarınızı görmemiştim.Bugün biraz yavaşım herhalde

 

[mehmett]

Alternatif olarak, A sütunundaki boş hücrelerin bulunduğu satırları silen sade bir kod;

Sub satirsil()
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[Metin Karaağaç]

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

herhangi bir satırdaki hiçbir hücrede değer bulunmuyorsa o satırı siler.