Conectar Excel con Excel Consulta SQL Un Criterio con Datos Mismo Libro





El ejemplo que se presenta es una macro que muestra como conectar Excel con Excel y Buscar Datos en Base a Criterio con SQL, estando los datos contenidos en el mismo libro, la consulta se realiza sin abrir el otro libro de Excel

Descarga el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz 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.

  

El vídeo verás la macro en acción con 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 nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.








 


Después de descargar el archivo podrás observar un botón, presionando el mismo se ejecuta la macro, la macro busca el dato de la celda H2 en la columna "Marca", cuyo nombre está en la celda H1, es variable así que se puede poner cualquier otro nombre de cabecera de columnas.

También su puede buscar una coincidencia exacta si se hace click en el checkbox o cualquier palabra que contenga la palabra escrita en la celda H2, para buscar los datos se combina VBA con SQL, para ello se debe realizar la conexión Excel con Excel con el siguiente código, aclarando que se usa Excel 365 / 2016.

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;"""

Luego se crea la SQL, que es el string de consulta, que luego se ejecuta para filtrar los datos dependiendo del criterio, es la siguiente dependiendo de si se requiere una coincidencia exacta o que la palabra contenga la cadena de texto de la celda H2:

Coincidencia no exacta es decir la palabra puede coexistir con otras cadenas de caracteres

sql = "SELECT * FROM [" & "Hoja1$" & "] WHERE Ucase(" & a.Range("H1") & ") LIKE Ucase('%" & Range("H2") & "%') ORDER BY ID ASC"

Coincidencia exacta, solo filtra los registros que coincidan en forma exacta con lo escrito.

sql = "SELECT * FROM [" & "Hoja1$" & "] WHERE Ucase(" & a.Range("H1") & ") LIKE Ucase('" & Range("H2") & "') ORDER BY ID ASC"



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como crear una factura con excel, guardarla y enviarla por mail automáticamente


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Como hacer un link o hiperlink a google maps con Excel

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

La consulta de datos se realiza con el siguiente código, con este código se filtran los datos según el criterio y se mantienen en memoria, Recordset.

Set rs = cn.Execute(sql)

Para escribir o pegar los datos filtrados en el Hoja del Libro de Excel se usa el siguiente código, en este caso se pegan en la hoja2 a partir de la celda A2.

b.Cells(2, 1).CopyFromRecordset Data:=rs


Luego la macro determina si existen datos en dicho rango, en caso positivo se encontraron datos y sale un mensaje en caso que no se hayan encontrado datos, sale otro mensaje distinto, esto se hace con msgbox (si quieres saber más sobre msgbox sigue el link)

Para terminar se aconseja conectar con el libro ejecutar la sql, lo más cercano posible al momento de usar los datos y luego liberar las variables, por el simple hecho que consume recursos (Memoria de la PC), entonces se debe realizar la consulta en el preciso momento de usar los datos, usarlos y liberar las variables y cerrar la conexión así:

Set rs = Nothing
cn.Close
Set cn = Nothing

El código completo se encuentra a continuación y posteriormente está el link de descarga del ejemplo Conectar Excel con Excel Busqueda  en Base a Criterios con SQL con Dtos en el Mismo Libro.


Código que se inserta en un módulo

Sub ConsutaSQLExcel()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ctl As Object
Dim cn As ADODB.Connection, rs As ADODB.Recordset, sql As String
On Error Resume Next
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set a = Sheets("Hoja1")
Set b = Sheets("Hoja2")

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;"""

'uf = a.Range("A" & Rows.Count).End(xlUp).Row
If a.CheckBox1 = False Then
sql = "SELECT * FROM [" & "Hoja1$" & "] WHERE Ucase(" & a.Range("H1") & ") LIKE Ucase('%" & Range("H2") & "%') ORDER BY ID ASC"
Else
sql = "SELECT * FROM [" & "Hoja1$" & "] WHERE Ucase(" & a.Range("H1") & ") LIKE Ucase('" & Range("H2") & "') ORDER BY ID ASC"
'sql = "SELECT * FROM [" & "Hoja1$A1:V65000" & "] WHERE Ucase(" & a.Range("H1") & ") LIKE Ucase('" & Range("H2") & "') ORDER BY ID ASC"
End If

b.Cells.Clear
a.Range("A1:G1").Copy Destination:=b.Range("A1")
Set rs = cn.Execute(sql)
b.Cells(2, 1).CopyFromRecordset Data:=rs
b.Range("B:B").NumberFormat = "dd/mm/yyyy"
Set rs = Nothing
cn.Close
Set cn = Nothing
If b.Range("A2") <> Empty Then
MsgBox ("La busqueda se realizó con éxito"), vbInformation, "AVISO"
Else
MsgBox ("No se encontraron registros para el criterio de búsqueda"), vbInformation, "AVISO"
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
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.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends