CREAR LISTA DE VALIDACI脫N AL INSERTAR DATOS
En este ejemplo se muestra como crear una validaci贸n en celda al introducir un registro y permitir el ingreso solamente de n煤meros enteros, es decir que autom谩ticamente cuando se ingrese un registro se generar谩 una validaci贸n
Maneja Excel como los mejores, click ac谩, si quieres aprender sobre聽Excel聽en ingl茅s, entonces debes hacer聽click here. Si lo que necesitas es aprender o profundizar sobre la programaci贸n de macros con VBA este es unos de los聽mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentir谩s.
聽
聽
Mira la macro en acci贸n, una explicaci贸n m谩s detallada de su codificaci贸n y funcionamiento, recomiendo observar para una m谩s f谩cil comprensi贸n de la macro; suscribe a nuestro canal de You Tube, mira el playlist con聽 v铆deos relacionados donde podr谩s ver la macros relacionadas en acci贸n con una explicaci贸n en forma visual que ayudar谩 a entender el ejemplo en forma m谩s f谩cil.
Validaci贸n en Celda Con Macros – Permitir ingreso de n煤meros enteros 煤nicamente
En este ejemplo, al insertarse un dato en cualquier fila de la columna A, excepto la celda A1, que est谩 reservada para la cabecera de la columna, se ejecuta una macro que agrega una validaci贸n por medio de macros en celda.
Mas precisamente inserta la validaci贸n en la celda de la columna F y target.row, es decir la celda que recibi贸 la modificaci贸n, o dicho de otro punto de vista la celda donde est谩bamos posicionados al modificar la celda de la columna A.
La validaci贸n consiste, en que solo se pueden agregar n煤meros enteros ente 1 y 100, si se agrega un n煤mero distinto a los n煤meros de dicho rango o que no sean enteros, la macro emite un aviso no permitiendo modificar la celda, hasta que se introduzca un dato v谩lido.
Explicaci贸n del c贸digo para Crear Validaci贸n Con Macros en Excel VBA
Primero se debe establecer si la modificaci贸n de la celda de Excel provino de cualquier celda de la columna A, en caso negativo, la macro no hace nada, en caso positivo, la macro ejecuta la macro contenida despu茅s del IF, el c贸digo es el siguiente:
If Target.Row > 1 And Target.Column = 1 Then
Luego se debe agregar los par谩metros entre los cuales ser谩n v谩lidos los n煤meros enteros ingresados, ello se hace con el siguiente c贸digo:
valida1 = 1
valida2 = 100
Luego la macro inserta la validaci贸n en la celda de la Columna F y la Celda Correspondiente (que se acaba de modificar), procediendo primero a borrar cualquier validaci贸n, luego a agregar la validaci贸n utilizando como paramentos los determinados en las variables, valida1 y valida2; luego se agrega cual ser谩 el mensaje en caso de que se intente ingresar un dato inv谩lidos,聽 ello se hace con el siguiente c贸digo;
With a.Cells(Target.Row, “F”).Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=valida1, Formula2:=valida2
.ErrorTitle = “Dato inv谩lido”
.ErrorMessage = “Solo Puede ingresar n煤meros enteros entre 1 y 100”
End With
C贸digo VBA para crear una validaci贸n en celda al insertar un dato
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 1 And Target.Column = 1 Then
Application.ScreenUpdating = False
Set a = Sheets(“Hoja1”)
valida1 = 1
valida2 = 100
With a.Cells(Target.Row, “F”).Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=valida1, Formula2:=valida2
.ErrorTitle = “Dato inv谩lido”
.ErrorMessage = “Solo Puede ingresar n煤meros enteros entre 1 y 100”
End With
End If
Application.ScreenUpdating = True
End Sub
Descarga el Libro Como Crear Validaci贸n de Datos en Autom谩ticamente con Macros de Excel
Descarga desde ac谩 el archivo usado como ejemplo en este post y en el v铆deo explicativo, el mismo es totalmente gratuito y libre su uso, solicito aportar para sostener esta web, si est谩 dentro de tus posibilidades, desde ya muchas gracias.
Si te fue de utilidad puedes聽INVITARME UN CAF脡聽y de esta manera ayudar a seguir manteniendo la p谩gina,聽CLICK聽para descargar en ejemplo en forma gratuita.
If this post was helpful聽INVITE ME A COFFEE聽and so help keep up the page,聽CLICK聽to download free example.
Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407
