Belirtilen cell boşsa, satırı silme?

[Kraosis]

Merhaba, sorumu basitçe açıklayayım,

A sütunu = ürün adı
B sütunu = adet

eğer B sütununda yani adet kısmında bir veri yoksa, o satırı tamamen kaldırmak istiyorum.

Örnek;
Sakız 5
Çikolata 7
Balon
Süt
Gazete 5

Adetleri olmayan veriler, Balon ve Süt, bu satırları tamamen kaldırcam mesela. Teşekkürler

 

[asi_kral]

Merhaba, sorumu basitçe açıklayayım,

A sütunu = ürün adı
B sütunu = adet

eğer B sütununda yani adet kısmında bir veri yoksa, o satırı tamamen kaldırmak istiyorum.

Örnek;
Sakız 5
Çikolata 7
Balon
Süt
Gazete 5

Adetleri olmayan veriler, Balon ve Süt, bu satırları tamamen kaldırcam mesela. Teşekkürler

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sil_1967()
'Konu       :   Adet Boş İse Sil
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
For asi = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(asi, "B") = Empty Then Rows(asi).Delete
Next
MsgBox "İşlem Tamam", vbInformation, "asi_kral_1967"
End Sub

 

[Kraosis]

sorunsuz çalışıyor, büyük zaman kazandım, teşekkürler.

 

[asi_kral]

sorunsuz çalışıyor, büyük zaman kazandım, teşekkürler.

Kolay Gelsin.