Boş Satır Silme

serkankeser · 11-10-2006, 13:24

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.

**yurttas** · 11-10-2006, 13:30

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** · 11-10-2006, 13:38

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

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

serkankeser · 11-10-2006, 13:39

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 · 11-10-2006, 14:22

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~~ · 22-11-2006, 10:48

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 · 13-12-2006, 08:42

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 · 13-12-2006, 08:59

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

 
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 · 14-12-2006, 14:28

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 · 14-12-2006, 14:29

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

11-10-2006, 13:30	#2
yurttas Moderatör Giriş: 21/10/2005 Mesaj: 12,606 Excel Vers. ve Dili: Excel, 2013 - İngilizce	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 __________________ Çalışmalarımı toplu bir şekilde görmek için: http://www.excelgurusu.com/

11-10-2006, 13:38	#3
Levent Menteşoğlu Administrator Giriş: 13/10/2004 Şehir: Çorlu Mesaj: 15,807 Excel Vers. ve Dili: Excel 2010-Türkçe	Alternatif olarak aşağıdaki koduda deneyebilirsiniz. Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) Sub sil() [b1:b20].SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub __________________ FORUM KURALLARI "Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan

11-10-2006, 14:22	#5
serkankeser Giriş: 02/03/2006 Şehir: Uşak/EŞME Mesaj: 103 Excel Vers. ve Dili: Office 2003 Türkçe	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. Bu mesaj en son " 11-10-2006 " tarihinde saat 14:28 itibariyle serkankeser tarafından düzenlenmiştir....

22-11-2006, 10:48	#6
~~lsuersoy~~ Banned Giriş: 29/06/2005 Şehir: İstanbul Mesaj: 154 Excel Vers. ve Dili: MS Office 2003 - Türkçe	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...

14-12-2006, 14:28	#9
mrt Giriş: 11/05/2005 Şehir: Kocaeli Mesaj: 167 Excel Vers. ve Dili: office 2003 tr & eng. office 2007 tr & eng.	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. __________________ Kızım Seni Çok Özledim. Cennette Buluşmak Umuduyla,(02.04.2007) 2003.Tr - İng. 2007.Tr - İng

11-10-2006, 13:39	#4
serkankeser Giriş: 02/03/2006 Şehir: Uşak/EŞME Mesaj: 103 Excel Vers. ve Dili: Office 2003 Türkçe	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.

14-12-2006, 14:29	#10
mrt Giriş: 11/05/2005 Şehir: Kocaeli Mesaj: 167 Excel Vers. ve Dili: office 2003 tr & eng. office 2007 tr & eng.	Teşekkür etmeyii unutmuşum. Sn. froctose cevabınız için teşekkürler. __________________ Kızım Seni Çok Özledim. Cennette Buluşmak Umuduyla,(02.04.2007) 2003.Tr - İng. 2007.Tr - İng

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç