Validar la entrada de datos en un formulario

Si nos ha dado por utilizar formularios en nuestras aplicaciones Excel, porque consideramos que son más elegantes, cuidadas, y porque le dan un toque más profesional, llegará un momento en el que deseemos controlar más todavía lo que un usuario introduce por ejemplo en un TextBox. Seguramente nos habremos preguntado ¿qué pasa si un usuario introduce letras en un TextBox que luego utilizo para hacer operaciones con los datos de una celda?. Pues es evidente que nos dará un error, pues estaremos operando con texto y números. Pensemos por ejemplo, cuál será el resultado de multiplicar un texto por una cifra, ...¿nos dará error, verdad?.

Pues bien, vamos a intentar que eso no suceda. Vamos a hacer que en un TextBox de nuestro formulario, solo se puedan introducir números. También explicaremos como hacer lo contrario, es decir, cómo permitir que el usuario solo escriba texto, y ya puestos, para que nadie lo pregunte :-) también validaremos la entrada de fechas en formato dd/mm/aaaa.

Para el primer caso, es decir, si solo vamos a permitir que el usuario introduzca números, vamos a suponer que tenemos un formulario tan sencillo como este que podéis ver en la imagen:


Para ver la utilidad del dato introducido, supondremos que vamos a hacer una operación con ese valor. Es decir, vamos a imaginar que si el usuario introduce una cifra cualquiera, la multiplicaremos por 6, y escribiremos ese valor en la celda B11. Algo como lo que muestra la siguiente imagen:


El código asociado al TextBox del UserForm, será este:

Private Sub TextBox1_Change() 'Solo permitiremos que se introduzcan números 'para lo cual, si el valor introducido es una letra 'lo omitiremos, y nos quedaremos con el resto de caracteres, 'es decir, con los números If Not IsNumeric(Right(TextBox1, 1)) And Len(TextBox1) > 1 Then TextBox1 = Left(TextBox1, Len(TextBox1) - 1) ElseIf Not IsNumeric(Right(TextBox1, 1)) And Len(TextBox1) = 1 Then TextBox1 = Clear End If End Sub

Y el código asociado al botón "OK" que se puede ver en ese mismo userform, es este:

Private Sub CommandButton1_Click() 'Si hay errores, que continúe On Error Resume Next 'Vamos a multiplicar el valor introducido por el usuario 'por una cifra cualquiera. En este caso, la multiplicaremos 'por 6, y escribiremos el dato resultante en la celda B11 Range("B11") = TextBox1 * 6 'liberamos el formulario de memoria Unload UserForm1 End Sub

Como veis, es muy sencillo. No hace falta ni que lo comente más allá de lo que ya está comentado dentro del propio código.

Ahora vamos a imaginar que solo queremos que el usuario entre letras. En ese caso, ya no nos será útil multiplicar esas letras por 6, así que omitiremos hacer operaciones con esos datos introducidos, y simplemente los mostraremos en la celda. En el caso de este nuevo formulario, le hemos puesto nombres diferentes a los objetos, de tal forma que lo que antes era TextBox1, ahora es TextBox2, lo que antes era CommandButton1, ahora es CommandButton2, y así sucesivamente. En el caso que nos ocupa ahora, deberemos poner este código asociado al TextBox2:

Private Sub TextBox2_Change() 'Solo permitiremos que se introduzcan números 'para lo cual, si el valor introducido es una letra 'lo omitiremos, y nos quedaremos con el resto de caracteres, 'es decir, con los números If IsNumeric(Right(TextBox2, 1)) Then TextBox2 = Left(TextBox2, Len(TextBox2) - 1) End Sub

Y este otro en el botón "OK":

Private Sub CommandButton2_Click() 'Si hay errores, que continúe On Error Resume Next 'Vamos a escribir el dato introducido, en la celda E11 Range("E11") = TextBox2 'liberamos el formulario de memoria Unload UserForm2 End Sub

Para el caso de que queramos validar si el dato introducido es una fecha con formato dd/mm/aaaa, y suponiendo que nuestro TextBox se llama ahora TextBox3, en lugar de TextBox2, el botón se llama CommandButton3 en lugar de era CommandButton2, y así sucesivamente, tendremos que utilizar este código asociado al TextBox (al TextBox3, como hemos comentado):

Private Sub TextBox3_Change() 'si hay errores, que continúe On Error Resume Next 'impedimos que se introduzca texto If Not IsNumeric(Right(TextBox3, 1)) And Right(TextBox3, 1) <> "/" Then TextBox3 = Left(TextBox3, Len(TextBox3) - 1) End If 'contamos lo que mide de largo largo_entrada = Len(TextBox3) 'evaluamos la posición de lo que vamos escribiendo Select Case largo_entrada 'después del 2º carácter, que añada una barra Case 2 'controlamos algunas manipulaciones de los números If Right(TextBox3, 1) = "/" Then TextBox3 = Left(TextBox3, Len(TextBox3) - 1) Else TextBox3 = TextBox3 & "/" End If 'después del 5º carácter, que añada una barra Case 5 'controlamos algunas manipulaciones de los números If Right(TextBox3, 1) = "/" Then TextBox3 = Left(TextBox3, Len(TextBox3) - 1) Else TextBox3 = TextBox3 & "/" End If End Select 'si el largo ocupa más de 10 caracteres, 'solo nos quedamos con los primeros 10 caracteres If Len(TextBox3) > 10 Then TextBox3 = Left(TextBox3, 10) 'Deshabilitamos el botón "OK", si la fecha tiene menos de 10 caracteres If Len(TextBox3) < 10 Then CommandButton3.Enabled = False Else CommandButton3.Enabled = True End If 'evitamos que haya más de 2 barras en el TextBox If Len(TextBox3) = 10 And Len(Replace(TextBox3, "/", "")) < 8 Then TextBox3 = Clear End If End Sub

Y este otro en el botón "OK":

Private Sub CommandButton3_Click() 'Si hay errores, que continúe On Error Resume Next 'Vamos a escribir el dato introducido, en la celda H11 Range("H11") = TextBox3 'liberamos el formulario de memoria Unload UserForm3 End Sub

Solo queda por solucionar un tema, y es validar que la fecha sea correcta, no solo en formato, que eso ya lo hemos visto en este artículo, sino en su validez o consistencia, para que por ejemplo nadie introduzca una fecha como esta: 44/55/2222, pues los días como máximo son 31, y los meses 12. Pero eso, casi es mejor que lo validéis después de darle al botón OK, en lugar de impedir la entrada de fechas de ese tipo. Os lo dejo que lo resolváis vosotros, pues no parece muy complicado a simple vista, ya que el alcance de este artículo es validar que se entran datos de acuerdo a un criterio: números, textos, o fechas en formato dd/mm/aaaa, sin evaluar si esta última es correcta.

He resumido todo esto que he explicado, en una hoja de cálculo que tiene este aspecto, para el que esté interesado en verlo con ejemplos prácticos, pues siempre ayudan mucho más:


Desde aquí podéis descargar el fichero, con los ejemplos que hemos visto en este artículo.