Excel - copiar y pegar en la ultima celda disponible

   
Vista:

copiar y pegar en la ultima celda disponible

Publicado por bonatti (2 intervenciones) el 07/04/2009 18:39:26
Hola, a ver si me pudierais ayudar con el siguiente caso:

En la hoja1 tengo un miniformulario (para anotar llamadas recibidas) de tres celdas (A1:C1) donde introduzco A1: nombre, B1:hora y C1: Asunto

Segun relleno dichas celdas, copio el rango (A1:C1) y lo pego en la hoja2, en las celdas (A:C) de la ultima fila en blanco Por ejemplo (A56:C56), cuando entra otra llamada lo hago nuevamente pero en la siguiente fila en blanco (A57:C57) y así sucesivamente. de forma que la hoja2 se va convirtiendo en una tabla donde quedan registradas todas las llamadas recibidas.

PREGUNTA: ¿Como sería la macro que de forma automatica al ejecutarla copie el rango (A1:C1) de hoja1 y lo pegue en el rango (A:C) de la ultima fila libre?

Os quedaría muy agradecido.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:copiar y pegar en la ultima celda disponible

Publicado por Luis Fernando (805 intervenciones) el 09/04/2009 05:20:40
Puedes hacerlo llendo a una celda de bien lejos y luego subes a la ultima ocupada y bajas una fila.

La parte de esa macro sería como lo siguiente


Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Application.Goto Reference:="R65536C1"
'Subir hasta encontrar datos
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar