Active Sheet, ¿Puede ser genérica?
¿Buenas, qué tal?
El tema es el siguiente: yo tengo en Access 2007 un libro con los macros que uso "genericamente" para ciertos archivos.
Cada vez que abro esos archivos y preciso usar algún macros los ejecuto desde el "generico".
El tema es el siguiente, cuando hice el macro me quedó registrado el nombre de la hoja, en este caso "Estado de cuenta", y solo se ejecuta si la hoja activa se llama de igual forma, pero la pregunta es: ¿Se puede dejar de alguna forma que no sea imprescindible que la hoja activa se llame "Estado de cuenta"? O sea, ¿si la hoja se llama "Hoja1" que igual se ejecute el macro?.
Gracias.
A continuación les dejo parte del macro para que vean lo que les digo.
Selection.RemoveSubtotal
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Add Key:=Range( _
"F2:F1000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Add Key:=Range( _
"B2:B1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Add Key:=Range( _
"F2:F1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
Gracias
El tema es el siguiente: yo tengo en Access 2007 un libro con los macros que uso "genericamente" para ciertos archivos.
Cada vez que abro esos archivos y preciso usar algún macros los ejecuto desde el "generico".
El tema es el siguiente, cuando hice el macro me quedó registrado el nombre de la hoja, en este caso "Estado de cuenta", y solo se ejecuta si la hoja activa se llama de igual forma, pero la pregunta es: ¿Se puede dejar de alguna forma que no sea imprescindible que la hoja activa se llame "Estado de cuenta"? O sea, ¿si la hoja se llama "Hoja1" que igual se ejecute el macro?.
Gracias.
A continuación les dejo parte del macro para que vean lo que les digo.
Selection.RemoveSubtotal
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Add Key:=Range( _
"F2:F1000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Add Key:=Range( _
"B2:B1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Estado de cuenta").Sort.SortFields.Add Key:=Range( _
"F2:F1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
Gracias
Respuesta de xavi -ae soft-
1