Jump to content

Comprobar formato numérico en un textbox mediante macro


Recommended Posts

Comprobar números en un textbox mediante macro

Hola a todos,

Mi pregunta es la siguiente. ¿Cómo puede verificarse que en un textbox sólo haya números, de cualquier tipo: enteros, decimales, etc? Por ejemplo:

-Bien: 100; -50; 50,5

-Mal: "100 "; --50; 50.5; H

Cuando pongo esto para comprobar si en el textbox2 hay un número o no:

If [U][B]IsNumeric(CDec(textbox2))[/B][/U] = False Then Msgbox "Error"[/CODE]

Me da error de VB (el de programa, de Finalizar o Depurar, el "no coinciden los tipos") cuando por ejemplo pongo una letra (simulando "un error al introducir un número"), y no puedo llegar al Then.

Pongo anidado el CDec porque si pongo una coma "," para escribir decimales da error, debiendo usar para notar decimales el punto ".", y yo necesito usar la coma (por ser el sistema usado en España).

De todas formas, creo que el error viene por el CDec, pero no estoy seguro del todo. He intentado usar el IfError, pero no me aclaro tampoco X( ¿Cómo podría comprobar eficazmente que en el textbox hay un número (entero, decimal...) sin que me salte ese error?

Un saludo y gracias por adelantado :)

Link to comment
Share on other sites

Hola, el problema lo tienes porque la función IsNumeric requiere que la variable a evaluar sea de tipo String o Variant.

Prueba con:


[LEFT][FONT=tahoma][COLOR=#333333]
If [/COLOR]IsNumeric([I][B]TextBox2[/B][/I]) = False Then Msgbox "Error"[/FONT]
[/CODE]

[/left]

Link to comment
Share on other sites

Vale, gracias a la info de Macro Antonio, creo que lo he arreglado; tenía de hecho la declaración Dim dos As Variant al inicio y luego la variable ("dos=cdec(textbox2)"), pero yo intentaba lo del IsNumeric(CDec(...)) antes y ahora ya me tira todo correctamente. Tanto 2,5 como 2.5. Primero intentaba así:

Dim dos As Variant
If IsNumeric(CDec(TextBox2)) = True Then (...) Else (...)
dos = CDec(TextBox2)[/CODE]

Ahora me queda así:

[CODE]Dim dos As Variant
dos = CDec(TextBox2) 'Ahora "dos" ya es "variant"
If IsNumeric(dos) = True Then (...) Else (...)[/CODE]

...La verdad, no sé por qué lo intentaba así, intentaba simplemente usar lo del IsNumeric antes que nada, pero ahora lo veo absurdo XD Antes lo intentaba al revés pero sin la variable ya declarada como Variant, tal vez por eso el IsNumeric me daba ese fallo.

Mil gracias, MA (como el del Equipo A ;))

Edit: Sí, lo del IsNumeric ya tira perfectamente, pero sigue el problema del error si se escribe algo que sea no-numérico, por ejemplo una letra.

Edit2: Creo que ya está. Tengo que dar un rodeo estúpido y definir la variable por segunda vez -ya que ahora por narices tiene que ser un valor que acepte el CDec-, pero me queda así la cosa:

[CODE]Dim dos As Variant

dos = TextBox2

If IsNumeric(dos) = False Then
MsgBox "2 no numérico"
Exit Sub
End If

If IsNumeric(dos) = True Then goto seguir
(...)

seguir:
dos=CDec(textbox2)
(...)
[/CODE]

Pues lo dicho, gracias por las ideas :):glee:

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Hola de nuevo por aquí. Sigo con el fichero de consumos y con problemas. Ayer me ayudasteis y mucho a determinar los conductores y sus consumos. Ahora lo que necesito es lo siguiente. Tengo una tabla donde los empleados imputan de manera porcentual a distintas ordenes de trabajo. Está en la hoja Reparto. Veréis que por ejemplo el primer empleado reparte un 50 a una OT y otro 50 a otra. El segundo empleado imputa un 40 a una OT y otro 60 a otra y el tercero imputa un 25 a una OT, un 65 a otra y un 10 a otra. Esto desglosarlo es un autentico lío, y cada mes me emplea muchísimo tiempo . Lo que quisiera es que en la hoja que le he llamado desglose me creara una tabla o en la que he hecho y me calculara el consumo de combustible de cada empleado teniendo en cuenta la OT y su porcentaje. He creado la tabla y he puesto los importes que deberían salir. Los importes de cada consumo están en la hoja Consumos en la columna AK (IMP_TOTAL). Por ejemplo en la hoja Desglose el primer empleado sería GARCIA FERNANDEZ, VICENTE y a la OT 11000001 tendría un importe de 28,70 euros ya que en la hoja Reparto decimos que imputa un 50 a esa OT y el consumo total de ese empleado de la hoja Consumo es de 57,40 euros. Y así con el resto. He puesto una tabla para que sea dinámico y si hay más consumos o empleados se vaya actualizando dinámicamente, o eso creo. Lo que no veo claro es que busque y autorrellene con formulas la tabla sin hacerlo con macros. Al menos para mi se me hace muy difícil ver la posibilidad. No tengo claro si he conseguido explicarme, cualquier duda os respondo. Y como siempre muy agradecido por vuestro tiempo y compartir tan hábiles conocimientos, y además de manera desinteresada y amable. Gracias.   Ejemplo consumos combustible sq.xlsx
    • Hola, yo también tengo el mismo problema, ¿podrías decir cómo lo solucionaste, por favor? :c
    • Hola Oscar, funciona perfectamente. He probado igual que con Silvia e independientemente del orden o incluso mezclando fechas funciona bien.   Gracias.  
    • Hola Silvia,  he cambiado fechas y funciona. Incluso he modificado el orden de los consumos mezclando fecha y también funciona. Gracias.
    • Hola Oscar si, tienes razón, sin embargo, no aseguro, pero me parece que los datos siempre estarán ordenados de acuerdo al cambio de conductor, el que sale y entrega la posta al que inicia.. bueno, me parece.. pero.....   de todas formas tu solución es excelente..  saludos.. Silvia
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy