Abey Function evetmi_Hayirmi(deger) As Boolean bunu iptal ettim normalde çalışması gerekirken çalışmıyor gerçi sizde bağlamamışsınız ve yanılmıyorsam bu kod bana aitti

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