sayıların dağıtımı

[ismailozkan4224]

değerli arkadaşlar ekteki dosyada bir tablom var. bu tablomda iki adet bölüm var.
sabah bölümü
öğlen bölümü
tablonun sağ tarafında ise sıralı rakamlar var.
1-19 arası bazen bu 1-20 arası da olabiliyor AT sütununda
51-68 arası bazen bu da 51-70 arası olabiliyor. AU sütununda.
yani bu iki sütundaki sayılar değişebiliyor. sıralama ise aynı
benim istediğim ise sabah bölümünde c4-v4 satırına bu sayıları sırası ile dağıtacak. eksik kalan bölüme ise tekrar yeniden başlayarak sayıları yerleştirecek.yani kaydırarak c27-v27 ye kadar işlemi sürdürecek.
c4-v4 arası 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,1
c5-v5 arası 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,1,2
...................................................................................................
aynı mantıkla öğlen bölümü de uygulanacak. iki adet döngü ve son dolu satıra kadar sürebilecek bir döngü.yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşapıdaki kodu deneyiniz.

Sub Kod()
Dim sabah As Range, ogle As Range
Dim a As Integer
ssayi = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19)
osayi = Array(51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68)
Set sabah = Range("C4:V27")
Set ogle = Range("Y4:AR27")
sabah.ClearContents
ogle.ClearContents
For a = 1 To sabah.Cells.Count
    sabah.Cells(a).Value = ssayi((a - 1) Mod (UBound(ssayi) + 1))
Next
For a = 1 To ogle.Cells.Count
    ogle.Cells(a).Value = osayi((a - 1) Mod (UBound(osayi) + 1))
Next
End Sub

 

[ismailozkan4224]

ömer bey çok teşekkür ederim harika çalışıyor. ancak kusura bakmazsanız eğer mümkünse bir isteğim daha olacak.
sabah bölümünde 19 un
öğlen bölümünde 67 ve 68 in cuma bölümüne hiç gelmemesi ile ilgili bir çözüm olabilir mi? yani bunlar sadece
Pazartesi,Sal,ıÇarşamba,Perşembe bölümünde olsalar ve orada dönseler. sıradaki ile sırasıyla yer değiştirse mümkün mü?

 

[ÖmerBey]

Maalesef yardımcı olamayacağım, size iyi çalışmalar...

 

[ismailozkan4224]

teşekkür ederim ömer bey.