Boş Satırları Otomatik Nasıl Silebilirim?

[BuRacK]

Arkadaşlar 10bin tane satır var 2 sutunlu... bunların arasında boş olan satırlarda var otomatik olarak nasıl silebilirim yardım!

 

[N.Ziya Hiçdurmaz]

Yanıt

A sütunu için.
Sub SIL()
For SUT = [A65536].End(3).Row To 1 Step -1
If Range("A" & SUT) = "" Then
Rows(SUT).Delete SHIFT:=xlUp
End If
Next
End Sub

 

[BuRacK]

Dostum Çok saol ama 2 sutun olmazmı?
çünkü excelde a sutununda şirket isimleri b sutununda şirket numaraları var
numaralar karısmazmı?

 

[BuRacK]

Çok saol işime yaradı allah senden razı olsun...

 

[N.Ziya Hiçdurmaz]

Tüm satırı siler A sütununda şirket ismi yok ise B sütunuda boş demektir. eğer öyle ise problem olmaz çalışmanızı başka bir sayfaya kopyalayıp deneyiniz.

 

[BuRacK]

11 bindi 3bine düştü.

 

[Merhum İdris SERDAR]

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

Kodlarını deneyin.

.

 

[BuRacK]

Arkadaşlar bu kodları sizmi yapıyorsunuz?

 

[Seyit Tiken]

Aşağıdaki gibi de boş satırları silebilirsiniz.

Sub linksil()
[a1:b100].SpecialCells(4).Delete
End Sub

 

[Necdet]

Kod yazmadan da satır silelim isterseniz.

Diyelim ki A sütununda boş hücre varsa o satırın boş olduğunu varsayalım.

• A Sütununu Seçiniz
• F5
• Özel (Special)
• Boşluklar (Blanks)
• Tamam (OK)
• Fare ile sağ tık
• Sil (Delete)
• Satır (Entire Row)
• Tamam (OK)

 

[BuRacK]

Çok Saolun