Otra de fechas

Eso depende, si son el mismo número de caracteres antes y después de la
fecha. Lo que yo haría sería poner la siguiente fórmula. Suponiendo que el
nombre del archivo estuviese en A1, esta sería la fórmula:

þCHA(EXTRAE(A1,6,4),EXTRAE(A1,10,2),EXTRAE(A1,12,2))

Espero que te sirva!

Saludos!


"Alejandro Garcia G." escribió en el
mensaje de noticias:

En el dia de ayer coloque un post en el cual deseaba colocar en una celda
X la fecha del dia inmediatamente anterior al de la fecha actual, me
contestaron y funciono bien.

Ahora tengo otro problema, resulta que yo debo abir unos archivos cuyo
nombre siempre es: 8401_20080119_12345678.xls, si se dan cuenta la segunda
parte es la fecha del dia, ¿es posible que yo coloque esa fecha (en
formato fecha) dentro de una celda de mi hoja?

Gracias.

P.D.: Deseo anexar esta opcion a la macro anteriormente elaborada.

Hola Alejandro,

Prueba la siguiente definición del nombre del archivo

archivo = "8401_" & Format(Date - 1, "yyyymmdd") & "_12345678.xls"

modifica la parte necesaria para adecuarse al nombre de tu archivo.

Un saludo,
Juan

"Alejandro Garcia G." escribió

En el dia de ayer coloque un post en el cual deseaba colocar en una celda
X la fecha del dia inmediatamente anterior al de la fecha actual, me
contestaron y funciono bien.

Ahora tengo otro problema, resulta que yo debo abir unos archivos cuyo
nombre siempre es: 8401_20080119_12345678.xls, si se dan cuenta la segunda
parte es la fecha del dia, ¿es posible que yo coloque esa fecha (en
formato fecha) dentro de una celda de mi hoja?

Gracias.

P.D.: Deseo anexar esta opcion a la macro anteriormente elaborada.

Gracias por contestar, pero la inquietud que tengo es: el nombre del
libro que estoy abriendo es, por ejemplo: 8401_20080119_12345678.xls,
la idea es que cuando yo ejecute la macro, en la celda A1, me coloque
19/01/2008, que seria la fecha que aparece en el nombre del archivo en
cuya hoja la estoy colocando...¿se puede esto?

Alejandro Garcia G. was thinking very hard :

En el dia de ayer coloque un post en el cual deseaba colocar en una celda X
la fecha del dia inmediatamente anterior al de la fecha actual, me
contestaron y funciono bien.

Ahora tengo otro problema, resulta que yo debo abir unos archivos cuyo nombre
siempre es: 8401_20080119_12345678.xls, si se dan cuenta la segunda parte es
la fecha del dia, ¿es posible que yo coloque esa fecha (en formato fecha)
dentro de una celda de mi hoja?

Gracias.

P.D.: Deseo anexar esta opcion a la macro anteriormente elaborada.

Hola Alejandro,

Disculpa que no haya entendido antes tu consulta.
Se me ocurre esta forma:

Debes cambiar el valor de la variable archivo, para la prueba utilice el del
libro.
Se basa en encontrar el primer guión bajo y que la fecha sea de 8 números
(caracteres)

Sub test()
Dim archivo As String
Dim numero As String

archivo = ThisWorkbook.Name
numero = Mid(archivo, InStr(1, ThisWorkbook.Name, "_") + 1, 8)
Range("A1") = DateSerial(Left(numero, 4), Mid(numero, 5, 2), Right(numero,
2))
End Sub

Un saludo,
Juan

"Alejandro Garcia G." escribió

Gracias por contestar, pero la inquietud que tengo es: el nombre del libro
que estoy abriendo es, por ejemplo: 8401_20080119_12345678.xls, la idea es
que cuando yo ejecute la macro, en la celda A1, me coloque 19/01/2008, que
seria la fecha que aparece en el nombre del archivo en cuya hoja la estoy
colocando...¿se puede esto?

Alejandro Garcia G. was thinking very hard :

En el dia de ayer coloque un post en el cual deseaba colocar en una celda
X la fecha del dia inmediatamente anterior al de la fecha actual, me
contestaron y funciono bien.

Ahora tengo otro problema, resulta que yo debo abir unos archivos cuyo
nombre siempre es: 8401_20080119_12345678.xls, si se dan cuenta la
segunda parte es la fecha del dia, ¿es posible que yo coloque esa fecha
(en formato fecha) dentro de una celda de mi hoja?

Gracias.

P.D.: Deseo anexar esta opcion a la macro anteriormente elaborada.

Juan M. nuevamente mil gracias por tus comentarios, solo que hay un
detalle, la macro la coloco en el libro Personal.xls, y cuando ejecuto
la macro, me toma como nombre de archivo Personal.xls y no el nombre
del libro que necesito "84021."...

He intentado cambiar alguna instruccion pero no logro que se me ejecute
totalmente, pues me sale un error en esa intruccion.

Nuevamente gracias.