UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Edmomo


Señores muy buenos días, reciban de mi parte un cordial saludo

Mi problema es el siguiente

Por falta de concentración en lo que estaba haciendo, resulta que tenia dos archivos con el mismo nombre (Artículos) uno en una memoria Usb y el otro en un Portátil. El del Portátil es el que permanece actualizado.

En un momento dado iba a copiar del Portátil a la memoria Usb y por error hice fue lo contrario quedando el archivo del Portátil des actualizado.       

Mi pregunta es existe alguna forma de recuperar el archivo del Portátil. Si alguien sabe algo sobre esto, le agradezco que me colabore y me saque del rollo en el que estoy metido.

Eder Monterroza

wibly


Hola Eder,
Lamentablemente no te puedo ayudar. Yo también he tenido esa mala experiencia... veremos si alguien puede ayudar.
Saludos

Igtelo


Hola Eder / Adrián.

Lamento decirte que "creo" que no es posible. Si te sirve de consuelo recuerda que no hay a quien no le haya pasado, ni modo a volver a hacerlo.

Si alguien sabe, mucho le agradeceremos nos enseñe.

Un abrazo compañeros.
Nacho Téllez

Edmomo


Como no hubo solución al problema planteado, doy por cerrado este tema

Invitado


Invitado
A mi me ha pasado.
Y para corregir el problema, lo que hice en la misma macro de guardar y cerrar, le he agregado:


'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
    ' Copia de Seguridad
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
    Dim texto As String
    texto = "G:\Factura\Carpeta\Nombre"               ' Nombre de la carpeta que quieras guardarlo\Nombre del archivo
    ' Código:+ " "  signo del + y entre comillas lo  que gustes desde simbolos hasta espacios.
    ' = texto+  , es el nomnre del archivo, es necesario ponerlo.
    ' " " + , signo del + y entre comillas lo  que gustes desde simbolos hasta espacios.
    ' Format(Now, "DDDD") +, Dia de la semana en letra
    ' Format(Now, "DD") +, Dia de la semana en numero.
    ' Format(Now, "mmmm") +, Mes actual en letra.
    ' Format(Now, "mm") +, Mes actual en numero.
    ' Format(Now, "YYYY") +, Año actual
    ' Format(Now, "HH"), hora que se graba
    ' DateFormat(now(),"yyyy-mm-dd"),    2014-4-13
    ' Format(Now, "H.MM  Am/Pm"), hora que se graba
    texto = texto + " " + Format(Date, "dd-mm-yyyy") + " " + Format(Time, "h.mm.ss  Am/Pm") + ".xls"
    ActiveWorkbook.SaveCopyAs (texto)                       ' PARA CERRAR HOJA VIENDO LOS MENUS
    Application.DisplayAlerts = False                       ' No preguntar si se guarda
    ActiveWindow.DisplayWorkbookTabs = True                 ' Volver a MOSTRAR MENU HOJAS
    Application.DisplayFormulaBar = True                    ' Volver a MOSTRAR FORMULAS
    Application.CommandBars("Worksheet Menu Bar").Reset     ' Volver a mostrar la barra.
    Application.DisplayFullScreen = False                   ' Volver a PANTALLA NORMAL
    Dim c
    For Each c In CommandBars
    c.Enabled = True                                        'Mostrar la barra de menus.

Y he solucionado el problema

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.