Eşit olmayan verileri aynı sayfada eşleştirme

[korel durmaz]

Elimde aynı sayfa üzerinde 2 tablo var bu tablolardaki verileri iki sütuna göre karşılaştırmam ve aynı değerde olanları yanyana yazmasını sağlamam gerekiyor. Ancak verilerden 2 sütununda uyum sağlaması gerekiyor. Karşılaştırılma yapılan bir sütun tam uyum sağlarken diğer sutunda +- 5 dk eşleşme için ideal sayılmakta bunu makro ile nasıl yapabilirim.Bu arada sol tablo ana tablomuz olup sağdaki tablodaki veriler soldakine göre şekil almalı..(veri silinecekse sağdaki tablodan veri yok ise sağdaki tabloda bir satır boş olmalı). Uzman arkadaşlarımızdan yardımcı olabilecek var ise çok mutlu olurum.Saygılarımla.

 

[Orion1]

Ekli dosyayı deneyiniz.

Sub aynisi59()
Dim sat As Long, i As Long, dakka As Integer, vakit As Date
sat = Cells(Rows.Count, "J").End(xlUp).Row
For i = 25 To sat
    vakit = Cells(i, "N").Value - Cells(i, "J").Value
    dakka = VBA.Minute(vakit)
    If Cells(i, "N").Value <> "" And dakka > 5 Or dakka < -5 Then
        Range("L" & i & ":U" & i).ClearContents
    End If
Next i
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com.", _
    vbOKOnly + vbInformation, Application.UserName
End Sub

 

[korel durmaz]

Hocam çok teşekkür ederim emeğinize sağlık; macro sonucu bazı sarı sutunlarda eşleşmeyen veriler bulunmakta, bunların nasıl giderilebileceği hakkında öneriniz var mı acaba? Yanlış anlamaya sebep vermemek amacıyla kısaca yapacaklarımız : 1'inci tablodaki verileri 2'inci tabloda arıyacağız. Sarı sütunlar 1'e 1 eşleştiği; yeşil sütunlar +-5 dk ile eşleştiği zaman ikinci tablodaki satırı birinci tablodaki satırın hizasına taşıyacak.Eşleşmeyen verilerde 2'inci tablodan silinecek.Saygılarımla