If OptionButton.......................

[Nightman]

If OptionButton1.value = false And OptionButton2.value= false And ......Then
MsgBox....................................
Exit Sub
End If

Yukarıdaki If koşulu çalışıyor ancak benim canımı sıkan bu and , and, and sürüp gidiyor ve 12 adet optionbutton var.

Bunun yerine kısaca (OptionButonların hepsi = False ise ) diye kısaltmamız mümkünmü. yani tek tek hepsini belirtmek çok uzun oluyor

Bi fikri olan varmı

Saygılar

 

[Zeki Gürsoy]

Şu şekilde deneyin.

for i = 1 to 12
  if controls("optionbutton" & i) then
    go to son
  end if
next
.
.
.
exit sub
bitir:
msgbox ..........