Öğretmen Nöbet Çizelgesi için Makro

[nurluali]

İyi akşamlar dileyerek ilgilenecek üstatlara şimdiden teşekkür ediyorum
Ekli belgede öğretmenler için aylık nöbet çizelgesi mevcut Planlama sayfasında açıklanma yapmaya çalıştım tam anlatabildim mi bilemiyorum fakat istediğim öğretmenlerin hangi gün nöbet tutacağını manuel olarak ders programına göre belirliyorum. Çizelgeye geçecek liste örnk: pzt nöbet tutacak öğretmenleri ilgili sütuna makro ile alabilmek. Ben formül kullanıyorum pzt nöbet tucak öğretmeni perşembe yaptım mı nöbet mahalleri değişiyor. sabit kalması için makroya ihtiyacım var.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
Dim a As Byte, pa As Byte, sa As Byte, ca As Byte, pe As Byte, cu As Byte
pa = 10
sa = 10
ca = 10
pe = 10
cu = 10
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("F11:F26,I11:I26,L11:L26,O11:O26,R11:R26").ClearContents
For a = 2 To Cells(Rows.Count, "C").End(3).Row
    If Cells(a, "C") = "Pzt" Then
        pa = pa + 1
        Cells(pa, "F") = Cells(a, "B")
    ElseIf Cells(a, "C") = "Sal" Then
        sa = sa + 1
        Cells(sa, "I") = Cells(a, "B")
    ElseIf Cells(a, "C") = "Çar" Then
        ca = ca + 1
        Cells(ca, "L") = Cells(a, "B")
    ElseIf Cells(a, "C") = "Per" Then
        pe = pe + 1
        Cells(pe, "O") = Cells(a, "B")
    ElseIf Cells(a, "C") = "Cum" Then
        cu = cu + 1
        Cells(cu, "R") = Cells(a, "B")
    End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[nurluali]

Ömer Bey çok teşekkür ediyorum örneğe uyguladım herhangi bir sorun çıkmadı bir sorunla karşılaşırsam tekrar dönerim. Tekrar teşekkürler

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...