Necesito una macro para copiar y pegar varios datos uno a uno
Tengo un archivo en el cual necesito hacer lo siguiente: en la hoja 1 tengo una lista de códigos, los cuales necesito pasar a la hoja 2 pero uno a uno ya que necesito ingresar el código 1 imprimir, luego el código 2 imprimir y así hasta el ultimo código,
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro. Cambia en la macro lo siguiene
"Hoja1" por la hoja en donde tienes tus códigos
"Hoja2" por la hoja que vas a imprimir
col = "A" por la columna en donde tienes tus códigos
Destino = "G2" por la celda en donde quieres pegar cada código
Prueba con 2 ó 3 códigos, para que revises la impresión, la hoja2, después de recibir el código se imprimirá en automático
Sub PasarCodigos()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
col = "A"
destino = "G2"
For i = 2 To h1.Range(col & Rows.Count).End(xlUp).Row
h2.Range(destino) = h1.Cells(i, col)
h2.PrintOut Copies:=1, Collate:=True
Next
End SubSaludos.Dante Amor
Si es lo que necesitas.
