Ofimática - CONDICIONAR UN CODIGO

 
Vista:

CONDICIONAR UN CODIGO

Publicado por cesar vargas (6 intervenciones) el 28/12/2006 04:06:28
MUCHACHOS.. TENGO EN UN FORMULARIO UNA MACRO PARA CONDICIONAR ENTRADAS A VARIOS TEXTBOX... LOS CODIGOS FUNCIONAN SI SE CUMPLEN LAS CONDICIONES PERO SI NO SECUMPLEN PASAN DESAPERCIBIDAS SIN QUE QUIEN DIGITA LOS DATOS LO NOTE...

NECESITO CONDICIONARLAS Y AL NO CUMPLIRSE ENTONCES ME MUESTRE UN MSGBOX CON UNA ADVERTENCIA...

AQUI ESTA EL CODIGO QUE TENGO:

Private Sub ComboBox1_Change()
If ComboBox1.Value = "ABONO FEBRERO" And TextBox10.Value < "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO FEBRERO" And TextBox10.Value = "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO CARNET Y PENSION FEBRERO" And TextBox10.Value = "70000" Then
TextBox2 = 0
TextBox3 = 0
End If
End Sub
NO SE SI SEHACE ASI. O HAY QUE REESTRUCTURARLO.. POR FAVOR AYUDENME

MI EMAIL ES [email protected]
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

RE:CONDICIONAR UN CODIGO

Publicado por JuanC (17 intervenciones) el 28/12/2006 18:19:30
Fijate si es eso lo que necesitás...

Private Sub ComboBox1_Change()
If ComboBox1.Value = "ABONO FEBRERO" And TextBox10.Value < "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO FEBRERO" And TextBox10.Value = "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO CARNET Y PENSION FEBRERO" And TextBox10.Value = "70000" Then
TextBox2 = 0
TextBox3 = 0
Else
MsgBox "Hey!", vbExclamation + vbOKOnly, "Atención"
End If
End Sub

Saludos desde Baires, JuanC
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