DEĞİŞKEN (k(x))

[necro82]

Merhabalar,

Forumda konuyu uzunca araştırdım ancak soruma yanıt bulamadım.
Yapmak istediğim k(1), k(2) ... k(x) gibi teğişken tanımlayıp, bu değişkelerle işlem yapmak, ör: k(1)+k(2)...k(x) gibi.

bu konuda forumda tek bulabildiğim ekteki kod:

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

Ancak bu kodu çalıştırınca da a(b)=cells(1,a) satırında hata veriyor (run time error:13). bu konuda bilgisi olan arkadaşlar yardımcı olabilirler mi?

Teşekkürler

 

[Husgvarna]

Aşağıdaki şekilde olabilir.
Satır için:

 Dim a(15) As Variant
For b = 1 To 15
a(b) = Cells(1, b)
Next

Sütun için:

 a(b) = Cells(b, 1)

 

[uzmanamele]

merhaba

bunun gibi bişey işinizi görür mü?

Dim a(100) As Double
Sub deneme_1()

For i = 1 To 100
a(i) = i ^ 3
Next i
End Sub

Sub deneme_2()

Range("d1") = a(2)
End Sub

 

[necro82]

Merhaba,

Çok teşekkür ederim, çok işime yaradı + yeni birşey öğrenmiş oldum.

İyi günler...