Onay kutularını, Açılan kutuya bağlama

[kmlpyrz]

Ekte gönderdiğim dosyadaki, açılan kutuda sınıf ve şube isimleri var. Öğrenci listesinin sol taraflarında da onay kutuları var. Yapmak istediğim, açılan kutudan bir sınıf yada şube seçildiğinde, o sınıf yada şubedeki öğrencilerin onay kutusunun otomatik olarak işaretlenmesi. Ayrıntılı açıklamayı ekteki dosyamda yaptım.
İlgilenen arkadaşlara teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Açılan52_Değiştir()
For i = 6 To Cells(65536, "C").End(xlUp).Row
    Cells(i, "B").Value = False
    If Range("A1").Value = 1 Then Cells(i, "B").Value = True
    If Range("A1").Value = 2 Then
        If Cells(i, "D").Value = "8A" Or Cells(i, "D").Value = "8B" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 3 Then
        If Cells(i, "D").Value = "7A" Or Cells(i, "D").Value = "7B" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 4 Then
        If Cells(i, "D").Value = "6A" Or Cells(i, "D").Value = "6B" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 5 Then
        If Cells(i, "D").Value = "8A" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 6 Then
        If Cells(i, "D").Value = "8B" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 7 Then
        If Cells(i, "D").Value = "7A" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 8 Then
        If Cells(i, "D").Value = "7B" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 9 Then
        If Cells(i, "D").Value = "6A" Then
            Cells(i, "B").Value = True
        End If
    End If
    If Range("A1").Value = 10 Then
        If Cells(i, "D").Value = "6B" Then
            Cells(i, "B").Value = True
        End If
    End If
Next i

End Sub

 

[kmlpyrz]

Teşekkür

Sayın Evren GİZLEN, soruma olan ilginizden, soruma tam karşılık olan cevabınız ve yardımınızdan dolayı çok teşekkür ederim.

 

[Orion1]

Sayın Evren GİZLEN, soruma olan ilginizden, soruma tam karşılık olan cevabınız ve yardımınızdan dolayı çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.