pasar el contenido de una celda a otra borrando lo de la celda ori

Hola, Karla.

Lo que buscas es posible, pero mediante código. Tienes que interceptar el
evento Change (este evento ocurre cada vez que cambias un valor de alguna
celda) para la hoja.

Prueba hacer lo siguiente, y luego si es necesario le haces los cambios para
personalizarlo a tu caso:

1. Si sólo quieres copiar el valor de A1 en B1:

Haz clic derecho en el separador de la hoja, selecciona Ver código y pegas
lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("B1").Value = Target.Value
End If
End Sub


Luego cierras la hoja y pruebas hacer cambios en la celda A1.


2. Para tu segunda pregunta, procede de la misma manera. Borra lo que
pegaste en el caso anterior, y pega lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("B" & Application.WorksheetFunction.CountA(Range("B:B")) +
1).Value = Target.Value
End If
End Sub


Espero que sea lo que buscas.

Saludos.



"Karla" escribió:

Buenas tardes a todos los que colaboran en este gran Foro,tengo 2 preguntas
para ustedes, alguien sabe como pasar lo que escribo en una celda "A" a otra
"B" y automaticamente dejar libre "A" es decir borrar el contenido,

De ser posible esto , hay forma de lo que voy poniendo en "A" se vaya
pasando a "B" de manera en forma de lista utilizando celdas B1, B2, B3 y asi
sucesivamente?,

Saludos y muchas , muchas gracias ,