Satır Sil

[igultekin2000]

İyi günler;
borç ve alacağı eşit olan satırları makro ile siliyorum. bazen işlemi tamamen bitirirken , bazen de işlemin yarısında duruyor, tekrar çalıştırdığımda devam edip sonuçlandırıyor, bu duraksamayı önlemek için makroya ilave bir şey yapmak gerekir mi? belki bir işlem makroyu durduruyor olabilir düşüncesiyle Application.EnableEvents=Ture ' de ekledim, bazı makrolar da işe yaramıştı bu sefer olmadı. Teşekkürler.

Sub SATIR_SIL()
'satıcı
Set wf = Application.WorksheetFunction
Application.DisplayAlerts = False
For sat = 3 To Cells(Rows.Count, 2).End(3).Row
    If Cells(sat, "F") > 0 And wf.CountIf(Range("G:G"), Cells(sat, "F")) > 0 Then
        gsat = wf.Match(Cells(sat, "F"), Range("G:G"), 0)
        Range("B" & sat & ":J" & sat).Delete Shift:=xlUp
        If sat < gsat Then gsat = gsat - 1
        Range("B" & gsat & ":J" & gsat).Delete Shift:=xlUp
        sat = sat - 1
    End If
Next
Application.DisplayAlerts = True
Application.EnableEvents = True
'MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
End Sub

 

[Ömer]

Merhaba,
Silme işlemlerinde döngüyü tersten başlatırsanız sağlıklı sonuçlar alırsınız.
Yapılması istenen silme işlemi nedir?

For sat = Cells(Rows.Count, 2).End(3).Row To 3 Step -1

gibi.

 

[Muzaffer Ali]

Sayın Ömer'in dediğine ilaveten
sat = sat - 1
satırını silmelisiniz.

 

[igultekin2000]

Merhaba,
Silme işlemlerinde döngüyü tersten başlatırsanız sağlıklı sonuçlar alırsınız.
Yapılması istenen silme işlemi nedir?

For sat = Cells(Rows.Count, 2).End(3).Row To 3 Step -1

gibi.

bu şekilde de denedim bir satır daha sildi ama tamamını gene silmedi.

 

[igultekin2000]

Sayın Ömer'in dediğine ilaveten
sat = sat - 1
satırını silmelisiniz.

yanlış anlamışım, dediğiniz satırı silince düzeldi, teşekkürler