for next döngüsü istendiği gibi çalışmıyor

[aybekcan]

merhabalar
excel de sayfa2 de c7 hücresinden başlayarak 7 satır aralıklarla 1,2,3.. diyerek 12'e kadar yazması gerekiyor.ama benim yaptığım macroda yazmaya c7 den başlaması gerekirken f14 ten başlıyor istendiği gibi 7 satır atlıyor fakat bu defa da bütün satırlara 12 yazıyor.
bu macronun neresi yanlış?bana anlatabilir misiniz?
Sub yerleştir()

Dim i As Byte
Dim b As Byte
For i = 1 To 12
For b = 7 To 84 Step 7

Worksheets("sayfa2").Cells(RowIndex:=7, columnindex:=3).Offset(b, 3) = i
Next b

Next i


End Sub

 

[halit3]

kod:

Sub yerleştir()
sat = 7
For i = 1 To 12
Worksheets("sayfa2").Cells(sat, "c").Value = i
sat = sat + 7
Next i
End Sub

 

[aybekcan]

çok iyi çalıştı,çok teşekkür ederim.elinize sağlık.

 

[aybekcan]

hocam benim yazdığım macro da sorun neden kaynaklanıyor? Rica etsem anlatabilir misiniz?

 

[halit3]

For i = 1 To 12

döngüsü fazla i herseferinde çalışıyor ve son sayısı 12 olduğu için hep 12 değerini veriyor.

şöylede yapabilirsiniz.

Sub yerleştir2()
Dim i As Byte
Dim b As Byte
'For i = 1 To 12
For b = 7 To 84 Step 7
i = i + 1
Worksheets("sayfa2").Cells(RowIndex:=7, columnindex:=3).Offset(b, 3) = i
Next b
'Next i
End Sub

 

[aybekcan]

çok teşekkür ederim.

 

[aybekcan]

hocam rahatsız ediyorum ama birde şu makroya bakarmısınız.burada ayları for next döngüsünde nasıl kullanabiliriz?
Sub aylar()
Dim say As Byte
Dim i As Byte
Dim ay As Date
For i = 1 To 12
For ay = "ocak" To "aralık"
say = say + 7
Select Case Cells(say, "b").Value = i
Case Cells(say, "c").Value = ay
Next ay
Next i

End Sub

 

[halit3]

bu işinizi görürmü

Sub aylar()
Dim say As Long
Dim i As Long
For i = 1 To 12
say = say + 7
Cells(say, "c").Value = Format(DateAdd("m", i, 1), "mmmm")
Next i
End Sub

 

[halit3]

Bu kod da farklı

Sub aylar2()
Dim say As Long
Dim i As Long
say = 0
Dim ay(12)
ay(1) = "Ocak"
ay(2) = "Şubat"
ay(3) = "Mart"
ay(4) = "Nisan"
ay(5) = "Mayıs"
ay(6) = "Haziran"
ay(7) = "Temmuz"
ay(8) = "Ağustos"
ay(9) = "Eylül"
ay(10) = "Ekim"
ay(11) = "Kasım"
ay(12) = "Aralık"

For i = 1 To 12
say = say + 7
Cells(say, "d").Value = ay(i)
Next
End Sub

 

[aybekcan]

çok teşekkür ederim mükemmel çalıştı.Öğrenmek maksadıyla soruyorum,lütfen yanlış anlamayın.Ayların benim yazdığım kodda ki durumuyla bir kullanımı var mı acaba? Yani
for ay = ocak to aralık gibi.
Yada buna benzer bir kullanımı.sizin de zamanınızı alıyorum,anlayışınız için teşekkür ederim.