VBA ile BUL ve VARSA HÜCREYE EKLE ?

[CengizYurek]

Merhabalar
Bir konuda yardımınızı talep ediyorum fakat bir türlü nasıl yapacağımı bulamadım. Sanırım bilgim yetmemişte olabilir.
3 tane sayfam var.
Sayfa1de ürün isimleri
Sayfa2de butona basına sayfa1deki ürünleri rastgele benzersiz olarak A1:F1 arasında yerleştiren bir makrom var.
Sayfa3de ise Sayfa2 A1:F1 arasında olan ürünleri şu şekilde sıralamak istiyorum ama yapamadım:
Bu arada Sayfa3te A1:A7 arasında tüm ürün isimleri var.

Butona basınca sayfa2 A1:F1 arasında ki benzersiz ürünler içinde Sayfa3 A1 varsa karşısına yani B1e "X" yazsın, sonra Sayfa2 A1:F1 arasındaki benzersiz ürünler içinde Sayfa3 A2 varsa karşısına yani B2ye "X" yazsın.

VBA ile başaramadım.

Yardımınızı bekliyorum. Teşekkür ederim.

@ÖmerBey;

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    With Sheets("Sayfa3").Range("B1:B7")
        .Formula = "=IF(COUNTIF(Sayfa2!$A$1:$F$1,A1)>0,""X"","""")"
        .Value = .Value
    End With
End Sub