istenen sayıda sıralama yapma

[vasifokur]

Ekteki örneğe uygun bir çalışmada yardımlarınızı bekliyorum. Konuların; değişen ders saatine göre o ders saati sayısı kadar sayıda alt alta yazdırılması mümkün müdür ? Yardımcı olmak isteyen arkadaşlara şimdiden teşekkürlerimi sunarım.

 

[meslan]

Merhablar

Sub SIRALA()
Range("f3:f" & [f100].End(3).Row).ClearContents
s = 3
For i = 3 To [c100].End(3).Row
For j = 1 To Cells(i, 3).Value
Cells(s, 6) = Cells(i, 2)
s = s + 1
Next
Next
End Sub

Kolay gelsin

 

[vasifokur]

Sn Meslan çok çok teşekkür ederim .

 

[vasifokur]

Bir şey daha isteyebilir miyim ? Birden fazla sütunu sıralamayı denedim ama nafile . Ekteki için bir yardım daha istesem ....

 

[meslan]

Sub SIRALA()
Range("f3:g" & [f100].End(3).Row+1).ClearContents
s = 3
For i = 3 To [D100].End(3).Row
For j = 1 To Cells(i, 4).Value
Cells(s, 6) = Cells(i, 2)
Cells(s, 7) = Cells(i, 3)
s = s + 1
Next
Next
End Sub

 

[rain2003]

Bir hücreye değişik veriler geliyor bu verileri kısa zaman aralıklarıyla otomatik olarak alt alta kaydedecek bir formul varmıdır.

 

[meslan]

Merhaba. Örnek dosyayı inceleyiniz.
Selamlar.

 

[rain2003]

Meslan Bey çok teşekkür ederim.
Biz böyle hassas makrolar için sürekli size yazabilirmiyiz
yada vb kodlarını anlayacagımız bi kaynak tavsiye edermisiniz.