Kapalı dosyada eşleşen tutarlarının bulunması

[1903emre34@gmail.com]

Merhabalar,
Kod aracılığıyla, sayfa 1'deki B8 hücresindeki 600 ana hesap kodu, sayfa 2 deki aynı hücrede ise (o da 600 hesap kodu ise) E sütünda X işareti yazıyor, benim istediğim kapalı dosyada 600 hesap kodu yanındaki tutar örneğin 10,00 TL olursa E sütünda X işaretin yazılmasını kodlarda nasıl değişiklik yapabiliriz

[

QUOTE]Sub Buldur()
SAY1 = Sheets("Sayfa1").Range("B" & Rows.Count).End(3).Row
SAY2 = Sheets("Sayfa2").Range("B" & Rows.Count).End(3).Row
For i = 1 To SAY1
If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("B8:B" & SAY2), Sheets("Sayfa1").Range("B" & i)) > 0 Then
Sheets("Sayfa1").Range("E" & i).Value = "x"
End If
Next
End Sub
[/QUOTE]