Eski ödemelerin yenisi ile karşılaştırılması

[sirkülasyon]

Abilerim Eklediğim dosyanın LİSTE sayfasında kurumların elektrik fatura bilgileri girişi var. Bilgileri girip aktarılması istenen kurumu seçip Takibe aktar dediğim zaman aktarım işlemini yapıyor. "Kod Ömer uzmanıma ait koddur" Boş satırlarımı da gizle dediğim zaman gizleye biliyorum "Kod Korhan uzmanıma ait koddur" Ancak;
Takip sayfasına aktarılmış olan bir ödemeyi tekrar ödememek için LİSTE sayfasında KONTROL ET düğmesini çalıştırdığım zaman TAKİP sayfasında B:G aralığını kontrol edecek LİSTE sayfasında birebir aynı veriler örtüştüğü zaman KONTROL ET düğmesi ile LİSTE sayfasında UYARI kısmında "ÖDEMESİ DAHA ÖNCE YAPILMIŞTIR" uyarısını getiremedim.

Bu konuda yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Keşke örnek dosyanızda, deneme yapabilecek kadar veri olsaydı.

. . .

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False
Dim Sliste As Worksheet
Dim STakip As Worksheet
Set Sliste = Sheets("Liste")
Set STakip = Sheets("Takip")

Sliste.Range("H5:H65536").ClearContents

For i = 5 To Sliste.[C65536].End(3).Row

Set ara = STakip.Range("C:C").Find(Sliste.Cells(i, "C"), , xlValues, xlWhole)
If Not ara Is Nothing Then
Adres = ara.Address

Do
If Sliste.Cells(i, "B") = STakip.Cells(ara.Row, "B") And _
    Sliste.Cells(i, "C") = STakip.Cells(ara.Row, "C") And _
    Sliste.Cells(i, "D") = STakip.Cells(ara.Row, "D") And _
    Sliste.Cells(i, "E") = STakip.Cells(ara.Row, "E") And _
    Sliste.Cells(i, "F") = STakip.Cells(ara.Row, "F") And _
    Sliste.Cells(i, "G") = STakip.Cells(ara.Row, "G") Then
Sliste.Cells(i, "H") = "ÖDEMESİ DAHA ÖNCE YAPILMIŞTIR"
[B]Exit Do[/B]
Else
End If

Set ara = STakip.Range("C:C").FindNext(ara)
Loop While Not ara Is Nothing And ara.Address <> Adres
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

Düzeltme: "Exit Do" satırı ilave edildi.

. . .

 

[sirkülasyon]

Hüseyin abi kod için bir kaç deneme yaptım çalışıyor teşekkür ederim.
Ellerine sağlık