Asignar valor de celda Activa a otra

¿Has trabajado con eventos?

En la hoja que deseas, y suponiendo que la celda en la que quieres copiar el
valor de la celda activa es A1, puedes utilizar el siguiente código para
interceptar el evento SelectionChange:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1).Value = ActiveCell.Value
End Sub

Este código me genera en ocasiones algunos fallos de pantalla. Verifícalo,
y si te causa problemas lo reemplazas por el siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells(1, 1).Value = ActiveCell.Value
Application.ScreenUpdating = True
End Sub

Lo único molesto, es que con este último verás un ligero parpadeo cada vez
que cambies la ubicación de la celda activa.



"Marvin" escribió:

Que tal grupo, alguien sabe como sería mi código para asignar el valor de una
celda activa a otra celda específica, es decir si me muevo sobre los datos de
mi hoja se asigne a la celda A1 p.e. el valor de la celda que en ese momento
este activa GRCS