düşeyara (vlookup)

[ilkersan]

merhaba
aşagıdaki gibi formülü makroya çevirdim ama hata veriyor ne olduğunu analayamadım???
ayrıca aynı formülü b1:b100 arası yapmak için range("b1:b100") yazamak yeterli midir.
yardımlarınız için şimdiden teşekkürler.
Sub eşleştir()
Range("b1") = "=vlookup(rc[-1],rc[21]:rc[26]c[3],2)"
End Sub

 

[fedeal]

Sub eşleştir()
For i = 1 To 100
Range("b" & i).Value = "=vlookup(rc[-1],rc[21]:rc[26]c[3],2)"
Next
End Sub

b1:b100 arası kopyalacaktır.

 

[ilkersan]

üstad dosya ekte çalışmadı hata verdi

 

[fedeal]

kusurabakmayın biraz geç bakabildim istediginiz bumu?

Sub xxx()
For i = 2 To 100
If Cells(i, 1).Value > 0 Then Cells(i, 2).Value = "=VLOOKUP(RC[-1],R2C[2]:R26C[3],2)"
Next i
End Sub