veri kaşılaştırma

[pablo_76]

arkadaşlar uğraştım ama yapamadım.eğer yardımcı olursanız çok sevinirim.
dosya içerisinde istediğim bilgileri yazdım.
herkese iyi günler

 

[Ömer]

Merhaba,

Modolue kopyalayarak çalıştırın.

Option Explicit
 
Sub Listele()
Dim i, sat1, sat2, son As Long
Application.ScreenUpdating = False
Range("G3:K65536").ClearContents
sat1 = 3: sat2 = 3: son = [A65536].End(3).Row
For i = 2 To son
    If WorksheetFunction.CountIf(Range("A3:A" & son), _
    Cells(i, "F").Value) > 0 Then
        Cells(sat1, "G") = Cells(i, "E")
        Cells(sat1, "H") = Cells(i, "F")
        sat1 = sat1 + 1
    End If
    If WorksheetFunction.CountIf(Range("F3:F" & son), _
    Cells(i, "A").Value) > 0 Then
        Cells(sat2, "I") = Cells(i, "A")
        Cells(sat2, "J") = Cells(i, "C")
        Cells(sat2, "K") = Cells(i, "D")
        sat2 = sat2 + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

.