Çözüldü B Sütunundaki Boş Hücrenin Satırını Silen Kod

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

hakki83

Site Üyesi

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.
 

Ekli dosyalar

  • örnek dosya.xlsm
    20.7 KB · Görüntüleme: 1
Çözüm
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ı.
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ı.
 
Çözüm
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.

VBA:
Görüntülemek için giriş yapmalısınız.
(2 satır)
 
Ömer hocam merhaba

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

Ekli dosyalar

  • örnek dosya2.xlsm
    17 KB · Görüntüleme: 2
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Konuyu başlatan
Site Üyesi
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
6
Geri
Üst