UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Macro en vba para cotizar seguro el 15/12/15, 04:11 pm

holaDDD


Buen día

Soy nuevo en esto crear códigos para VBA y en esta práctica trato de crear un cotizador de seguro, aquí les presento mi código y el archivo, pero tiene algunos errores y no logro ubicar en que estoy errando, si alguien me pudiera ayudar diciéndome donde estan los errores de lógica que presento se lo agradecería

De antemano muchas gracias

Código:

Private Sub CmdCotizar_Click()
Private Sub FrEdades_Click()

Dim Persona1, Persona2, Persona3 As Variant
'Validamos que la celda no esté vacía
If TxtEdad1.Value = "" And TxtEdad2.Value = "" And TxtEdad3.Value = "" Then
MsgBox "ingresa Edades"
End If
If TxtEdad1.Value = "" Then
TxtBase1.Value = 0
End If
If TxtEdad2.Value = "" Then
TxtBase2.Value = 0
End If
If TxtEdad3.Value = "" Then
TxtBase3.Value = 0
End If

'Cotisamos bases

'Cotisamos base 1
If TxtEdad1.Value > 0 And TxtEdad1.Value < 14 Then
TxtBase1.Value = 2000
Else
If TxtEdad1.Value > 14 And TxtEdad1.Value < 30 Then
TxtBase1.Value = 4600
Else
If TxtEdad1.Value > 30 And TxtEdad1.Value < 45 Then
TxtBase1.Value = 6100
Else
TxtBase1.Value = 8250
End If
End If
End If

'Cotisamos base 2
If TxtEdad2.Value > 0 And TxtEdad1.Value < 14 Then
TxtBase2.Value = 2000
Else
If TxtEdad2.Value > 14 And TxtEdad1.Value < 30 Then
TxtBase1.Value = 4600
Else
If TxtEdad2.Value > 30 And TxtEdad1.Value < 45 Then
TxtBase2.Value = 6100
Else
TxtBase2.Value = 8250
End If
End If
End If
'Cotisamos base 3
If TxtEdad3.Value > 0 And TxtEdad1.Value < 14 Then
TxtBase3.Value = 2000
Else
If TxtEdad3.Value > 14 And TxtEdad1.Value < 30 Then
TxtBase3.Value = 4600
Else
If TxtEdad3.Value > 30 And TxtEdad1.Value < 45 Then
TxtBase3.Value = 6100
Else
TxtBase3.Value = 8250
End If
End If
End If

Private Sub CmdCotizar_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub ' fin del FrEdades
End Sub 'fin del CmdCotizar


'Espacio
'Espacio
'Espacio
'Espacio
'Espacio
'Espacio
'Espacio

Private Sub FrFuma_Click()
Dim A, B, C As Variant
If ChkFuma1 = True Then
A = 500
Else
A = (-200)
End If
If ChkFuma2 = True Then
B = 500
Else
B = (-200)
End If
If ChkFuma3 = True Then
C = 500
Else
C = (-200)
End If
End Sub

Private Sub FrEjercicio_Click()
Dim D, E, F As Variant
'poner variables de a,b,c para que se guarden los valores, pero primero ver si se gyardan con agregar monto a cada uno
If ChkEjercicio1 = True Then
D = (-200)
Else
D = 300
End If
If ChkEjercicio2 = True Then
E = (-200)
Else
E = 300
End If
If ChkEjercicio3 = True Then
F = (-200)
Else
F = 300
End If
End Sub

Private Sub FrCome_Click()
Dim G, H, I As Variant
If ChkCome1 = True Then
G = (-200)
Else
G = 250
End If
If ChkCome2 = True Then
H = (-200)
Else
H = 250
End If
If ChkCome3 = True Then
I (-200)
Else
I = 250
End If
End Sub
Private Sub Frenfermedad_Click()
Dim J, K, M As Variant
If ChkEnfermedad1 = True Then
J = 1500
Else
J = 0
End If
If ChkEnfermedad2 = True Then
K = 1500
Else
K = 0
End If
If ChkEnfermedad3 = True Then
M = 1500
Else
M = 0
End If
End Sub

Private Sub Frtotales_Click()

Private Sub TxtSub1_Change()
TxtSub1 = TxtBase1 + A + D + G + J
End Sub

Private Sub TxtSub2_Change()
TxtSub2 = TxtBase2 + B + E + H + K
End Sub
Private Sub TxtSub3_Change()
TxtSub3 = TxtBase3 + C + F + I + M
End Sub

End Sub

Private Sub FrTotal_Click()
Private Sub TxtTotal_Change()
TxtTotal.Value = TxtSub1 + TxtSub2 + TxtSub3
End Sub
End Sub
Private Sub UserForm_Click()

End Sub
Private Sub CmdSalir_Click()
End
End Sub


(tengo problema para adjuntar el archivo, pero adjunto el codigo)

2 Re: Macro en vba para cotizar seguro el 15/12/15, 11:04 pm

Igtelo


Hola, HolaDDD.

Lee en avisos como adjuntar archivos y las normas del foro. Si el automovil anda fallando no se lo cuento al mecánico, sino que le llevo el vehículo

Por favor corrige tu localización, es un foro serio y merece respeto.

Saludos
Ignacio Téllez

3 Re: Macro en vba para cotizar seguro el 16/12/15, 02:05 pm

holaDDD


Como comente en el post, no puedo adjuntar el archivo
Sigo correctamente las instrucciones pero desconozco la razón por la que no se adjunta (estoy desde una PC del trabajo)


si pudieran darle una revisada a la estructura de la página para ver si hay un error en el diseño/estructura que impida adjuntar archivos desde redes no convencionales

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.