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
Hola, estoy trabajando en una macro que me filtre una tabla y que la pegue en otro libro, todo funciona correctamente salvo una parte.
A la tabla que deseo copia le pongo la opción de un autofiltro para que me seleccione solo una semana en particular, y tengo una validación para ello:
Sheets("DataIns").Select
Worksheets("DataIns").AutoFilterMode = False
Range("A1").Select
Selection.AutoFilter Field:=7, Criteria1:=wk
Range("G1").Select
ActiveCell.Offset(1, 0).Select
comproWeek = ActiveCell.Value
If comproWeek = wk Then
Range("B1").Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Else
Copiar = "No"
End If
Al utilizar el offset para comprobar si es la celda con la semana correcta queda dentro de las ocultas y por tanto no se copia.
Lo que necesito es que pueda desplazarse una fila y caer sobre el valor que corresponde para correr la condicional si debe copiarse o no...