¿No sé si esto pueda ser posible en excel? GRACIAS!
Hola experto.
La casilla (C1) esta en constante movimiento -numérico, texto, etc. (pero sólo un formato a la vez)- la casilla (A1) registra lo que hay en (C1), cuando (C1) cambia (A1) permanece sin cambio (osea que guarda el dato) pero ahora (A2) registra lo nuevo de (C1) hasta el momento que (C1) cambia otra vez, (A2) permanece sin cambio (osea que guarda el dato) pero ahora (A3) registra lo nuevo de (C1) hasta el momento que (C1) cambia otra vez, (A4) ahora registra lo nuevo de (C1)... Y así sucesivamente sin fin
La casilla (C1) esta en constante movimiento -numérico, texto, etc. (pero sólo un formato a la vez)- la casilla (A1) registra lo que hay en (C1), cuando (C1) cambia (A1) permanece sin cambio (osea que guarda el dato) pero ahora (A2) registra lo nuevo de (C1) hasta el momento que (C1) cambia otra vez, (A2) permanece sin cambio (osea que guarda el dato) pero ahora (A3) registra lo nuevo de (C1) hasta el momento que (C1) cambia otra vez, (A4) ahora registra lo nuevo de (C1)... Y así sucesivamente sin fin
1 respuesta
Respuesta de prozac
1
Si que es posible. Lo que quieres es ir guardando los cambios de C1 en la columna A a partir de A2. Hay que interceptar el evento Change de la hoja. En la hoja (no en un módulo insertas el siguiente código).
Private Sub worksheet_change(ByVal target As Range)
Dim i As Integer
If Not Intersect(target, Range("C1")) Is Nothing Then 'ha cambiado la celda que busco
i = 1
Do While (Range("A" & i).Value > "") 'busco la iguiente celda sin datos
i = i + 1
Loop
Range("A" & i).Value = Range("C1").Value
End If
End Sub
Private Sub worksheet_change(ByVal target As Range)
Dim i As Integer
If Not Intersect(target, Range("C1")) Is Nothing Then 'ha cambiado la celda que busco
i = 1
Do While (Range("A" & i).Value > "") 'busco la iguiente celda sin datos
i = i + 1
Loop
Range("A" & i).Value = Range("C1").Value
End If
End Sub
