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 y agradecer cualquier ayuda sobre el tema :
Necesito extraer las filas relacionadas con un valor el cual tiene un rango de búsqueda de dos columnas, el
código creado sólo me extrae lo que aparece en la columna AT, pero necesitaría que me extrajese también
si el valor buscado aparece en la columna AU.
´
Lo he intentado con dos códigos pero no llego a conseguirlo
Opción 1- sólo me saca la columna AT
If Range("DIARIOCABAL!AT" & I) = Range("MAYORES!C4") Or ("DIARIOCABAL!AU" & I) = Range("MAYORES!C4") Then
Range("MAYORES!b" & J) = Range("DIARIOCABAL!F" & I)
Range("MAYORES!c" & J) = Range("DIARIOCABAL!B" & I)
Opción 2 - me da error de contexto en el código
If Range("DIARIOCABAL!AT:AU" & I) = Range("MAYORES!C4") Then
Range("MAYORES!b" & J) = Range("DIARIOCABAL!F" & I)
Range("MAYORES!c" & J) = Range("DIARIOCABAL!B" & I)
No puedo adjuntar fichero y no me deja ver el mensaje de error.