Sütunlardaki boş hücreleri nasıl silebilirim?

[y_yilmaz1977]

Merhabalar;

Binlerce verinin sözkonusu olduğu, yanyana bir veya iki sütunun aralarında yer alan boş hücreleri silmek istiyorum. Bunun için bir kod yazdım.Ama yazdığım bu kodla her defasında bu işlemi bir kere yapıyor. Ben aynı anda bütün boş hücrelerin silinmesini istiyorum.

 

[İhsan Tank]

Merhabalar;

Binlerce verinin sözkonusu olduğu, yanyana bir veya iki sütunun aralarında yer alan boş hücreleri silmek istiyorum. Bunun için bir kod yazdım.Ama yazdığım bu kodla her defasında bu işlemi bir kere yapıyor. Ben aynı anda bütün boş hücrelerin silinmesini istiyorum.

merhaba

Sub excelwebtr()
Dim hucre As Range
For Each hucre In Range("[COLOR="Red"]A1:B100[/COLOR]")
If hucre = Empty Then
hucre.Rows.Select
Selection.Delete Shift:=xlUp
End If
Next hucre
MsgBox "Boş Satırlar Silinmiştir", , "www.excel.web.tr"
End Sub

kodu butona atıyarak kullanınız
kırmızı olan yeri kendinize göre uyarlayınız

 

[Serdar SELEN]

Merhaba,

Aşağıdaki kodu commandbutona atayınız.

Range("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select

 

[y_yilmaz1977]

merhaba

Sub excelwebtr()
Dim hucre As Range
For Each hucre In Range("[COLOR="Red"]A1:B100[/COLOR]")
If hucre = Empty Then
hucre.Rows.Select
Selection.Delete Shift:=xlUp
End If
Next hucre
MsgBox "Boş Satırlar Silinmiştir", , "www.excel.web.tr"
End Sub

kodu butona atıyarak kullanınız
kırmızı olan yeri kendinize göre uyarlayınız

İhsan bey çok teşekkür ederim.Hızır gibi yetişdiniz.

 

[İhsan Tank]

İhsan bey çok teşekkür ederim.Hızır gibi yetişdiniz.

rica ederim
kolay gelsin :mutlu:

 

[y_yilmaz1977]

İhsan bey; verdiğiniz kodu krmızı ile belirttiğiniz yeri dikkate alarak çalıştırdım. Fakat arada yine boşluklar bıralıyor. Aynı işlemi, veri sayısına göre 2 veya 3 kere yapınca bütün boşlukları siliyor.

 

[y_yilmaz1977]

Sub excelwebtr()
Dim hucre As Range
For Each hucre In Range("A1:B100")
If hucre = Empty Then
hucre.Rows.Select
Selection.Delete Shift:=xlUp
End If
Next hucre
MsgBox "Boş Satırlar Silinmiştir", , "www.excel.web.tr"
End Sub

İhsan bey;

Arada iki boşluk olduğu zaman bir hücre, 3 boşluk olduğu zaman 2 hücre... yine boş kalıyor. Kodda küçük bir revize gerekir.

Bir bakabilirseniz sevinirim.

 

[İhsan Tank]

İhsan bey;

Arada iki boşluk olduğu zaman bir hücre, 3 boşluk olduğu zaman 2 hücre... yine boş kalıyor. Kodda küçük bir revize gerekir.

Bir bakabilirseniz sevinirim.

merhaba
bu kodu denermisiniz

Sub excelwebtr()
For x = [A100].End(3).Row To 2 Step -1
If Cells(x, 2).Value <= Empty Then Rows(x).Delete
Next
End Sub

en üstteki boş satır hariç hepsini siliyor

 

[Necdet]

Merhaba,

Alternatif olsun.

Sub Bos_Satir_Sil()
    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[y_yilmaz1977]

Merhaba,

Alternatif olsun.

Sub Bos_Satir_Sil()
    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Necdet bey alternatif için teşekkürler.

Verdiğiniz kodu denedim.Fakat bir şey soracaktım. A sütunundan AI sütununa kadar veri olup ilk 10 satır başlık için ayrılıp,benim silmek istediğim hücreler V ve W sütunuda olunca verdiğiniz kodda ne gibi değişiklik yapmak gerekir.

Biraz ordan biraz burdan harmanlayıp ben şu kodla işimi hallettim. Yardımı dokunan herkese teşekkürler.


Sub BosHucresil_Tıklat()
Application.ScreenUpdating = False
Dim m As Integer
m = 1363
Do While m >= 10

If Cells(m, 22).Value = "" And Cells(m, 23).Value = "" Then

Cells(m, 22).Delete Shift:=xlUp
Cells(m, 23).Delete Shift:=xlUp
End If
m = m - 1

Loop
Application.ScreenUpdating = True
End Sub

 

[halit3]

alternatif olarak bunu denermisiniz.

Columns("V:W").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp