Visual Basic para Aplicaciones - CheckBos con OptionButton

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 4
Ha disminuido su posición en 15 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

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 (560 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
sin imagen de perfil
Val: 4
Ha disminuido su posición en 15 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

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