Veriyi 2 kolona göre karşılaştıracak, uygun ise kesip yapıştıracak makro

[korel durmaz]

Değerli uzman arkadaşlar, ekte göndermiş olduğum dosyada; A kolonunun 1 inci verisi AC kolonunun tamamında aranacak. Aynı olan verilerin W sutununa bakılacak 1'inci verinin J sutunu ile karşılaştırılacak zaman farkı +-5 dk ise eşleşen satır U sutunundan AD sutununa kadar kesilerek Ksurunundan T sutununa kadar yapıştırılacak.Örnek dosyada ilk 10 satırı manuel olarak yaptım umarım anlaşılıyordur. Yardımlarınız içinteşekkür ederim.Olan sayfası mevcut hali gösteriyor, diğer sayfa olmasını istediğimi saygılarımla

 

[korel durmaz]

Bu konuda yardımcı olabilecek bir arkadaşımız yok mu? bu kodu yazdım fakat hepsini kopyalayıp yapıştırıyor

ben Sub Macro1()
'
' Macro1 Macro
'

'


For i = 2 To Range("a65536").End(3).Row

Bak = WorksheetFunction.CountIf(Range("AC2:AC600"), Cells(i, "A"))
If Bak > 0 Then
vakit = Cells(i, "W").Value - Cells(i, "J").Value
dakka = VBA.Minute(vakit)
If dakka < 5 Or dakka > -5 Then

Range("U" & i & ":AD" & i).Cut
Range("K" & i & ":T" & i).Select
ActiveSheet.Paste

End If
End If


Next i

End Sub