Sayfadaki Bir Hücre Değerini Aratıp Sonucu Label Nesnesine Yazdırma

[BedriA]

Arkadaşlar,

Belli bir sayfadaki hücre değerlerini sırayla başka bir sayfada aratıp
sonuçları label nesnelerine yazdırmak istiyorum.

Örneğin X sayfasındaki E8, E9, E10, E11, E12
ve G8, G9, G10, G11, G12 hücrelerinin değerlerini
Y sayfasının A sütununda aratıp çıkan sonuçları
(kaç kez tekrarlandığını) label nesnelerine
(10 tane) yazdırmak istiyorum.

Aşağıdaki kod ile yapmaya çalıştım ama beceremedim.
Kırmızı kısıma hücre değerini atayamıyorum.

Yardımcı olur musunuz?

[COLOR="red"]b = Sheets("X").Range("e8")[/COLOR]


Sheets("Y").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-1]:R[65536]C[-1],""[B][COLOR="Red"]b[/COLOR][/B]"")"
a = Range("B1")
Label21.Caption = a
End If

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    Aranan = Range("A1").Value
    ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-1]:R[65536]C[-1],""" & Aranan & """)"
End Sub

 

[BedriA]

Deneyiniz.

Sub TEST()
    Aranan = Range("A1").Value
    ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-1]:R[65536]C[-1],""" & Aranan & """)"
End Sub

Çok teşekkür ederim.