satır silme

[igultekin2000]

iyi akşamlar;
çalışma sayfasında işlemleri hızlandırmak için , değer olarak eşit olan ikili satırları , satır olarak silmek istiyorum. borç - alacak eşitse silinmesi şeklinde

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olur.
.

[B]Sub SATIR_SIL()[/B]
Set wf = Application.WorksheetFunction
Application.DisplayAlerts = False
For sat = 2 To Cells(Rows.Count, 1).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("A" & sat & ":J" & sat).Delete Shift:=xlUp
[COLOR="Red"]        If sat < gsat Then gsat = gsat - 1[/COLOR]
        Range("A" & gsat & ":J" & gsat).Delete Shift:=xlUp
        sat = sat - 1
    End If
Next
Application.DisplayAlerts = True
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
[B]End Sub[/B]

 

[igultekin2000]

sorunsuz çalışıyor

Merhaba.

Aşağıdaki gibi olur.
.

[B]Sub SATIR_SIL()[/B]
Set wf = Application.WorksheetFunction
Application.DisplayAlerts = False
For sat = 2 To Cells(Rows.Count, 1).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("A" & sat & ":J" & sat).Delete Shift:=xlUp
        Range("A" & gsat & ":J" & gsat).Delete Shift:=xlUp
        sat = sat - 1
    End If
Next
Application.DisplayAlerts = True
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
[B]End Sub[/B]

çok teşekkür ederim, sorunsuz çalışıyor.

 

[Orion1]

aşağıdaki satırı ilgili satırla değiştirin.

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

 

[igultekin2000]

sonradan daha verdi

Merhaba.

Aşağıdaki gibi olur.
.

[B]Sub SATIR_SIL()[/B]
Set wf = Application.WorksheetFunction
Application.DisplayAlerts = False
For sat = 2 To Cells(Rows.Count, 1).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("A" & sat & ":J" & sat).Delete Shift:=xlUp
        Range("A" & gsat & ":J" & gsat).Delete Shift:=xlUp
        sat = sat - 1
    End If
Next
Application.DisplayAlerts = True
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
[B]End Sub[/B]

örnek dosyası ekledim, silmede hata yapıyor anlayamadım.

 

[Orion1]

örnek dosyası ekledim, silmede hata yapıyor anlayamadım.

4 nolu mesaja yazdıklarımı okuyun.

 

[Ömer BARAN]

Önceki cevabımdaki kod'a bir satırlık ekleme (kırmızı renklendirdim) yaptım.
Sayfayı yenileyerek kod'un yeni haline bakın.

 

[igultekin2000]

sorun çözüldü.

Önceki cevabımdaki kod'a bir satırlık ekleme (kırmızı renklendirdim) yaptım.
Sayfayı yenileyerek kod'un yeni haline bakın.

teşekkürler, sorunsuz çalışıyor.

 

[igultekin2000]

sorunsuz çalışıyor

aşağıdaki satırı ilgili satırla değiştirin.

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

sorunsuz çalıştı, teşekkürler