Crear Validaci贸n de Datos en Excel con Macro
En este post se muestra como crear una validaci贸n de datos en Excel con macro, los datos para crear la lista de validaci贸n se encuentra en otra hoja distinta a la cual estamos trabajando.
Aprende excel en forma f谩cil y sencilla, 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.
Crear Lista de Validaci贸n con Excel
En este ejemplo al seleccionar en la celda 芦J2禄 un item se crea autom谩ticamente en la celda 芦J3禄 una lista de validaci贸n con macro, la cual permite el ingreso de datos, solamente de los que coincidan con la lista de validaci贸n generada por la macro, o bien se debe seleccionar desde el listado de validaci贸n que se genera en la celda, seleccionado el dato se procede a filtrar y mostrar los datos en la hoja de Excel.
Explicaci贸n del c贸digo para crear Listado para Validaci贸n de Datos en Excel VBA
La macro detecta si se modifica la celda de la columna 10 es decir 芦J1禄, se utiliza el siguiente c贸digo
聽Target.Row = 1 And Target.Column = 10 Then
Luego se crea objetos con las hoja donde se encuentran los datos y la hoja donde se crear谩 el listado de validaci贸n, as铆:
Set a = Sheets(芦Hoja1禄)
Set b = Sheets(芦Hoja3禄)
Se determina la 煤ltima celda con datos de la hoja 3 que es donde se encuentra el listado de datos para utilizarlos como validaci贸n
uf = b.Range(芦B禄 & Rows.Count).End(xlUp).Row
Por 煤ltimo se agrega la validaci贸n en la celda 芦J2禄 de Excel VBA, se usa el siguiente c贸digo:
With a.Range(芦J2禄).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=禄=Hoja3!$B$2:$B$禄 & uf
.IgnoreBlank = True
.InCellDropdown = True
End With
Descarga el Libro de Excel utilizado en el Ejemplo Como Crear Validaci贸n con Macro
La descarga del archivo de Excel usado como ejemplo puedes hacerlos desde el final del post, 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.
C贸digo para Crear Validaci贸n de Datos con Macro de Excel – VBA
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 10 Then
Application.ScreenUpdating = False
Set a = Sheets(芦Hoja1禄)
Set b = Sheets(芦Hoja3禄)
uf = b.Range(芦B禄 & Rows.Count).End(xlUp).Row
With a.Range(芦J2禄).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=禄=Hoja3!$B$2:$B$禄 & uf
.IgnoreBlank = True
.InCellDropdown = True
End With
End If
If Target.Row = 2 And Target.Column = 10 Then Call Filtrar
End Sub
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
