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 a tod@s, llevo varios días rompiéndome la cabeza intentando que me funcione esta macro.
El tema es el siguiente, tengo dos hojas:
- Datos
- Resultados
En la hoja “Resultados” necesito que me busque el dato de Cantidad para cada pieza, y para ello los requisitos son la hora y fecha.
Lo que tiene que hacer la macro sería:
- De la hoja “Resultados”
- Coger el dato tipo de pieza.
- Coger fecha
- Coger hora
- Ir a hoja “Datos” y buscar, con esos tres criterios la cantidad
- Copiar ese dato de cantidad en la hoja “Resultados”
Por ejemplo de la pieza A, el 19.05.2014 a las 7 tendríamos 10 piezas.
Para el caso de la pieza B el 20.05.2014 a las 12 tendríamos 110 piezas.
Subo el archivo para que lo veáis
Muchas gracias de antemano
Productos2.xls