Döngü içinde değişken tanımlama

[yelgecak]

ita = 4
atyo = 2

For sayim = 1 To 3
Cells(2, it).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,INDIRECT(R[-1]C4 & ""!A23000""),atyo,0)"
aty = at + 1
it = it + 1
Next sayim


Arkadaşlar merhaba yukarıda vermiş yolduğum döngü içindeki (atyo) değişkeni yine sayfaya (atyo) diye geliyor sayısal değer almıyor yani nasıl yapmam gerektiği konusunda yardımlarınızı rica ediyorum

 

[Korhan Ayhan]

Merhaba,

Formül bölümünü aşağıdaki gibi düzenleyip deneyin.

"=VLOOKUP(RC1,INDIRECT(R[-1]C4 & ""!A2:A3000"")," & atyo & ",0)"

 

[yelgecak]

Hocam çok teşekkürler ellerinize sağlık.