Vlookup ile Çekilen Veriyi Stringe Çevirme(VBA)

[kadir_2010]

Merhabalar,

vlookup ile çektiğim veri "ABC" olmasına rağmen eşleşmeyi bulamıyor. Hücreyi formül formatında olduğu için okuyamıyor diyeceğim, o da değil galiba, çünkü ilgili hücreye copy-paste special(Values) kodunu uyguladığımda da bulamıyor. Ayrıca Format Cells'den Text olarak seçmek de işe yaramıyor.
Sebebini bilen bir arkadaş yardımcı olursa şimdiden çok teşekkür ediyorum.

Range("F1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R[3]C[-5],Sheet3!C[-6]:C[-1],6,)"
    

    If Sheet4.Cells(1, 6) = "ABC"  Then
    MsgBox ("Eşleşme Sağlandı")
    
    Else
    MsgBox ("Eşleşme Sağlanamadı")
    Exit Sub
    End If

 

[uzmanamele]

merhaba

bunu deneyiniz.

Range("F1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R[3]C[-5],Sheet3!C[-6]:C[-1],6,)"
    

    If Sheet4.Cells(1, 6)[COLOR="Red"].Text[/COLOR] = "ABC"  Then
    MsgBox ("Eşleşme Sağlandı")
    
    Else
    MsgBox ("Eşleşme Sağlanamadı")
    Exit Sub
    End If

 

[kadir_2010]

Çok teşekkür ederim, verdiğiniz kod ile sorunum çözüldü.