Macros
¿Cómo hacer una macros para copiar varias celdas de una hoja de calculo y pegarlas en una base de datos de otra hoja de calculo y que cada vez que repita la macros se peguen las celdas copiadas a la siguiente fila de la base de datos?
Respuesta de Elsa Matilde
1
Como no dejaste referencias de celdas, las siguientes instrucciones son solo un ejemplo para que adaptes a tu modelo:
Previamente obtenemos la primer fila libre de la hoja Base:
libre = sheets("Base").Range("A65536").End(xlUp).Row + 1
Activesheet.range("A5").copy destination:=Sheets("Base").Cells(libre,1) 'a col A
Activesheet.range("B10").copy destination:= Sheets("Base").Cells(libre,2) 'a col B
Otro método luego de obtener la fila libre:
Sheets("Base").Cells(libre,1) = Activesheet. Range("A5") 'para pasar a col A de hoja Base
y así con cada columna
Sdos
Elsa
Mi mejor recomendación para vos: mi manual Programación VBA . Podes descargar la demo e índice de contenidos aquí:
http://aplicaexcel.galeon.com/manuales.htm
Previamente obtenemos la primer fila libre de la hoja Base:
libre = sheets("Base").Range("A65536").End(xlUp).Row + 1
Activesheet.range("A5").copy destination:=Sheets("Base").Cells(libre,1) 'a col A
Activesheet.range("B10").copy destination:= Sheets("Base").Cells(libre,2) 'a col B
Otro método luego de obtener la fila libre:
Sheets("Base").Cells(libre,1) = Activesheet. Range("A5") 'para pasar a col A de hoja Base
y así con cada columna
Sdos
Elsa
Mi mejor recomendación para vos: mi manual Programación VBA . Podes descargar la demo e índice de contenidos aquí:
http://aplicaexcel.galeon.com/manuales.htm
