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.]

Invitado


Invitado
Buenos días, en esta Macro que es perfecta para mis necesidades gracias a, tan17 y tyno, la pregunta es :
Se pude evitar, al estar grabada en una carpeta aparte, no me ponga ni en las formulas ni hipervinculos la referencia a la factura original para que cuando la necesite no tenga que estar limpiando todas esas referencias.
Muchas gracias.
Un saludo

Invitado


Invitado
Se me olvido mandar la macro como la tengo.
La macro quedo perfacta asi:
Sub Copia_Seguridad()
    ' Copia de Seguridad
    Dim texto As String 'ActiveWorkbook.Save
    texto = "G:\Seguridad\Factura Seguridad "               ' Nombre del archivo
    texto = texto + " " + Format(Now(), "yyyy-mm-dd") + " " + Format(Now, "HH") + ".xls"
    ' 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

    ActiveWorkbook.SaveCopyAs (texto)
End Sub

Un saludo

Invitado


Invitado
Gracias de todos modos

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.