Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
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,