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
Gente, del Foro, Buenas Tardes
Recurro nuevamente a sus conocimientos, ya que los mios tienen cierta limitacion.
El asunto es asi.
(Adjunto un Excel de ejemplo)
Tengo Un Libro con dos Hojas, una llamada, "CHEQUES", y la otra "listar".
Dentro de la hoja denominada "CHEQUES", tengo dos "Columnas" bien definidias.
Una columna con el Nº 1 y otra con el Nº 2.
Dentro de la Columna Nº 1 tengo un listado de cheques con montos, fechas y un codigo disinto.
Ejemplo: "12-Mar / CH-2034 / 100" , la "/" es la separacion de columnas.
Ahora, En la columna D3 rotulada como "REPETIDOS", realice un funcion buscarV, para saber que cheques estan repetidos comparandola con la Columna Nº2.
Como resultado de esa funcion, en la columna "REPETIDOS", se puede observar cuales estan repetidos y cuales no.
Ahora bien,
En la Segunda Hoja denominada "LISTAR", preciso que se listen aquellos que no se encutran repetidos.
Pero preciso que se listen con todos los campos, esto es (fecha / Nº cheque / valor).
Espero haber sido claro y que alguien me pueda brindar una mano.
SALUDOS CORDIALES
Torres, Pablo
MOSTRAR CHEQUES.xls