VALIDAR TextBox si esta vacío que sea Igual a "0" (cero)

Hoy vine de una pregunta tras otra. Lo que pasa que cuando voy armando me salen nuevos problemas!.

En mis preguntas anteriores y pregunte sobre como multiplicar dos TextBox.

Bueno ahora resulta que si el textBox (donde va el porcentaje, que se llama txtporcentaje) esta vacío me tita "ERROR EN EL DEPURADOR". Pero si le pongo 0 (cero) me funciona perfectamente. Como hago para validad txtporcentaje. Osea si esta vacío que sea igual a 0 (cero) a la hora de calcular.

1 Respuesta

Respuesta
1

Pon esto, por ejemplo, en el evento exit del control

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

if textbox1.value ="" then textbox1.value =0

End Sub

Recuerda finalizar y puntuar amigo.

Perdón!. No me funciona! Tal vez lo hago mal. Te describo como tengo el control que calcula los textBox y el de txtporcentaje.

Private Sub CommandButton1_Click()

txtanticipo = Format((txtmontooriginal * txtporcentaje / 100), "$ ##,##0.00")
txtmontocertificado = Format((txtmontooriginal * txtavance / 100), "$ ##,##0.00")

Sheets(ComboBox1.Value).Range("b19") = txtobra
Sheets(ComboBox1.Value).Range("b21") = txtexpediente
Sheets(ComboBox1.Value).Range("b25") = txtmontooriginal
Sheets(ComboBox1.Value).Range("b31") = txtanticipo
Sheets(ComboBox1.Value).Range("b27") = txtmontoampliado
Sheets(ComboBox1.Value).Range("b23") = txtresolucion
Sheets(ComboBox1.Value).Range("b33") = txtinicio
Sheets(ComboBox1.Value).Range("b29") = txtadeendas
Sheets(ComboBox1.Value).Range("b39") = txtavance
Sheets(ComboBox1.Value).Range("b43") = txtmontocertificado
Sheets(ComboBox1.Value).Range("b37") = txtfin
Sheets(ComboBox1.Value).Range("b45") = txtsituacion
MsgBox "LOS CAMBIOS FUERON GUARDADOS"
End Sub

Y

Private Sub txtporcentaje_Change()
End Sub

COMO SERIA LO QUE VOS DECÍS??. EN DONDE COLOCAS EL EVENTO QUE DECÍS PARA QUE SEA  txtporcentaje CON VALOR 0 (cero) SI NO COLOCAN NINGÚN NUMERO.

GRACIAS!!!

Pon tu macro así:

Private Sub CommandButton1_Click()

For Each c In Me.Controls

If TypeName(c) = "TextBox" Then

c.Value = 0

End If

next

txtanticipo = Format((txtmontooriginal * txtporcentaje / 100), "$ ##,##0.00")

txtmontocertificado = Format((txtmontooriginal * txtavance / 100), "$ ##,##0.00")
Sheets(ComboBox1.Value).Range("b19") = txtobra
Sheets(ComboBox1.Value).Range("b21") = txtexpediente
Sheets(ComboBox1.Value).Range("b25") = txtmontooriginal
Sheets(ComboBox1.Value).Range("b31") = txtanticipo
Sheets(ComboBox1.Value).Range("b27") = txtmontoampliado
Sheets(ComboBox1.Value).Range("b23") = txtresolucion
Sheets(ComboBox1.Value).Range("b33") = txtinicio
Sheets(ComboBox1.Value).Range("b29") = txtadeendas
Sheets(ComboBox1.Value).Range("b39") = txtavance
Sheets(ComboBox1.Value).Range("b43") = txtmontocertificado
Sheets(ComboBox1.Value).Range("b37") = txtfin
Sheets(ComboBox1.Value).Range("b45") = txtsituacion
MsgBox "LOS CAMBIOS FUERON GUARDADOS"
End Sub

Rectifico: Este código, lo tienes que poner en el evento INITIALIZE del formulario.

For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
c.Value = 0
End If
next

De esta manera al arrancar el formulario, todos los textbox tendrán un cero

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

Buscar hoja señalada en CmBx1 y atraer en los TxBx contenidos de las celdas especificas

Tengo esta macro que anexo y su función es: al seleccionar la obra en el cmbx1 y clickear “buscar”, debe buscar la hoja respectiva en el libro y visualizar en los textbox el contenido que encuentre en las celdas específicas. Si se desea modificar un...
1 respuesta

Eliminar error en tiempo de ejecución 13

Estoy trabajando con macros en excel 2010 y tengo un userform para el cual utilizo el código abajo descrito, todos los textbox me los llena bien pero al momento de aceptar y enviar los datos a las celdas respectivas me manda el error "error en tiempo...
1 respuesta

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Error en la Clase WorkSheet

Un gusto consultarte Siguiendo con mi trabajo y me refiero al que te consulte al principio, encuentro un error en el código y apelo a tu experiencia Cuando introduzco un cambio en el ComboBox4 del Form, me salta el error que adjunto. Private Sub...
1 respuesta

Crear un filtro para un combobox

Algún experto que me pueda ayudar con este detalle, tengo 2 combobox en un userform en el primero quiero que me filtre por familias( a, b, .. F) y en el segundo combo muestre las claves que pertenezca a la familia elegida. Yo lo inicialice en el form...
1 respuesta

Ayuda! Vincular un textbox con un valor de Combobox.

Mi pregunta es bien simple, pero no le encuentro solución... Tengo un Combobox y varios TextBox en un formulario. Y mi pregunta es ¿Cómo hago para que al seleccionar un valor del combobox, éste me rellene los TextBox? Tengo una hoja donde sale estos...
8 respuestas

Lista Combobox se duplica

Tengo en un formulario un combobox que se carga de un rango de lista cada que se active dicho formulario, además, la lista se puede ir ampliando accediendo a otro formulario desde el formulario principal, el problema es que al activarse nuevamente el...
1 respuesta

¿Cómo puedo eficientar filtro en un combobox?

Expertos en excel, quisiera pedir un poco de su ayuda para la solución de un tema un poco complicado para mi. En un libro de excel tengo 3 hojas (entradas, salidas y devoluciones), el form se llena con datos de la hoja entradas y debe descargar su...
1 respuesta