lphant

Muchas gracias. Es muy buena opción, lo de usar la fórmula era por no abrir el Excel ( está en red ) y tarda mucho en abrirse pero creo que voy a tener que abrirle. Pd: lo que me has pasado funciona perfectamente. Gracias y un saludo.

Buenos días; Tengo un Excel desde el cual busco información en otros Excel que nunca suelen tener el mismo nombre en la hoja. Para que la cosa sea rápida, no quisiera abrir el Excel, por eso lo de buscar la información con la fórmula de la macro. Mi problema viene en el nombre de la hoja, existe alguna forma de poder poner en la formula el nombre interno de la hoja??. Muchas gracias. Un saludo, Ejemplo.xlsm

buenas tardes @ikanni; te adjunto el excel y la base de datos en un zip. muchisimas gracias. Base2.zip

Buenas tardes a tod@s; Esta tarde me ha surgido otro problemita que …..por más vueltas que doy no sé cómo solucionarlo (si se puede, que me está oliendo que no ). Esto haciendo una consulta de Access a Excel por SLQ contando con 2 condiciones, la condición 1 es si tiene el dato xx y la condición 2 es que no tenga el dato xx, el problema que tengo es que en la columna de la condición 2, hay celdas en blanco que debería de contar y no las cuenta, solo cuenta lo que tiene dato. He probado de varias formas pero no doy con ello. Os adjunto la línea que tengo. Query = "Select count (Motivo) from consulta where Motivo ='CIERRE ROTO' And tipo_hnc Not In ('roto')" Pd: no os adjunto el Excel porque al ser una consulta de Access no se puede probar. Gracias y un saludo, Contar también celdas sin dato

Ahora sí me funciona poniendo los [ ], no sé que hice esta mañana, como dices algún espacio o algo de eso. Muchas gracias.

Buenas tardes; Tengo un problemita con una consulta SQL. En nombre de la columna de la que estoy filtrando un dato tiene espacios y ….por mas que he probado no consigo hacerla funcionar, siempre me da error. Como debo ponerlo (Descripción Casas )??. He probado con [ ] , con “”, con variable y nada. Dato = "'" & "Londres" & "'" Devolu = "'" & "Fin" & "'" Exacto = " = " Query = "SELECT * FROM Consulta where [Descripción Casas]" & Exacto & Dato & _ " and Motivo" & Exacto & Devolu Pd: no subo excel porque no se puede probar, si fuera necesario le subo. muchas gracias. Un saludo,

Creo que lo he entendido. Gracias

Es lógico lo que me dices y suponía que tenía que hacer 2 consultas pero como soy nuevo en esto de las consultas SQL por si algo se me escapa. Gracias @avalencia, me estás ayudando mucho.

Buenas tardes; Eso es, el resultado de Distinct no es del todo lo que busco. Para lo que estoy haciendo necesito que no exista duplicado en ninguna columna ( estoy haciendo una lista desplegable ), por eso decía de que la búsqueda de duplicados fuera en cada columna independiente de la otra. Por ahora lo he solucionado con 2 consultas pero si se puede mejor en una sola mejor. Muchas gracias.

Buenas tardes; Así lo estaba haciendo pero si se puede mejor y eliminar líneas haciéndolo desde la consulta mucho mejor no??. Un saludo,

Buenos días; Con una consulta SQL de Access a Excel me estoy trayendo 2 columnas, dichas columnas tienen datos duplicados. Estoy intentando traerme los datos sin duplicar de cada columna (una columna independiente de la otra ) pero tal y como lo pongo me mira en las 2 y me trae lo no duplicado en ambas. "SELECT DISTINCT CLIENTE, MOTIVO FROM Consulta" Se puede hacer de alguna forma o tengo que hacer 2 consultas independientes??. Un saludo, Dupli.xlsm

Menuda cabeza la mía. Uno se cierra en algo y ya no ve más. Lo acabo de solucionar. Muchas gracias @avalencia.

Vale, creo que ya he conseguido que medio funcione pero me da error al poner los encabezados. adjunto excel actualizado. Ejemplos.xlsm

Lo he activado ( es la versión 6.0 ) y me sigue dando el mismo error. He activado también el "Microsoft ActiveX data objects recordarte 6.0 library" por si fuera eso y nada, el mismo error. Las variables del SQL es verdad que hay no están definidas, fue un copia pega de la otra macro y no copié las definiciones. Que me falta??, No doy con ello. Muchas gracias.

muchas gracias a los 2. @avalencia, la verdad que va muy lento, puede ser por el servidor pero ..... voy a intentar probar con redcorset por si fuera mejor ( seguro que va igual pero no pierdo nada ). He escrito las siguientes lineas pero me da error de compliación "no se ha definido el tipo definido pot el usuario". Que tengo mal??. ----------- Sub Consulta_Recorset() Dim Conn As ADODB.Connection Dim MiConexion Dim Rs As ADODB.Recordset Dim Query As String Dim cont, j tipoBusqueda = Cells(1, 5) campo1 = Cells(2, 1) datoCampo1 = Cells(2, 2) campo2 = Cells(3, 1) datoCampo2 = Cells(3, 2) Set Conn = New ADODB.Connection MiConexion = "C:\Users\Desktop\Base.accdb" With Conn .Provider = "Microsoft.ACE.OLEDB.12.0" .Open MiConexion End With Query = "SELECT * FROM Consulta WHERE " & campo1 & complementoBusqueda1 & datoCampo1 & _ " and " & campo2 & complementoBusqueda1 & datoCampo2 Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseServer Rs.Open Source:=Query, _ ActiveConnection:=Conn 'Valir si la consulta devuelve resultados If Rs.EOF And Rs.BOF Then 'Borrar la conexión al Recordset Rs.Close Conn.Close 'Borrar la memoria Set Rs = Nothing Set Conn = Nothing MsgBox "No hay resultados para la consulta", vbInformation, "Infooo..." Exit Sub End If 'Recorrer el Recordset Rs.MoveFirst cont = 2 For j = 1 To 4 Cells(cont, 0) = Rs.Fields(j).Name Next j Do Cells(cont, 1) = Rs!(0) Cells(cont, 2) = Rs!(1) Cells(cont, 3) = Rs!(5) Cells(cont, 4) = Rs!(2) cont = cont + 1 Rs.MoveNext Loop Until Rs.EOF 'Cerrar la conexión Rs.Close Conn.Close Set Rs = Nothing Set Conn = Nothing End Sub --------- Ejemplos.xlsm