aynı tarih ve tutarı içeren 2 satırın tümünü sil

[makk]

Ekli excel tablosunda Tarih (L) sütunu ve (S) TRY Bakiye sütunundaki artı ve eksi verileri birebir karşılaştıran, aynı değer olanların tüm satırını silen bir makro lazım, bu konuda değerli yardımlarınızı rica ederim. Ekli örnek Excel tablosunda orjinal ve makrodan uygulandıktan sonra istenilen şekli ayrı ayrı sheet'lerde belirtilmiştir.

İyi Çalışmalar,
Murat Akkaya

 

[leumruk]

Merhaba,
Yaptığınız açıklama ile örnek dosyada verdiğiniz olması gereken sayfasındaki örneklendirme birbiriyle örtüşmüyor. Silinmesi gereken satırları kendi sayfasında renklendirip dosyayı yeniden ekleyebilir misiniz?

 

[makk]

İstediğiniz şekliyle dosya eklenmiştir

Merhaba,

Silinmesi gereken satırları kendi sayfasında renklendirerek dosyayı yeniden ekledim. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre sarı renkle işaretli satırlar silinecek satırlar. Fakat 13. ve 14. satırlar beyaz renkli ve silinmemesi gerekiyor fakat sebebini anlamadım. Açıklarmısınız?

 

[leumruk]

Merhaba,

Silinmesi gereken satırları kendi sayfasında renklendirerek dosyayı yeniden ekledim. Şimdiden teşekkürler.

Merhaba,
Örnek dosyayı inceleyiniz.

Sub Sil()
Application.ScreenUpdating = False
For x = [a65536].End(3).Row To 4 Step -1
deg = Cells(x, "s")
If deg = "" Then
ElseIf deg < 0 Then
deg = WorksheetFunction.Substitute(Cells(x, "s"), "-", "")
Else
deg = "-" & Cells(x, "s")
End If
    Set Bul = Range("s4:s" & x).Find(CDbl(deg), LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        If Cells(x, "l") = Cells(Bul.Row, "l") Then
        Cells(x, "s") = ""
        Cells(Bul.Row, "s") = ""
        End If
    End If
    If Cells(x, "s") = "" Then Rows(x).Delete Shift:=xlUp
Next
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[makk]

tşk

"leumruk" yardımın için tekrar teşekkür ederim. Makron işimi gördü.
Saygılar,
Murat

 

[leumruk]

"leumruk" yardımın için tekrar teşekkür ederim. Makron işimi gördü.
Saygılar,
Murat

Rica ederim.