modificar cadena de caracteres en una macro

hola, adolfo !

Mostrar la cita

... un ejemplo de instruccion de la macro que me gustaria poder modificar desde "fuera":
workbooks.open ("path\febrero.xls"), updatelinks:=3
workbooks ("febrero.xls").close savechanges:=true
Como estas dos instrucciones tengo otras 58 referencias distintas al mes en esta macro.
A ver si ahora te lo he expuesto un poco mas claro.

1) si suponemos que deseas/puedes/prefieres/... que el dato del mes correspondiente sea tomado de alguna celda...
[p.e. de la celda 'A1' de la hoja45]

Workbooks.Open "path\" & Worksheets("hoja45").Range("a1") & ".xls", UpdateLinks:=3
Workbooks(Worksheets("hoja45").Range("a1") & ".xls").Close True

2) si suponemos que prefieres 'preguntarselo' al usuario [p.e.] a traves de un inputbox...

Dim Mes As String
Mes = InputBox("Indica el mes correspondiente")
Workbooks.Open "path\" & Mes & ".xls", UpdateLinks:=3
Workbooks(Mes & ".xls").Close True

3) si suponemos que...
-> por que no mejor nos comentas 'como/de donde...' prefieres/consideras/... tomar el mes correspondiente ?
considera que las alternativas anteriores pudieran necesitar de algunos 'retoques' :))

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

¡Muchas gracias Hector!
Me parece muy buena idea la numero 1, y creo que lo voy a resolver de esta
manera, pero de todas maneras me gustaria saber si podria cambiar esta cadena
de caracteres desde otra macro que tengo en otra hoja. Gracias otra vez.

"Héctor Miguel" escribió:

Mostrar la cita

hola, adolfo !

> ... un ejemplo de instruccion de la macro que me gustaria poder modificar desde "fuera":
> workbooks.open ("path\febrero.xls"), updatelinks:=3
> workbooks ("febrero.xls").close savechanges:=true
> Como estas dos instrucciones tengo otras 58 referencias distintas al mes en esta macro.
> A ver si ahora te lo he expuesto un poco mas claro.

1) si suponemos que deseas/puedes/prefieres/... que el dato del mes correspondiente sea tomado de alguna celda...
[p.e. de la celda 'A1' de la hoja45]

Workbooks.Open "path\" & Worksheets("hoja45").Range("a1") & ".xls", UpdateLinks:=3
Workbooks(Worksheets("hoja45").Range("a1") & ".xls").Close True

2) si suponemos que prefieres 'preguntarselo' al usuario [p.e.] a traves de un inputbox...

Dim Mes As String
Mes = InputBox("Indica el mes correspondiente")
Workbooks.Open "path\" & Mes & ".xls", UpdateLinks:=3
Workbooks(Mes & ".xls").Close True

3) si suponemos que...
-> por que no mejor nos comentas 'como/de donde...' prefieres/consideras/... tomar el mes correspondiente ?
considera que las alternativas anteriores pudieran necesitar de algunos 'retoques' :))

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

hola, adolfo !

Mostrar la cita

Me parece muy buena idea la numero 1, y creo que lo voy a resolver de esta manera
pero de todas maneras me gustaria saber si podria cambiar esta cadena de caracteres desde otra macro que tengo en otra hoja...

no es que no se pueda, [simplemente] creo que es mas sencillo [incluso de modificar] de la forma sugerida :))
de todos modos, si quieres conocer como son los procedimientos para modificar lineas de codigo... 'desde otro codigo']...
-> los requisitos 'indispensables' para el manejo de 'codigo×codigo' [modificar/agregar/eliminar - lineas/modulos] requieren:
a) establecer una referencia [en vba] a la libreria -> Microsoft Visual Basic for Applications Extensibility
la version de la libreria 'depende' de la version [de excel] -> donde se ha de utilizar [p.e.]
1) en excel 97 => NO DEBE tener numero de version.
2) en excel 2K => debiera funcionar 'sin problemas'
3) en excel XP/2003 => REQUIERE [ademas] de un 'ajuste' [en caso de no tenerlo ya] a las 'fuentes de confianza'
el ajuste es en: [menu] herramientas/macros/seguridad/[pesta#a] fuentes de confianza y ...
poner una marca en: 'confiar en el acceso a proyectos de visual basic
b) revisar la informacion 'al respecto' [p.e.] en paginas como esta: -> http://www.cpearson.com/excel/vbe.htm

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