Buenas amigos...
Bueno me animado a preguntar ya que ve que hay mucha gente que me podria echar una mano con el tema.
es estado trabajando con excel adentrandome en el mundo de macros a lo cual implemente macros en un archivo de uso diario...
-->en la hoja1 tengo una base de tados y en la hoja2 es un formato para imprimir
-->en la hoja1 tengo los datos que van desde A2;J2 y va en vertical A3;J3 y asi sucesivamente, lo que quiero es que esos datos que van desde A2;J2 se imprimaran en unas celdas especificas en la hoja2, he usad este codigo pero no logro poner un bucle que vaya de fila en fiala es decir copiar los datos que tengo en A2;J2 en las celdas seleccionadas y siga para abajo A2;j2 ---->A3;J3---->A4;J4
les dejo el codigo usado y dejare el archivo a ver si me dan una manito con esto
Sub pasandoDatos()
'macro
Dim filault As Long 'esta será la primer fila libre para acumular los datos
filault = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
'luego pasarás cada celda de tu hoja 1 a las distintas col de la fila libre
Sheets("Hoja2").Range("AF2") = Sheets("Hoja1").Range("F2")
Sheets("Hoja2").Range("Q20") = Sheets("Hoja1").Range("A2")
Sheets("Hoja2").Range("T40") = Sheets("Hoja1").Range("H2")
Sheets("Hoja2").Range("E45") = Sheets("Hoja1").Range("C2")
Sheets("Hoja2").Range("E116") = Sheets("Hoja1").Range("A2")
Sheets("Hoja2").Range("E119") = Sheets("Hoja1").Range("B2")
Sheets("Hoja2").Range("L195") = Sheets("Hoja1").Range("C2")
Sheets("Hoja2").Range("G233") = Sheets("Hoja1").Range("B2")
'preparar la hoja para la impresión
With ActiveSheet.PageSetup
.PrintArea = "A1, AM252 "
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'hoja A4
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = False 'centrar horizontalmente
.CenterVertically = False 'centrar verticalmente-
End With
'imprimir las hojas seleccionadas (1 copias)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
https://mega.co.nz/#!psg02TrB!whlfLYvnBScVRRz9bpQYBK2mJotl_U_sqc4CMTW IDjE