cuagrar hoja a nombre de una celda

02/11/2005 - 03:05 por KM ** Ve | Informe spam
hola amigos tengo un libro en la celda (B3) es la fecha del mes actual y en
la celda (G1) es una formula de texto contiene una fecha
=CONCATENAR("VENTAS CONTROL MENSUAL
";TEXTO(FECHA(AÑO(B3);MES(B3)+1;1)-1;"mm-yyyy"))

así sale (VENTAS CONTROL MENSUAL 11-2005). Como hago un macro para que me
guarde el libro completo en este nombre la que estas en la celda (G1) y
cuando ejecuto el macro me pide un clave que yo lo establezco.



KM**VE
 

Leer las respuestas

#1 Héctor Miguel
02/11/2005 - 04:13 | Informe spam
hola, KM !

... la celda (G1) es una formula de texto contiene una fecha
... asi sale (VENTAS CONTROL MENSUAL 11-2005)
... un macro para que me guarde el libro completo en este nombre
... y cuando ejecuto el macro me pide un clave que yo lo establezco.



[p.e.] en un modulo de codigo 'normal' ==Sub MiMacroParaGuardar()
If InputBox("", "") <> "mi ClaVe SecrEta" Then Exit Sub
ThisWorkbook.SaveAs Range("g1"), xlWorkbookNormal
End Sub

-> la 'clave' debera coincidir EXACTAMENTE con la del codigo ;) [ojo entre mayusculas/minusculas]
-> [probablemente] habria que agregar agun 'directorio' [de lo contrario se tomara el directorio 'activo']

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares