For döngüsü yardım

[kadir78]

İyi günler. Aşağıdaki for döngüsünde T1 T2 T3 vs. ilerleme döngüsünü yapamadım.

set s1 = sheets("Veri")

T1 = s1.[D1]
T2 = s1.[D2]
T3 = s1.[D4]
'vs.... T9 a kadar

for c = 1 to 9

Sheets("0" & c).select
Range("B2").select
Activecell.FormulaR1C1 = T & (0 + c)
Range.("B5").select

Next c

Bu döngüde T değerlerini arttıramıyorum. T değerlerinin içinde tarihler yazılı. Sayfa adlarıda 01 02 03 vs.. devam ediyor. Tarihlerin gün ve ay doğru, yıl yanlış yazıyor. Yardımcı olurmusunuz.

 

[ÖmerBey]

Merhaba,
Tam emin olamadım ama kastettiğiniz şöyle bir şey olabilir mi?

For c = 1 To 9
    Sheets("0" & c).Range("B2").Value = s1.Range("D" & c + 1).Value
Next

 

[Cengiz Demir]

T değişkenini array olarak tanımlayabilirsiniz.

Dim T(9)

T(1) = s1.[D1]
T(2) = s1.[D2]
T(3) = s1.[D4]
.........
Activecell.FormulaR1C1 = T (c)

 

[kadir78]

Çok sağolun teşekkür ederim.