Satır Aralarında Kalan Boş Satırları Silmek

[xcoll]

elimde bir exce sayfası var ...

39815 satır her sstır arasında bır boşluk var bu boşlukları nasıl yok edecegım çunku boşluk oldugunda süzemıyorum.

 

[BG]

Sayın xcoll

elimde bir exce sayfası var ...

39815 satır her sstır arasında bır boşluk var bu boşlukları nasıl yok edecegım çunku boşluk oldugunda süzemıyorum.

Yanlış anlamadıysam, boş satırları silmek istiyorsunuz!

Boş olan satırları yok etmek için makro ile örnek çözüm

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

Excel komutları ile çözüm;

1- Klavyeden F5 tuşuna basın
2- "Özel" butonuna tıklayın açılan pencerede "Boşluklar" seçeneğini işaretleyin
3-"Düzen" mesünüden "Sil" komutunu tıklayın, açılan pencerede "Tüm satır" seçeneğini işaretleyip "Tamam" butonuna tıklayın

 

[Ayhan Ercan]

Merhaba
Aşağıdaki uygulamayı yapınız...

1- Tüm hücreleri Seç > F5' e bas > Özel > Boşluklar > Tamam
2- Excel Menuden, Düzen > Sil > Hücreleri yuları sürükle

 

[xcoll]

f5 ile yaptıgımda seçilen alan çok butuk dıyor su mmakro kodunu nasıl yapacagım

 

[xcoll]

hem sadece boş satırları sılmek ıstıyorum bazı boş sutunlar var onlar sılınmesın

 

[xcoll]

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

bu kodu nasıl uygulayacagım makro halıne getırecegım nasıl çalıştıracagım lutfen yardım edın

 

[Korhan Ayhan]

Selamlar,

Aslında boş satırları silmeden filtre uygulayabilirsiniz. Sütunu seçerek filtreleme yaparsanız istediğiniz sonuca ulaşabilirsiniz.

Ama ısrarla ben boş saırları silmek istiyorum derseniz aşağıdaki kodu boş bir modüle ekleyerek kullanabilirsiniz. Bu kodlar sadece A sütununda bulunan boş hücrelere göre satırları siler.

Option Explicit
 
Sub BOŞ_SATIR_SİL()
    On Error GoTo Son
    [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Son:
End Sub

 

[xcoll]

sutunu seçip filtre uygulanmıyor denedım ben excell 2007 kullanıyorum ondan olabılırmı acaba .....

bu kodu boş bir makro sayfasına yapıştırıp kayıt edersem nasıl çalıştıracagım

 

[Necdet]

Boş olan satırları süzdürdükten sonra hepsini silebiirsiniz.

Yada A sütununa göre boş olan satırları silmek isterseniz.

• A sütununu seçin
• F5
• Özel
• Boşluklar
• Sağ Klik
• Sil (tüm satır)
• Tamam

 

[xcoll]

Boş olan satırları süzdürdükten sonra hepsini silebiirsiniz.

Yada A sütununa göre boş olan satırları silmek isterseniz.

• A sütununu seçin
• F5
• Özel
• Boşluklar
• Sağ Klik
• Sil (tüm satır)
• Tamam

39815 bu kadar satır oldugundan herhalde soyledıgınızı yapınca Seçim Çok Büyük diye uyarı veriyor

 

[xcoll]

Selamlar,

Aslında boş satırları silmeden filtre uygulayabilirsiniz. Sütunu seçerek filtreleme yaparsanız istediğiniz sonuca ulaşabilirsiniz.

Ama ısrarla ben boş saırları silmek istiyorum derseniz aşağıdaki kodu boş bir modüle ekleyerek kullanabilirsiniz. Bu kodlar sadece A sütununda bulunan boş hücrelere göre satırları siler.

Option Explicit
 
Sub BOŞ_SATIR_SİL()
    On Error GoTo Son
    [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Son:
End Sub

ok çok uzun surdu fu formulu uygulaması ama sorunu çözdum çok tşk ederım ellerını saglık

cvp veren herkesın ellerıne saglık tşk ederım.

 

[comancero]

f5 olayı mükemmel 2 saat ugrastım nerdeyse cok tesekkürler

 

[ural66]

Helal size gençler F5 olayını tuttupm. Kullandığım programdan liste çıkarıyordum. Bir sürü boş satır oluyordu. Sayenizde bir günlük işim 2 dk da halloldu. Emeklerinize yüreklerinize sağlık. Daha öğrenecek çok şeyimiz var...

 

[fatih80]

hucre bos oldugu halde bulamiyor

F5 ile bos satirlari silmek istiyorum. Bos oldugu halde secilmiyor.
Bazi hucrelerin icerisinde bosluk karakteri oldugu icin onlaru da bul degistir ile siliyorum ama hala secilmiyor. Bu konuda yardimci olursaniz sevinirim.

Baska bir yolu da kosula bagli hucreler nasil silinir. Ornegin 5 deb buyuk olan satirlar silinsin.

 

[gndnr]

Merhaba
Aşağıdaki uygulamayı yapınız...

1- Tüm hücreleri Seç > F5' e bas > Özel > Boşluklar > Tamam
2- Excel Menuden, Düzen > Sil > Hücreleri yuları sürükle

Yedi yıl sonra paylaştığınız bilgiyi kullanmışım. Cok tesekkür ederim.

 

[manyakbiri]

Boş olan satırları süzdürdükten sonra hepsini silebiirsiniz.

Yada A sütununa göre boş olan satırları silmek isterseniz.

• A sütununu seçin
• F5
• Özel
• Boşluklar
• Sağ Klik
• Sil (tüm satır)
• Tamam

2009 tarihli bir mesaj fakat bugün itibariyle işime yaradı. Teşekkür ediyorum paylaştığınız bilgi için.

 

[romanci]

2009 tarihli bir mesaj fakat bugün itibariyle işime yaradı. Teşekkür ediyorum paylaştığınız bilgi için.

Al benden de o kadar. http://www.excel.web.tr/images/icons/icon10.gif

 

[tolas]

Satır silme

MERHABA BİR MAKROM VAR
Option Compare Text

Sub Autpen()
X = Sheets.Count
A = "Print"
For i = 1 To X
If Sheets(i).Name = A Then
Sheets(A).Delete
End If
Next
End Sub

Sub SartliSil()

X1 = Sheets.Count
A1 = "Print"
For i1 = 1 To X1
If Sheets(i1).Name = A1 Then
Sheets(A1).Delete
End If
Next

Sheets("TASLAK").Copy After:=Worksheets(Worksheets.Count)
NewPageName = "Print"
ActiveWindow.ActiveSheet.Name = NewPageName

Sheets("Print").Select

Dim son As Long, deg, i As Long, durum As Boolean, j As Integer

son = Cells(Rows.Count, "AQ").End(xlUp).Row
deg = Array("*Silinecek Satır*")

Application.ScreenUpdating = False

For i = son To 2 Step -1
durum = False
For j = 0 To UBound(deg)
If Cells(i, "AQ") Like deg(j) Then durum = True
If durum = True Then Exit For
Next j
If durum = True Then Rows(i).Delete Shift:=xlUp
Next i

Application.ScreenUpdating = True

End Sub



SAYFA SAYISI ÇOK OLDUGU İÇİN ÇOK GEÇ CEVAP VERİYOR BUNU NASIL HIZLNADIRABİLRİM
AMACIM KOŞULLU OLARAK YAZDIRMA ALANI BELİRLEMEK