holass a todoss
Tengo una duda yo tengo 4Option y un boton cada Option hase una funsion distinta lo q yo quisiera sava si se puede q cuando yo presiones el boton y no tenga nigun Option selecsionado me de un Error es decir q aparezca un MsgBox
gracias
PD:lo se hacer en los text pero esto es la primera ves q los uso....
pues con select case
Select Case Option1(i).Value
Case Option1(0).Value = True
sentencias
Case Option1(1).Value = True
sentencias
Case Option1(2).Value = True
sentencias
Case Option1(3).Value = True
sentencias
Case Else
MsgBox "error"
End Select
un saludo.
Select Case no se usa así. Lo mejor es crear una matriz de controles OptionButton y luego cuando se hace click en el botón se usaría un código como el siguiente:
Private Sub CommandBtn_Click()
Dim i%
For i = 0 To OptionBtn.Count -1
If OptionBtn(i).Value = True Then Exit Sub
Next
Call MsgBox("No hay ninguna opción seleccionada", vbCritical)
End Sub
Saludos.
Edito: tienes razon Anhur me he ekivocado en el selecta case :-[ gracias por el aviso
un saludo.