Döngü Deyimleri

[faruksir]

Merhaba,
bir döngü yazmaya çalışıyorum ama kodları tam olarak bilmediğim için çalıştıramıyorum.
BTAL3, BTAL4, BTAL5.... değişkenlerini
Ve A, B C hücreleri için
A18, A19,A20
farklı değerler atamak istiyorum.
Hatamın nerde olduğunu bildiriseniz çok sevinirim. yardımlarınız için çok teşekkürler
faruk



Dim q As Integer
Dim p As Integer
Dim w As Integer

For q = 2 To 18
p = q + 1
w = q + 16

If 0 <= BTALq <= KAL Then
Sayfa2.Range(Bw).Value = BTAL2
Sayfa2.Range("Aw") = 2
End If

If KAL <= BTALq Then
Sayfa2.Range("Bw") = """"
BTALp = BTALq - KAL
Sayfa2.Range("Cww") = """"
Sayfa2.Range("Aw ") = "2"

End If
If BTALq < 0 Then
break
End If
Next

 

[faruksir]

Açıklama

Þu ana kadar hiç cevap gelmediğine göre sorumu biraz daha net bir şekilde sormam gerek herhalde.
1. Döngülerde eğer a1 a2 a3 ......a100 gibi farklı değişkener yaratmak istersem nasıl ifade edebilirm?
2. B1, B2, B3.....B30 hücrelerine değer atamak istersem nasıl yapabilirim?
teşekkürler
faruk