Visual Basic para Aplicaciones - CheckBos con OptionButton

Life is soft - evento anual de software empresarial
   
Vista:

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:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CheckBos con OptionButton

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 22/03/2016 11:32:29
a ver si así funciona como necesitás...
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
If ChkTuberia.Value = True And OptionButton1.Value = True Then
   Call Facturar_Tuberia
End If
If ChkEstructura.Value = True And OptionButton1.Value = True Then
   Call Facturar_Estructura
End If
If ChkPintura.Value = True And OptionButton1.Value = True Then
   Call Facturar_Pintura
End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

CheckBos con OptionButton

Publicado por Jonathan (5 intervenciones) el 22/03/2016 13:58:50
Muchas Gracias es exactamente lo que necesitaba me ahogaba en un baso de agua algo sencillo pasé por alto, definitivamente debo seguir practicando Saludos e Mexico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar