Seri tanımlama

[faruksir]

Merhaba
Excelde aşagıdaki değişkenleri kullanmak istiyorum.
AY1
AY2
AY3
AY4
AY5
.
.
.
AY72

Tek tek değişkenleri yazmak yerine
AY(i) şeklinde bir seri tanımlayıp onu kullanmak istiyorum.
Seri tanımlama nasıl yapılıyor?

Dim AY as integer

tanımlamasına hangi kodu eklemeliyim?
teşekkürler

 

[hüsün]

dim i as integer
dim AY()
redim AY(72)
for i=1 to 72
AY(i-1)=i
next

 

[faruksir]

çok teşekkürler, sağolun.
bişey daha sormak istiyorum.
diyelim ki ben by AY değişkenlerini bir sütüna yazdırmak istiyorum. B kolonunun İ+16 satırından iticaren, şöyle bir şey yazdım ama hücreyehiçbirşey yazılmıyor. sorun ne olabilir?

for i=1 to 72
Sayfa2.Cells(i + 16, 2).Value = AY(i)
next

 

[zafer]

merhaba

Sub cc()
For i = 1 To 72
Cells(i + 16, 2) = "AY" & i
Next
End Sub

 

[faruksir]

bu şekilde yapınca
Expected: line number or label or statement or end of statement
hatasını veriyor.
ben bi türlü işin içinden çıkamadım

 

[zafer]

Merhaba

Yazdığınız makronuzu eklermisiniz.

Yukarıdaki kod çalıştığında b16 dan başlayıp b86 kadar Ay1,AY,.................AY72 yazar

Saygılarımla

 

[faruksir]

benim yazdığım makro çok daha farklı ama onu yazdığım zaman herhalde çok karışık geldiği cevap alamıyorum. Oyüzden basitleştirip soruyorum.
Asıl makro şöyle:
If 0 < BTAL(1) <= KAL Then Sayfa2.Range("B10:B17").Value = BTAL(1)
If BTAL(1) >= KAL Then
Sayfa2.Range("B10:B17") = KAL
BTAL(2) = BTAL(1) - KAL
Sayfa2.Range("a10:a17") = 1
End If

Dim q As Integer
Dim w As Integer
For q = 2 To 18
w = q + 16
BTAL((q + 1)) = BTAL(q) - KAL
If BTALq <= 0 Then Exit For
If BTAL(q) >= KAL Then
Sayfa2.Cells(w, 2).Value = KAL
Sayfa2.Cells(w, 1).Value = q
End If
If 0 < BTAL(q) < KAL Then
Sayfa2.Cells(w, 2).Value = BTAL(q)
Sayfa2.Cells(w, 1).Value = q
End If
Next
End If


ilgin için çok teşekkürler
faruk

 

[zafer]

Merhaba

Ben açıklamanızı yanlış anlamışım.Afedersiniz.

Makro bana biraz karışık geldi.Arkadaşların inceleyeceklerdir.

Dosya ekleseniz. hücrelere ne yapmak istediğinizi açıklasanız daha iyi sonuçlar alabilirsiniz diye düşünüyorum


Saygılarımla

 

[faruksir]

Tamam sorun çözüldü,
çalışmamasının sebebi
If BTALq <= 0 Then Exit For satırının
If BTAL(q) <= 0 Then Exit For şeklindem olması gerektiğiymiş. :kafa:
kaç saattir bakıyorum ve göremiyorum hatayı. :kafa: :kafa: k::