DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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