EXCEL copiar y pegar en la ultima celda disponible

[iluqueja]

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.

[Omura]

podrías usar algo como esto...

Sub GuardarRegistro()
Range("A1:C1").Select
Selection.Copy
Sheets("Registro").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("MiniForm").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

Registro seria el nombre de la hoja donde se almacenarían los datos a guardar.
MiniForm seria el nombre de la hoja donde tendrías tu miniformulario.

lo único que para que funcione tendrías que crear la hoja Registro mas o menos de la siguiente forma...

1.......A............... B...................C
2[...................Registro.......................] (combinar celda)
3..Nombre........Hora........Comentarios
4....(aquí se irían grabando los datos de forma automática)
5 ...
6 ...

[mrocf]

Hola! iluqueja.
Suponiendo que el nombre de la hoja a la que se copian los datos es "Llamadas" y como alternativa a lo que te muestra "Omura" podrías intentar:

Código:

Sub CopiarLlamadas()
  Sheets("Llamadas").[A65536].End(xlUp).Offset(1).Resize(1, 3) = [A1:C1].Value
End Sub

Naturalmente toda la columa "B" de la hoja Llamadas debe tener el formato "hora".

Saludos, Cacho.