Resmi incelediyseniz açıklamaya geçeyim. Gördüğünüz resim yazları memlekette çalıştığım eczanede bulunan ilaçların sıralı listesi. Satır sütunda sayı olan satırlardaki ilaçlar eczanede bulunan ilaçlar. Diğerleri ise yok. Biz de sadece elimizde bulunan ilaçları yazdırmak istiyoruz. Ama diğer ilaçların bulunduğu satırları tek tek silmek büyük problem. hepsini yazdırmakta akıl karı iş değil. Tek çözüm küçük bir makro yazmak. İnternette küçük bir araştırma yaptım ve tam bizim sorunumuza uygun bir çözüm buldum.

Makro düzenleme ekranında şu kodu yazıp çalıştırıyoruz.

Sub silme()
[b1:b9].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Sub silme() makromuza verdiğimiz isim siz dilediğiniz aşka bir isim verebilirsiniz.

[b1:b9] b1 hücresi ile b9 hücresi arasındaki hücreleri kontrol edip boş olan varsa hücrenin bulunduğu satırı silecek sadece işimize yarayanlar kalacaktır.

Herkese kolay gelsin.