vba nöbet çizelgesi

[qwert11]

arkadaşlar ekde gönderdiğim sayfada BİR NÖBET SIRALAMASI YAPMAK İSTEMEKTEYİM SAYFADA YAZILI OLAN ARKADAŞLAR KARŞILARINDAKİ SAYI KADAR GÜN NÖBET TUTACAKLAR
VBA KODUNUDA ŞÖYLE YAZDIM ANCAK ÇALIŞTIRDIĞIMDA ANORMAL BİŞEY ÇIKIYOR
ÇALIŞMA SAYFASINDA ÇIKAN SONUÇ VE OLMASI GEREKEN SONUÇ BELİRTİLDİ
BANA VBA DA KOD KISMINDA YARDIMCI OLABİLİRMİSİNİZ

vba da nerde hata yapıyorum anlamadım

Private Sub CommandButton1_Click()
[a1] = "=Today()"
For y = 9 To 17
For i = 1 To 8
For x = 1 To Cells(y + 1, 2)
Cells(i + 1, x + 1) = Cells(y + 1, 1)
Cells(i + 1, x + 1).Interior.ColorIndex = 6
Next

Next
Next
End Sub
sadece ismin karşısındaki kadar kopyalayıp alt hücreyede diğerini sayısı kadar kopyalacak

yaardımlarınız için şimdiden teşekkürler

 

[qwert11]

aarkadaşlar lütfen yardım edin ben daha yeni sayılırım belki sizin için çok kolaydır
ÜSTADLAR NERDESİNİZ

 

[ian_em]

umarım işine yarar

Sub nöbet()

[a1] = "=Today()"
[b2].Select
i = 10
s = 2
Do
a = Cells(i, 2) + 1
For x = 2 To a
Cells(s, x) = Cells(i, 1)
Cells(s, x).Interior.ColorIndex = 6
Next x
i = i + 1
s = s + 1
Loop While i <= 17

End Sub

 

[qwert11]

ÇOK AMA ÇOK TEŞEKKÜRLER ian_em
TAM İSTEDİĞİM GİBİ OLMUŞ
SİZLERE BİR SORUM DAHA VAR
İLGİLENİRSENİZ SEVİNİRİM
EKDE DE BELİRTTİM
TARİHLERE NÖBET LİSTESİNİN YAN TARAFINDAKİ İSİMLERİDE TUTACAKLARI KADAR EKLEMEK İSTEMEKTEYİM EĞER ZAHMET OLMAZSA ONUDA NASIL YAPACAĞIMI BELİRTİRMİSİNİZ AYNEN RENKLERİDE YEŞİL OLACAK RENK KISMI PEKDE DERT DEĞİL AMA O LİSTEYİ YAPMAK ZOR
YARDIMINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER

 

[ian_em]

rica ederim, kolay gelsin.

Sub nöbet()

[a1] = "=Today()"
[b2].Select
i = 10
s = 2
Do
a = Cells(i, 2) + 1
b = a + Cells(i, 5)
MsgBox a
MsgBox b

For x = 2 To a
Cells(s, x) = Cells(i, 1)
Cells(s, x).Interior.ColorIndex = 6
Next x
y = a + 1
For r = y To b
Cells(s, r) = Cells(i, 4)
Cells(s, r).Interior.ColorIndex = 4
Next r

i = i + 1
s = s + 1
Loop While i <= 14

End Sub