Voolkup Macrosu Text Değerlerde Çalışmıyor

[search77]

Merhaba Arkadaşlar,
Aşağıdaki Kod Sheet1 sayfasına Sheet2 sayfasından Voolkup yaparak bilgi getiriyor, fakat içerik TEXT olduğunda sapıtıyor, kodu hem TEXT hemde DEĞER olduğunda çalışması için nasıl değiştirmeliyiz, örnek dosyada ekledim.
Teşekkürler.

Sub FastestVlookup()
zaman = TimeValue(Now)
Sheets("Sheet2").Select
Sheet2sonsatir = Cells(Rows.Count, "A").End(3).Row

Sheets("Sheet1").Select
Sheet1sonsatir = Cells(Rows.Count, "A").End(3).Row

secim = "B1:B" & Sheet1sonsatir
secim1 = "B2:B" & Sheet2sonsatir

Range(secim1).Select
Selection.ClearContents
Range("B2").Select

formul = "=IF(VLOOKUP(RC1,Sheet2!R1C1:R" & Sheet2sonsatir & "C1,1)=RC1,VLOOKUP(RC1,Sheet2!R1C1:R" & Sheet2sonsatir & "C2,2),""N/A"")"
With Sheet1.Range(secim)
.FormulaR1C1 = formul
.Value = .Value
End With
MsgBox "İşlem Süresi : " & CDate(TimeValue(Now) - zaman)
End Sub

 

[askm]

formul = "=IF(VLOOKUP(RC1,Sheet2!R1C1:R" & Sheet2sonsatir & "C1,1)=RC1,VLOOKUP(RC1,Sheet2!R1C1:R" & Sheet2sonsatir & "C2,2),""N/A"")" kısmındaki if şartınız karışık geldi. Yapmak istediğiniz işlemi formul olarak yazıp atabilir misiniz vba ile if koyalım.

 

[search77]

aslında örnek dosyada ne yapmak istediğim belli yani formül yazmak istersem şu şekilde olmalı
=VLOOKUP(A2;Sheet2!A:B;2;0)

 

[askm]

Direkt o şekilde yazdırsa idiniz. If ( eğer) şartını niye koydunuz. Onu anlamadım. Eğer A sütunundaki değer ile aranan değer eşitse demişsiniz.

 

[Ömer BARAN]

Merhaba.

Bu işi ille de makro ile yapmak istiyorsanız;
aşağıdaki kodu kullanabilirsiniz.
.

[FONT="Arial Narrow"][B]Sub ARABUL()[/B]
Set s1 = Sheets("Sheet1"): Set s2 = Sheets("Sheet2"): Set wf = Application.WorksheetFunction
For satır = 2 To s1.[A65536].End(3).Row
If wf.CountIf(s2.Range("A:A"), s1.Cells(satır, 1)) > 0 Then _
    s1.Cells(satır, 2) = s2.Cells(wf.Match(s1.Cells(satır, 1), s2.Range("A:A"), 0), 2)
Next
[B]End Sub[/B][/FONT]

 

[search77]

Çok tşk ederim ömer bey, bu işimi görür, elinize sağlık, tekrar teşekkürler.
Syg.