Döngüyle değişken değeri atamak

[Mahmut Kök]

for a=1 to 15

...

next

döngüsü ile, A1 değişkeninin değeri, A1 hücresindeki değer, A2 değişkenin değeri B1 hücresindeki değer, A3'ün değeri C1 hücresindeki değer ( ... ) olacak şekilde döngü oluşturmak istiyorum, nasıl yapabilirim acaba?

Controls ("A" & a)=cells(1,a).value

gibi bir şeyler denedim, olmadı. Yardıcı olabilirseniz sevinirim. Teşekkürler..

 

[alpi]

Yapmak istediğiniz şey satırı sutüna çevirmek mi? Eğer öyleyse döngüye gerek kalmadan işlemi gerçekleştirebiliriz.

 

[Levent Menteşoğlu]

Değişkeni boyut olarak tanımlayarak yapabilirsiniz. Aşağıdaki gibi deneyin.

dim a(15)
for b=1 to 15
a(b)=cells(1,a)
next

 

[Mahmut Kök]

Teşekkürler...

 

[Mahmut Kök]

Sayın Leventm'nin dediği gibi 3 ayrı değişkeni döngü ile tanımladım.

dim TA (25), TB (25), TC (25)

başka bir sayfadaki verileri bu değişkenlere göre tarıyorum. Tarama yaptığım yerde A sütununda A, B veya C yazıyor. İstediğim; A sütununda A yazıyor ise değişken TA, B yazıyorsa TB, C yazıyorsa TC olsun.

...
cells(k,"a")="A"
kod=cells(k,"a") dersek
T & kod (k) '( yani TA (1) )

mantığı oluşturmak istedim, olmadı. Bu yöntemle bu işlemi yapabilir miyiz? Ben bu sorunu if cells(k,"a")="A" then ölçüt=TA (k) olarak yaptım, ama yukarıdaki şekil daha uygun olurdu bana.

Önerilerinizi bekliyorum, iyi çalışmalar..