Karşılaştırma

[Akyürek1]

Merhabalar,
Ekte gönderdiğim dosyada ozet sayfası ile yuklenilen sayfalarını belge numarasına göre karşılaştırıp eşitlik sağlandığında yüklenilen kdv sütunundaki değeri yuklenilen sayfasındaki sütüna yazdırmak istiyorum.
Aşağıdaki kodu yazdım fakat 161272,472417,596164,69101,69136 numaralı belgelerin değerlerini getirmiyor. Mid fonksiyonundan kaynaklandığını düşünüyorum fakat bulamadım yardımcı olursanız sevinirim.

Selamlar.



Sub karsilastir()
ozet_son = Sheets("ozet").Range("a200").Row
yuklenilen_son = Sheets("yuklenilen").Range("e100").Row
For i = 2 To ozet_son
ara = Mid(Sheets("ozet").Cells(i, 1).Value, 10, 10)
For j = 2 To yuklenilen_son
sonuc = Sheets("yuklenilen").Cells(j, 5).Value
If ara = sonuc Then
Sheets("yuklenilen").Activate
Sheets("yuklenilen").Cells(j, 12).Value = Sheets("ozet").Cells(i, 7).Value

GoTo Devam
End If
Next
Sheets("ozet").Cells(i, 9).Value = "yok"
Sheets("ozet").Activate
Sheets("ozet").Cells(i, 9).Select
Devam:
Next
End Sub