Boş Satır Silme

[serkankeser]

Herkese iyi günler;
Arkadaşlar Excel'de A1:A20 arasındaki hücrelerdeki boş satırları silmek istiyorum. Örnek dosyayı ekte gönderiyorum. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Merhum İdris SERDAR]

Aşağıdaki kodları deneyin.


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

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

Sub sil()
[b1:b20].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[serkankeser]

Sayın Yurttas Sayın Leventm çok teşekkür ederim. Sorunumu yine bir çırpıda hallettiniz. İki Kodda sorunsuz çalışıyor.
Çok teşekkür ederim. İyi günler.

 

[serkankeser]

Sayın Leventm; Sayın Yurttaş iki kodlada sayfada çalışırken başka bir sorunum ortaya çıktı. Eğer bir kaç satır birleştirilmişse birleştirilme yapılan en üstteki hücre harici hepsi siliniyor. Birleştirilmiş hücrelerin silinmemesi için yardımlarınızı bekliyorum.

 

[lsuersoy]

Herkese Özellikle Sayın Yurttaş a teşekkürler..

Merhaba arkadaşlar , Forum kurallarında teşekkür etmenin yasak olup olmadığına bakmadım...21.11.2006 da ...Excel 2003 de boş satırları silen kodu yazmak için çok uğraşmış ama başaramamıştım...Sayın "yurttaş" ın foruma eklemiş olduğu kodu kullandığım zaman problemin çözüldüğünü tespit ettim...Kendisine teşekkürleri borç biliyorum....Bu forumun kurucularina da teşekkürediyorum...
Paylaştıkça çoğalan iki şey vardır...Bilgi ve Sevgi...

 

[mrt]

Selamlar,

Ekli dosyada farklıl sutunlarda dolu verilerim var.

Ben seçilen satıra ait tüm hücreler boş ise o satırı silmek istiyorum.

 

[Ali]

Aşağıdaki kodları modüle ekleyerek denermisiniz

Sub sil()
Application.ScreenUpdating = False
        Dim i As Integer
        t = ActiveSheet.UsedRange.Rows.Count
            For i = t To 1 Step -1
                If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then
            Rows(i).Delete Shift:=xlUp
        End If
   Next i
Application.ScreenUpdating = True
End Sub

 

[mrt]

b sütünundaki hücrelerin ilk karakteri _ ise satır sil

Sub satirsil2()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range

Set Rng = Range("B1:B65500")

For Each c In Rng

If c.Value = "0" Then

c.EntireRow.Delete xlShiftUp
End If
Next c
Application.ScreenUpdating = False
End Sub

if c.value="0" then satırına
ActiveCell.FormulaR1C1 = "=IF(MID(RC[-12],1,1)=""_"",1,0)"

formulunü nasıl adapte ederim ?

istediğim B sütunundaki hücre _ ile başlıyorsa o satırı silmek istiyorum.

 

[mrt]

Teşekkür etmeyii unutmuşum.

Sn. froctose cevabınız için teşekkürler.

 

[mrt]

Teşekkür etmeyii unutmuşum.

Sn. froctose cevabınız için teşekkürler.

 

[Ali]

B sütununda _ ile başlayanları silmek içinde aşağıdaki kodları kullanabilirsiniz.

Sub sil()
Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1
If Left(Cells(i, 2), 1) = "_" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[uludag80]

cok tesekkur ederim.inanilmaz ise yaradi.iyi ki varsiniz...

 

[baydeniro]

Paylaşım İçin Teşekkürler

Paylaşım için teşekkürler. Çok yararlı bir konu olmuş.

 

[xcoll]

Aşağıdaki kodları deneyin.


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

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

Sub sil()
[b1:b20].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

benımde bir excell calışma sayfası var ıkı satırdan bırı boş onu sılmem lazım aradan nasıl sılerım tek tek uzun surer yukarıda yazmış oldugunuz formullerı kullanmayı anlatırmısınız nereye nasıl yazacagım.

 

[Necdet]

Merhaba,

• Sütunu Seçiniz
• F5
• Özel
• Boşluklar + Tamam
• Fare Sağ Tık
• Sil
• Satır Sil
• Tamam

 

[xcoll]

ok tşk ederim dostum sağol