asignar nombre a un libro desde una celda

23/09/2005 - 23:45 por marcelo | Informe spam

Amigos, pido su ayuda, tengo una macro, que ejecuta a su vez varias macros
mas. el problema es que las macros abren varios libros que incluyen en el
nombre la fecha de dias anteriores y a su vez graban nuevos libros con
nombres incluidos fecha que le asigne.
un poco mas claro, debo ingresar a visual basic siempre y cambiar por
ejemplo la fecha del día anterior por la fehca actual en todos los modulos.
Puedo crear una hoja donde ingrese la fecha que quiero generar en una celda,
la misma que estara vinculada con los modulos que existen y reemplazara en el
campo de fecha la que yo ponga en la celda especifica??
Les adjunto el codigo por ejemplo siempre me toca cambiar reemplazar lo que
esta entre comillas "F21092005 - F22092005", cambiarlo a "F22092005 -
F23092005", y asi sucesivamente todos los días,
igual cambiar los "F22092005.xls", por la fecha del día y los "-
20050922.xls" por la fecha del día

Sub EJECUTABLE()
'
'
' Macro grabada el 15/06/2005 por clastra

' DISTRIBUIDOR "F21092005 - F22092005".xls (18 Cambios+1)
' QUERY "F22092005.xls" (18 Cambios+1 )
' MACHING 1104 - 0109 "- 20050922.xls" (17 Cambios+1)

Workbooks.Open Filename:= _
"C:\Respaldos\Conciliaciones\Centralización
1104\DISTRIBUIDOR-QUERY\DISTRIBUIDOR F21092005 - F22092005.xls"
Workbooks.Open Filename:= _
"C:\Respaldos\Conciliaciones\Centralización
1104\DISTRIBUIDOR-QUERY\QUERY F22092005.xls"

Windows("MATCHING MACRO.xls").Activate
Sheets("MACRO").Select
Range("A1").Select

como puedo hacer esto vincular los campos "Fddmmaaa" a una celda en la hoja
de inicio??

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

asignar el contenido de una celda como nombre del libro

Leer las respuestas

#1 Héctor Miguel

24/09/2005 - 00:59 | Informe spam

hola, marcelo !

... macros abren varios libros que incluyen en el nombre la fecha de dias anteriores
... a su vez graban nuevos libros con nombres incluidos fecha que le asigne
... debo ingresar a visual basic... y cambiar... la fecha del dia anterior por la... actual en todos los modulos
... por ejemplo siempre me toca cambiar reemplazar lo que esta entre comillas
"F21092005 - F22092005", cambiarlo a "F22092005 - F23092005", y asi sucesivamente todos los dias,
igual cambiar los "F22092005.xls", por la fecha del dia y los "- 20050922.xls" por la fecha del dia [...]
como puedo hacer esto vincular los campos "Fddmmaaa" a una celda en la hoja de inicio??

puedes usar la funcion [vba] Format(Dato, "Formato") que 'devuelve' cadenas de texto...
usando un dato_fecha y devolviendo [p.e.] el nombre_fecha de un archivo +/- ...
MsgBox Format(Date, "F-ddmmyyyy - ") & Format(Date + 1, "F-ddmmyyyy") & ".xls"
-> la variable 'Date' podrias sustituirla por datos_fecha que tengas establecidos en 'x' rangos/hojas/libros ;)
-> solo determina bien cual es la fecha 'menor_mayor' del nombre... hoy_ma#ana o... ayer_hoy ;)

si cualquier duda... comentas?
saludos,
hector.

Responder a este mensaje

#2 marcelo

24/09/2005 - 01:46 | Informe spam

oK, Gracias, esta claro, solo una consulta como iriia la referencia date a
una celda en especifico por ejemplo f15?? alli colocaria la fecha inicio y
g15 la fecha fin??

"Héctor Miguel" escribió:

hola, marcelo !

> ... macros abren varios libros que incluyen en el nombre la fecha de dias anteriores
> ... a su vez graban nuevos libros con nombres incluidos fecha que le asigne
> ... debo ingresar a visual basic... y cambiar... la fecha del dia anterior por la... actual en todos los modulos
> ... por ejemplo siempre me toca cambiar reemplazar lo que esta entre comillas
> "F21092005 - F22092005", cambiarlo a "F22092005 - F23092005", y asi sucesivamente todos los dias,
> igual cambiar los "F22092005.xls", por la fecha del dia y los "- 20050922.xls" por la fecha del dia [...]
> como puedo hacer esto vincular los campos "Fddmmaaa" a una celda en la hoja de inicio??

puedes usar la funcion [vba] Format(Dato, "Formato") que 'devuelve' cadenas de texto...
usando un dato_fecha y devolviendo [p.e.] el nombre_fecha de un archivo +/- ...
MsgBox Format(Date, "F-ddmmyyyy - ") & Format(Date + 1, "F-ddmmyyyy") & ".xls"
-> la variable 'Date' podrias sustituirla por datos_fecha que tengas establecidos en 'x' rangos/hojas/libros ;)
-> solo determina bien cual es la fecha 'menor_mayor' del nombre... hoy_ma#ana o... ayer_hoy ;)

si cualquier duda... comentas?
saludos,
hector.

Responder a este mensaje

#3 Héctor Miguel

24/09/2005 - 02:09 | Informe spam

hola, marcelo !

... como iriia la referencia date a una celda en especifico por ejemplo f15?... la fecha inicio y g15 la fecha fin?

solo modifica en el ejemplo las variables 'Date' y 'Date + 1' por los rangos de fecha_inicio y fecha_final [p.e.]
de -> MsgBox Format(Date, "F-ddmmyyyy - ") & Format(Date + 1, "F-ddmmyyyy") & ".xls"
a -> MsgBox Format([f15], "F-ddmmyyyy - ") & Format([g15], "F-ddmmyyyy") & ".xls"

-> toma nota que los rangos entre corchetes... [f15] y [g15] son la forma de 'notacion abreviada' a objetos rango
y en este caso se refieren a la hoja 'activa'
-> [probablemente] sera mejor 'calificar' completamente cada rango/hoja/... [p.e.]
MsgBox Format(Worksheets("Hoja1").Range("f15"), "F-ddmmyyyy - ") & _
Format(Worksheets("Hoja1").Range("g15"), "F-ddmmyyyy") & ".xls"

si cualquier duda... comentas?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida