B Sütunundaki Boş Hücrenin Satırını Silen Kod

[hakki83]

Excel Versiyonu

Excel 2016

Excel Sürümü

32 Bit

Excel Dili

Türkçe

Örnek dosyadaki
A sütunu için olan ve
Komut buton 1’le çalışan kod, arşivimde duruyordu.

Ben de deneme yanılmayla
(Komut buton 2)
B sütunu için olanını yapmaya çalışım.
If Cells satırındaki 1 rakamını 2 yaptım ve oldu.

Fakat bir şeyden emin olamadım.
Range’nin yanındaki A1’i
B1 yapmamız gerekiyor mu?

Yani A1 mi olmalı o kısım B1 mi, emin olamadım.
Hocalarımıza sormak istedim.

 

listvievde satır seçmediniz uyarısı

VBA ile len kullanımı sonrası 0 ekleme

[Ömer BARAN]

Range("A1") de sorun yok, B1 diye değiştirmeniz de sonucu değiştirmez.
Hatta teknik bakımdan Activesheet.UsedRange veya Activesheet.Cells [A1].CurrentRegion.SpecialCe.... de kulanılabilir.
Çünkü tespit edilen şey, sol üstten sağ alta doğru kullanılmış son hücre SpecialCells(xlLastCell) satır numarası.

 

[hakki83]

Sağ olunuz Ömer hocam.

 

[Ömer BARAN]

Aslına bakarsanız; madem kriteriniz tek sütundaki BOŞ hücrelerin satırlarını silmek,
o zaman For....If .... End If .... Next yapısı hiç kullanılmadan da sonuç alınabilir.
Veri yığınının büyüklüğüne veya belgedeki formül yoğunluğuna bağlı olarak
tek tek hücre kontrol edip, "boşsa o satırı sil" işlemi yavaş tamamlanabilir.

Bunun yerine silme işlemi TEK ADIMda ve döngü kurmadan şöyle de yapılabilir.

Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)

 

[hakki83]

Hemen deniyorum hocam. Ben de üstte yazdıklarınızı deniyordum şimdi.

 

[hakki83]

Ömer hocam merhaba

Karar veremedim, sizin verdiğiniz 4 yeşil satırdan birini seçmem gerekirse hangisini seçeyim?

 

[Ömer BARAN]

son = Cells.SpecialCells(xlLastCell).Row
Ben bunu kullanırdım. Tercih meselesi.