Veri Karşılaştırma

[nadirornek]

Merhabalar,

Veriler sayfasındaki H sütununda grup isimlerim mevcut.Her grubun elemanıda E sütunundadır.
Yapmak istediğim grubu bulduğunda elemanlarını kaynak sayfasındaki A sütunu ile karşılaştıracak.
Grubun tüm elemanları kaynak sayfasındaki verilerle eşleşiyorsa sonuc sayfasına grup ismi ve kaynaktaki kod karşılığı yazılacaktır
Örneğin elemanlarda uyuşmayan veri var ise "DD6322850456" bunda olduğu gibi HATALI 'dır yazacak. Macro ile nasıl yapabiliriz.

Ekte örnek sayfa mevcuttur.

Teşekkürler.

 

[nadirornek]

Sub aktar()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim s As Integer
Dim kod As String
Dim pnumber As String
Dim bayrak As Integer
j = 1
bayrak = 0
For i = 1 To 6000
If Sheets("veriler").Cells(i, 8).Value <> "" Then
pnumber = Sheets("veriler").Cells(i, 8).Value
k = i + 2
Do
If Sheets("veriler").Cells(k, 5).Value <> "" Then
For s = 2 To 21
If Sheets("kaynak").Cells(s, 1).Value <> "" And Sheets("veriler").Cells(k, 5).Value <> "" Then
If Sheets("veriler").Cells(k, 5).Value = Sheets("kaynak").Cells(s, 1).Value Then
kod = Sheets("kaynak").Cells(s, 2).Value
bayrak = 1
k = k + 1
Else
bayrak = 0
Exit Do
End If
End If
Next s
k = k + 1
Else
Exit Do
End If
Loop
If bayrak = 1 Then
Sheets("sonuc").Cells(j, 1).Value = pnumber
Sheets("sonuc").Cells(j, 2).Value = kod
j = j + 1
End If
End If
Next i
End Sub

Böyle bir kod oluşturdum.Ancak veriler sayfasında H sutununda bir veriyi karşılaştırıyor.
Diğer alttaki verilere nasıl karşılaştırabiliriz.Kodda biraz eksiklik var.

 

[nadirornek]

Fikri olan arkadaşlar yazabilir çözüme ulaşalım.

 

[nadirornek]

Arkadaşlar yokmu bu işin ilacı.