satır sildirirken şartları belirleme

[Erdem Akdemir]

herkese selamlar

ekteki dosyada kodu aşağıdaki gibi yazında g sütunundaki kdv'si sıfır olanları siliyor

ama gaz faturası gecikme bedeli'nde de kdv sıfır ama ben onun silinmesini istemiyorum

yardımlarınızı bekliyorum

iyi çalışmalar

Sub karamanfatura2()
Application.ScreenUpdating = False
Dim i As Long
For i = [a65536].End(3).Row To 2 Step -1
If Cells(i, 7) = 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

bu şekil deneyiniz.

If Cells(i, 7) = 0 And Cells(i, "c") <> "Gaz Bedeli Faturasi Gecikme Bedeli" Then

 

[veyselemre]

If Cells(i, 7) = 0 And Not Cells(i, 3) Like "Gaz*Gec*Bed*" Then

 

[Erdem Akdemir]

iki uzman arkadaşada teşekkür ederim

herkese iyi çalışmalar