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
Buenos días;
A ver si me podéis ayudar.
Tengo una consulta SQL en Excel que me cuenta las fechas por número de semana, todo funcionaba bien hasta este año.
Buscando por internet he encontrado la solución ( [vbMonday],[vbFirstFourDays] ) pero no me funciona, no sé qué pongo mal.
Esta era la consulta que funcionaba hasta este año ( ahora en la semana 8 me cuenta lo de la 7 ).
Query = "Select count (Columna1) from [Hoja1] where Columna1 In" & Datos & "And DatePart('ww',Columna2)=" & SemanaActual & "And DatePart('yyyy', Columna2)=" & AñoActual & "And (Not tipo_Columna3='No' or Columna3 is null)"
Esta es con la solución que encontré ( [vbMonday],[vbFirstFourDays] ) pero me da error.
Query = "Select count (Columna1) from [Hoja1] where Columna1 In" & Datos & "And DatePart('ww',Columna2,[vbMonday],[vbFirstFourDays])=" & SemanaActual & "And DatePart('yyyy', Columna2)=" & AñoActual & "And (Not tipo_Columna3='No' or Columna3 is null)"
No adjunto el excel porque no os va a funcionar pero si le necesitáis le adjunto.
Muchas gracias de antemano.