Necesito hacer esto

14/08/2008 - 06:49 por Qandeal | Informe spam
Necesito hacer lo siguiente si es que se puede, y no se ni por donde
empezar, asi que recabo vuestra ayuda.

Tengo una hoja Excel guardada con este nombre "ActaPlantilla" en
blanco ya que necesitamos utilizarla muy a menudo.

Lo que necesito es que cuando se abra esta hoja en Archivo > Abrir,
automaticamente salte una peticion de fecha, y una vez se introduzca
la fecha, la hoja se guarde automaticamente con este nombre
*Addmmaaaa*, donde la "A" es fija, "dd" es el dia de la fecha que se
ha tecleado, "nn" el mes y "aaaa" el año.

Todo esto tiene que ocurrir sin que el que este manejando esa hoja
tenga que preocuparse mas que de introuducir la fecha y evidentemente
la hoja "ActaPlantilla" tiene que quedar intacta para una proxima
utilizacion.
saludos,
Qandeal

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/08/2008 - 07:30 | Informe spam
hola, !

1) tendras que usar codigo en el evento '_open' de tu libro (ThisWorkbook)

2) primera linea: "comprobar" si el nombre del archivo sigue siendo "ActaPlantilla"
puesto vba es "sensible" a las may/min/usculas y la terminacion pudiera ser XLS o XLSM (segun version de excel)
te sugiero comprobar con minusculas +/- como sigue:

If LCase(ThisWorkbook.Name) <> "actaplantilla.xls" Then Exit Sub

si el libro ya cambio de nombre, las siguientes instrucciones ya no se ejecutaran
solo asegurate (por el uso de las macros) de la EXTension del archivo: -> XLS ? XLSM ?

3) otro detalle es "trabajar con fechas" entre excel, la configuracion regional, y las costumbres de los usuarios
mas informacion en: http://www.bmsltd.co.uk/ExcelProgRe...efCh22.htm (de Stephen Bullen)

4) entendido (y "sufragado") lo anterior... podrias "pedir el dato" (fecha o texto) mediante un inpubtox (p.e.)

ThisWorkbook.SaveAS "A" & InputBox("Introduce la fecha-nombre para este archivo") & ".xls"

OJO: nuevamente podria haber alguna inconsistencia con el "tipo" de libro (97/2003 o 2007)
y (seguramente) habria que comprobar primero que NO exista ya un nombre igual -???-
(ademas) habria que hacer una "verificacion" del tipo de dato introducido en el InputBox -???-

(probablemente) habra alguno que otro "detalle" que se tendria que adivinar (desde este lado del mensaje) asi que...

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
Necesito hacer lo siguiente si es que se puede, y no se ni por donde empezar, asi que recabo vuestra ayuda.
Tengo una hoja Excel guardada con este nombre "ActaPlantilla" en blanco ya que necesitamos utilizarla muy a menudo.
Lo que necesito es que cuando se abra esta hoja en Archivo > Abrir, automaticamente salte una peticion de fecha
y una vez se introduzcala fecha, la hoja se guarde automaticamente con este nombre *Addmmaaaa*
donde la "A" es fija, "dd" es el dia de la fecha que se ha tecleado, "nn" el mes y "aaaa" el a#o.
Todo esto tiene que ocurrir sin que el que este manejando esa hoja tenga que preocuparse mas que de introuducir la fecha
y evidentemente la hoja "ActaPlantilla" tiene que quedar intacta para una proxima utilizacion...
Respuesta Responder a este mensaje
#2 Qandeal
14/08/2008 - 08:07 | Informe spam
On Thu, 14 Aug 2008 00:30:34 -0500, "Héctor Miguel"
wrote:

hola, !

1) tendras que usar codigo en el evento '_open' de tu libro (ThisWorkbook)

2) primera linea: "comprobar" si el nombre del archivo sigue siendo "ActaPlantilla"
puesto vba es "sensible" a las may/min/usculas y la terminacion pudiera ser XLS o XLSM (segun version de excel)
te sugiero comprobar con minusculas +/- como sigue:

If LCase(ThisWorkbook.Name) <> "actaplantilla.xls" Then Exit Sub

si el libro ya cambio de nombre, las siguientes instrucciones ya no se ejecutaran
solo asegurate (por el uso de las macros) de la EXTension del archivo: -> XLS ? XLSM ?

3) otro detalle es "trabajar con fechas" entre excel, la configuracion regional, y las costumbres de los usuarios
mas informacion en: http://www.bmsltd.co.uk/ExcelProgRe...efCh22.htm (de Stephen Bullen)

4) entendido (y "sufragado") lo anterior... podrias "pedir el dato" (fecha o texto) mediante un inpubtox (p.e.)

ThisWorkbook.SaveAS "A" & InputBox("Introduce la fecha-nombre para este archivo") & ".xls"

OJO: nuevamente podria haber alguna inconsistencia con el "tipo" de libro (97/2003 o 2007)
y (seguramente) habria que comprobar primero que NO exista ya un nombre igual -???-
(ademas) habria que hacer una "verificacion" del tipo de dato introducido en el InputBox -???-

(probablemente) habra alguno que otro "detalle" que se tendria que adivinar (desde este lado del mensaje) asi que...

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
Necesito hacer lo siguiente si es que se puede, y no se ni por donde empezar, asi que recabo vuestra ayuda.
Tengo una hoja Excel guardada con este nombre "ActaPlantilla" en blanco ya que necesitamos utilizarla muy a menudo.
Lo que necesito es que cuando se abra esta hoja en Archivo > Abrir, automaticamente salte una peticion de fecha
y una vez se introduzcala fecha, la hoja se guarde automaticamente con este nombre *Addmmaaaa*
donde la "A" es fija, "dd" es el dia de la fecha que se ha tecleado, "nn" el mes y "aaaa" el a#o.
Todo esto tiene que ocurrir sin que el que este manejando esa hoja tenga que preocuparse mas que de introuducir la fecha
y evidentemente la hoja "ActaPlantilla" tiene que quedar intacta para una proxima utilizacion...






Perfecto es lo que necesitaba, ya esta funcionando, muchisimas
gracias.
saludos,
Qandeal
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida