Pasar información mediante una macro

Tengo una hoja de excel llamada Salidas en la cual se almacenan datos que provienen de otra hoja llamada Factura, quiero que por medio de una macro pueda pasar los datos y que los coloque en la primera fila vacía de la hoja Salida.
Ejemplo: Hoja Factura  A1=04/07/2008, A2=200801 
A3=12, B3=8010608, C=Economia
A4=18, B4= 8010609, C=Trabajo
Mediante la macro pasar estos datos a la hoja Salidas así:
A1,B1,C1,D1y E1 ya esta ocupada
A2=04/07/2008, B2=200801, C2=12, D2=8010608, E2= Economia
A3=04/07/2008, B3=200801, C3=18, D3= 8010601, E3= Trabajo
y asi sucesivamente.
Por su ayuda ante todo muchas gracias.

1 Respuesta

Respuesta
1
Puedes usar algo como lo siguiente:
Sub copie()
Worksheets("salidas").Activate
i = 0
Do
i = i + 1
cadena = Cells(i, 1).Value
If 1 > Len(cadena) Then Exit Do
Loop
Sheets("facturas").Select
Range("A1:E12000").Select
Selection.Copy
Worksheets("Salidas").Activate
Cells(i, 1).Select
ActiveSheet.Paste
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas