2 Koşullu Satır Sil

[baydeniro]

Merhaba arkadaşlar,

Hem B sütununda hem de C sütununda verisi olmayan satırların silinmesi mümkün mü ?

Örnek dosya linki :
http://s5.dosya.tc/server5/lfari1/Kosullu_Satir_SIl.xls.html

 

[BedriA]

Kırmızı kısıma kendi sayfanızın adını yazarak deneyiniz.

Sub Dene()
On error resume next
[COLOR="Red"]Sheets("sayfa2").Select[/COLOR]
son = Range("B65536").End(xlUp).Row
For i = 1 To son
If Range("b" & i).Value="" And Range("c" & i).Value =""Then
Rows(i).Select
Selection.EntireRow.Delete
End If
Next
End Sub

 

[baydeniro]

Sayın BedriA çok çok teşekkür ediyorum, elleriniz dert görmesin. Emeğinize, aklınıza sağlık. Sağlıcakla kalın.

 

[baydeniro]

Sayın BedriA minik bir düzeltme rica edebilir miyim acaba ! Silme alanının B20:C100 olarak düzenlenmesi mümkün mü ?

 

[PLİNT]

Sayın BedriA minik bir düzeltme rica edebilir miyim acaba ! Silme alanının B20:C100 olarak düzenlenmesi mümkün mü ?

Merhaba
Sayın BedriA hocam son mesajınızı görmemiş sanırım bu istediğiniz şöyle olabilir;

[SIZE="2"]
Sub Dene()
For i = 100 To 20 Step -1
If Range("b" & i).Value = "" And Range("c" & i).Value = "" Then
Rows(i).EntireRow.Delete
End If
Next
end sub
[/SIZE]

 

[baydeniro]

Sayın PLİNT çok çok teşekkür ediyorum. Çok makbule geçti. Emeğinize sağlık, sağlıcakla kalın.