Sn:drummers
Güzel bir çalışma olmuş ama ekran çözünürlüğü yüksek olarak hazırlamışsınız 1024*768 olarak ayarlarsanız her PC sorun olamaz malum şimdi en düşük olarak 1024*768 kullanılıyor.

1.Soru için ComboBox3 ün Click olayında kodların sonuna ilave ediniz.

For i = 1 To 6

If Sheets("data").Range("AU" & Bulunan_Satir_No).Value = Controls("optionbutton" & i).Caption Then

Controls("optionbutton" & i).Value = True

Else

Controls("optionbutton" & i).Value = False

End If

Next i

Ekranı temizle butonu olan CommandButton22 Clik olayına ve UserForm İnitalize olayına ekleyiniz.

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

'Devamını Yazınız

UserForm İnitalize olayına

Call CommandButton22_Click

2. Soru için UserForm2 yani giriş formundaki CommandButton1 Click olayındaki kodlarının sonuna ekleyiniz

Set Bul = Sheets("Yetkiler").Range("A:A").Find(ComboBox1.Text)

Sheets("Yetkiler").Cells(Bul.Row, "BC") = Sheets("Yetkiler").Cells(Bul.Row, "BC") + 1