Alttaki kodu ekledim onun yerine.Call checkboxxx(.Range("P" & bul.Row).Value, Me.CheckBox_AlbertGenau) bu şekide devam edin diğerleri içinde.
Ayrıca Case Is = "CheckBox": kontrol.Value = False False yerine Empty imiş onuda False yaptım hepsini temizlemesi için
Sub checkboxxx(deger, checboxad As MSForms.CheckBox)
If deger = "Evet" Then checboxad.Value = True
If deger = "Hayýr" Then checboxad.Value = False
End Sub