Nöbet listesine görevlilerin otomatik olarak dağıtılması

[ASLAN7410]

Sayın Muhammet Bey tekrar rahatsız edeceğim kusura bakmayın.

14. mesajımdaki örnek dosyamdaki Görevliler sayfasındaki personellerin yazılış sırasına göre nöbet listesine yazmam gerekiyormuş, bunu bu şekilde nasıl düzeltebilirim?
Şimdiden teşekkür ediyorum.

 

[Muhammet Okumuş]

Günlerde eşitlik falan önemli değil mi?

 

[ASLAN7410]

Günlerin eşitliği önemli değil, sadece personellerin yazılım sırasına göre ay içerisine sırasıyla yazmak gerekiyor.
Maalesef amirlerimiz personel yazım sırasına göre yazılması gerektiğini söylediği için bu formata çevirmem gerekiyor.

 

[ASLAN7410]

Sayın Muhammet Bey çizelgeye talimat gereği müdahale olduğu için nöbetlerin yazılı bulunan isim sırasına göre olması gerekiyor.
Teşekkür ediyorum.

 

[Muhammet Okumuş]

Sub Hesapla()
Range("D17:F48") = ""
Set g = Sheets("GÖREVLİLER")

a = 2
b = 2
c = 2

For i = 17 To 48
If Cells(i, 2) = "" Then Exit Sub
Cells(i, 4) = g.Cells(a, 3).Value
a = a + 1
If g.Cells(a, 3) = "" Then a = 2

Cells(i, 5) = g.Cells(b, 5).Value
b = b + 1
If g.Cells(b, 5) = "" Then b = 2

Cells(i, 6) = g.Cells(c, 7).Value
c = c + 1
If g.Cells(c, 7) = "" Then c = 2
Next
Set g = Nothing
End Sub

Kodunu deneyiniz.

 

[ASLAN7410]

Sayın Muhammet Bey çok süper oldu tam istediğim gibi ellerinize sağlık çok teşekkür ederim.

Bu kodun sonuna mesaj kutusu eklediğim halde mesaj kutusu çalışmadı.

Sub Hesapla()
Range("D17:F48") = ""
Set g = Sheets("GÖREVLİLER")
a = 2
b = 2
c = 2
For i = 17 To 48
If Cells(i, 2) = "" Then Exit Sub
Cells(i, 4) = g.Cells(a, 3).Value
a = a + 1
If g.Cells(a, 3) = "" Then a = 2

Cells(i, 5) = g.Cells(b, 5).Value
b = b + 1
If g.Cells(b, 5) = "" Then b = 2

Cells(i, 6) = g.Cells(c, 7).Value
c = c + 1
If g.Cells(c, 7) = "" Then c = 2
Next
Set g = Nothing
[COLOR="Red"]MsgBox "İşlem tamamlandı.", vbInformation, "A S L A N"[/COLOR]
End Sub

 

[Muhammet Okumuş]

Exit Sub yazan yere Go To 10 yazın. Next yazanyerin altına 10 yazın

 

[ASLAN7410]

Sayın Muhammet Bey çok teşekkür ederim, tam istediğim gibi oldu, Allah razı olsun sizi uğraştırdım hakkınızı helal edin.

Hayırlı çalışmalar diliyorum.

 

[Muhammet Okumuş]

Rica ederim. Formülleri siliniz.