Alt alta Sayı Sırala

[stirra_ej]

Arkadaşlar affınıza sığınarak bir durum arz etmek istiyorum, boş vakitlerimin çoğunu vba öğrenmek için geçiriyorum.. sorularım size gereksiz gelebilir ama kendimi geliştirmek adına bir şeyler üzerinde uğraşıyorum. Forumda gereksiz kalabalığa neden oluyor isem lütfen beni uyarın kimseye yük olmak istemiyorum..

Soruma gelince d5 hücresine 5 değeri var ise alt alta 6 7 8 9 10 diye hücreye d20 ye akdar sayıyı sıralasın.. d5 te 1 varsa 1 den başlayarak sıralasın..
yardımcı olabilirmisiniz...

 

[stirra_ej]

buraya ne eklersem cells i,5 = 6 olur 7 olur devam eder.. ?

For i = 1 To 10

Cells(i, 4) = 5

Next i

End Sub

 

[muratboz06]

Sorunuz biraz karmaşık. Ben anladığımı koda döküyorum. D5 hücresinde ne var ise D6 dan itibaren D20 ye kadar takip eden hücre önceki hücrenin 1 fazlasına eşit olacaktır.

Sub abc()
For i = 6 To 20

Cells(i, 4) = Cells(i - 1, 4).Value + 1

Next i

End Sub

Kodun açıklaması;
Hesaplamaya 6 ncı satırdan (D6) başlayacağım için i= 6 dedim,
Cells(i, 4) = Cels(6,4) =D6 hücresine eşittir.
Bu hücreye yapacağım hesaplama önceki hücrenin D5 in 1 fazlası olacağı için D5 in satır değeri olan 5 e ihtiyacım var. Bu da i-1 e (6-1) eşittir.
Cells(i - 1, 4) = Cells(5,4) = D5

Cells(i - 1, 4).Value = D5 hücresindeki değeri al
Cells(i - 1, 4).Value + 1 = D5 hücresindeki değeri al ve + ekle

Sonuç olarak;
Cells(i, 4) = Cells(i - 1, 4).Value + 1 => D6 hücresi eşittir D5 hücresindeki değer + 1 demektir.

next i => i yi bir artır yani i=6 idi. Bu ifade ile i = 7 oldu
..
...
..
Bu şekilde devam eder gider.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub aas()
For h = 1 To 15
Cells(h + 5, "d") = h + [d5]
Next
End Sub

 

[stirra_ej]

Teşekkür ederim yarın deneyeceğim