CheckBos con OptionButton
Publicado por Jonathan (5 intervenciones) el 22/03/2016 04:57:19
Saludos a todos en el foro, mi consulta es referente a un UserForm tengo 3 CheckBox se refieren a Materiales y dos option Button que indica si seran facturados o no (llamese Macro_Facturar) activo y Macro_sin_Facturar si el checkBox esta desactivado.
La cuestion es que al correr el codigo solo lo realiza con el primer checkbox y ya no hace nada con el resto
El codigo que uso es el siguiente:
Necesito por ejemplo si Tuberia y Pintura necesitan facturar ejecute la macro, en el archivo adjuntado solo puse que coloree una celda para facilitar las cosas
¿Alguien puede decirme que hago mal o como debe estar el codigo?
Desde ya muchas Gracias
La cuestion es que al correr el codigo solo lo realiza con el primer checkbox y ya no hace nada con el resto
El codigo que uso es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim Tuberia As String
Dim Estructura As String
Dim Pintura As String
Tuberia = ChkTuberia.Value
Estructura = ChkEstructura.Value
Pintura = ChkPintura.Value
If ChkTuberia.Value = True And OptionButton1.Value = True Then
Call Facturar_Tuberia
If ChkEstructura.Value = True And OptionButton1.Value = True Then
Call Facturar_Estructura
If ChkPintura.Value = True And OptionButton1.Value = True Then
Call Facturar_Pintura
End If
End If
End If
End Sub
Necesito por ejemplo si Tuberia y Pintura necesitan facturar ejecute la macro, en el archivo adjuntado solo puse que coloree una celda para facilitar las cosas
¿Alguien puede decirme que hago mal o como debe estar el codigo?
Desde ya muchas Gracias
- Ejemplo.rar(16,8 KB)
Valora esta pregunta
0