recuperar datos de celda

[soniapam]

tengo el siguiente codigo

Sub limpiar2()

Application.ScreenUpdating = False

Sheets("PRODUCCION").Select

Range("A7").Select

ActiveCell.ClearContents

Range("A7:A524,B7:B524,D7:CF524,CH7:CM524,EL7:EO524,FC7:FS524").Select

Selection.ClearContents

Application.ScreenUpdating = True

Range("A7").Select

End Sub

como puedo hacer para recuperar los datos que ya fueron eliminados, osea que si al final me arrepnti de borrarlos cual seria el codigo para una macro que me ayude a recuperar los datos borrados. Gracias

[Toldeman]

Hola.

Cuando ejecutas una macro ya no hay vuelta atras. Una opcion seria hacer un copy/paste a otra hoja antes de borrar.

Saludos.

[soniapam]

Gracias,

En el foro vi en una ocasion, que habia un macro para recuperar, lamentablemente, no lo copie o a lo mejor, vi mal, muchisimas gracias por la ayuda

- - - - - Mensaje combinado - - - - -

hola he encontrado el codigo, pero no se como aplicarlo, me dan una mano por fa

Option Explicit

Type SaveRange

Val As Variant

Addr As String

End Type

Public OldWorkbook As Workbook

Public OldSheet As Worksheet

Public OldSelection() As SaveRange

'------------------------------------------------------------------------------

Sub Cambio()

Dim i

Dim cell

If TypeName(Selection) <> "Range" Then Exit Sub

'Guarda los valores actuales para deshacer

ReDim OldSelection(Selection.Count)

Set OldWorkbook = ActiveWorkbook

Set OldSheet = ActiveSheet

i = 0

For Each cell In Selection

i = i + 1

OldSelection(i).Addr = cell.Address

OldSelection(i).Val = cell.Formula

Next cell

'Insertar 0 en la selección actual

Application.ScreenUpdating = False

Selection.Value = 0

'Especificar el nombre que aparecera en menu Deshacer

Application.OnUndo "Deshacer macro", "Deshacermacro"

End Sub

'--------------------------------------------------------------------------------

Sub Deshacermacro()

Dim i

' "Deshace el efecto de la macro

On Error GoTo Problem

Application.ScreenUpdating = False

OldWorkbook.Activate

OldSheet.Activate

' Restaurar la información guardada

For i = 1 To UBound(OldSelection)

Range(OldSelection(i).Addr).Formula = OldSelection(i).Val

Next i

Exit Sub

Problem:

MsgBox "No se puede deshacer"

End Sub

[soniapam]

Estimados,

me dan una mano por fa

[Toldeman]

Hola.

revisa este enlace del maestro Logroastur

https://www.ayudaexcel.com/foro/threads/deshacer-cambios-producidos-por-macro.13070/

Un saludo.

[Sergio]

Para poder deshacer los cambios de una macro, primero se debe guardar el estado de la hoja o de los datos. Una vez ejecutada la macro que borra los datos, no se pueden recuperar.

Una opción sería que buscases entre los archivos temporales que va guardando Excel para casos de cierres inapropiados del libro. A lo mejor, con un poco de suerte lo puedes encontrar ahí. Ordena los archivos de la carpeta temporal por fecha y ve buscando por el día y la hora en que perdiste los datos.

Suerte!

[soniapam]

el codigo es ese pero no se como aplicarlo, me ayuda alguien por fa