(14/10/2020, 19:34)hayalibey yazdı: txtAra kutucuğuna tıklar tıklamaz hata mesajı veriyor.

Burası sizin kodla alakalıydı yani seçim düğmeleri yani optionbuttonlardan biri seçilmezse hata veriyordu.Heralde ilk eklediğim dosyada onu halletmiştim döngü ile sonrakilere eklemedim.
Atıyorum
İf optionbutton1.value = false then
Msgbox "hata"
Exit sub
End if gibi koşullar ekleyebilirsiniz.