Koşullu Satır Silme

[seranonet]

=H12:I600 arasındaki sutunların her ikiside boş ise satırı tamamen silinmesi gerekiyor bu şekilde bir makro yapılabilirmi tek hücreye dayalı satırları silme var sitede ama bu şekilde bi türlü yapamadım

 

[Muhammet Okumuş]

Merhaba

Sub Sil()
Dim i As intger
Dim bos As Byte
Application.ScreenUpdating = False
For i = 600 To 12 Step -1
bos = WorksheetFunction.CountBlank(Range("H" & i & ":I" & i))
If bos = 2 Then Rows(i).Delete
Next

End Sub

Kodu deneyiniz.

 

[Necdet]

Merhaba,

Alternatif olsun, Belki 600 satırdan büyük verileriniz olabilir.

Sub Bos_Sat_Sil()
 
    Dim i As Long
    Dim j As Long
    
    i = Cells(Rows.Count, "H").End(3).Row
    j = Cells(Rows.Count, "H").End(3).Row
    
    If j > i Then i = j
    
    Application.ScreenUpdating = False
    
    For i = i To 12 Step -1
        If Cells(i, "H") = "" And Cells(i, "I") = "" Then Rows(i).Delete
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[Murat OSMA]

Ben de arkadaşın faydalanabilmesi için, Excel Dershanesi'ndeki For - Next ve For Each - Next ile ilgili konuların linklerini verecektim... :dusun:

Arkadaşın açtığın son konular genelde aynı konular. Artık aldığı cevaplardan kendisinin yapabileceğini ve biraz düşünüp mantığı anladıktan sonra daha farklı çözümler üretebileceğini düşünüyorum...

http://www.excel.web.tr/f60/for-each-anlatymy-ve-rnekler-t97432.html
http://www.excel.web.tr/f60/d-ng-ler-t5325.html
http://www.excel.web.tr/f60/donguler-t1923.html