topic Re: MACROS EN MISMA HOJA in Español

MACROS EN MISMA HOJA

carlosac — Wed, 19 Mar 2014 10:54:59 GMT

Buenas

Alguien sabe si e pueden tener 2 botenes , cada uno con macros distintas en la misma hoja????

Tengo una que guarda los datos y otra que hace un zoom , pero cuando las pongo en la misma hoja solo funciona 1 de ellas....

Re: MACROS EN MISMA HOJA

soniacoprosa — Wed, 19 Mar 2014 11:04:37 GMT

Hola,

Si que se puede. Yo los tengo en varios proyectos sin problemas.

Re: MACROS EN MISMA HOJA

carlosac — Wed, 19 Mar 2014 12:20:02 GMT

Hola Sonia, podias anexarme algun ejemplo con 2 botones o decirme como lo haces, porque cuando creo el segundo boton me aparece la macro de la primera....

Re: MACROS EN MISMA HOJA

soniacoprosa — Wed, 19 Mar 2014 12:37:26 GMT

Hola Galván,

Te pondré un ej. con 3 botones: Todo, Anual y Comparativo. Estos botones ejecutan distintas macros.

Para el botón “Todo”, en Propiedades, pestaña acciones: tengo 2 acciones ejecutar macro, primero ejecuta la macro “EnableA3” y después “HideSelectTodo” que previamente he creado en el editor de módulo.

Te pongo las macros del botón “Todo”:

' OCULTAR COLUMNAS EN LSTDO. VALORADAS - A3

' Muestra todas las columnas para listado Valoradas A3

Sub EnableA3

set doc = ActiveDocument

set s = doc.GetSheetObject("CH728")

set propS = s.getProperties()

'Esto lo que hace es habilitar la expresión (le pone la marca en el objeto)

' NOTA: las expresiones empiezan en la cero!!

exprD = propS.Expressions.Item(0).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(1).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(2).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(3).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(4).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(5).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(6).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(7).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(8).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(9).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(10).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(11).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(12).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(13).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(14).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(15).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(16).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(17).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(18).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(19).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(20).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(21).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(22).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(23).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(24).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(25).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(26).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(27).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(28).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(29).Item(0).Data.ExpressionData

exprD.Enable = true

exprD = propS.Expressions.Item(30).Item(0).Data.ExpressionData '

exprD.Enable = true

exprD = propS.Expressions.Item(31).Item(0).Data.ExpressionData '

exprD.Enable = true

s.setProperties propS

end sub

sub HideSelectTodo

set v = ActiveDocument.GetVariable("vSelectTodo")

v.SetContent 0,true

end sub

Para los otros 2 botones sería algo similar, con otras macros.

Un saludo,

Re: MACROS EN MISMA HOJA

carlosac — Wed, 19 Mar 2014 14:22:01 GMT

Hola Sonia, perdona de nuevo pero no me aclaro mucho. Te comento.

Tengo 2 acciones y queria crear para ello 2 botones independientes.

La primera es:GUARDAR LO SELECCIONADO DE UNA TABLA EN UN FICHERO XML

Sub Guardar_en_Server
set tb = ActiveDocument.GetSheetObject("TB03")
tb.ServerSideExportEx "SeleccionrefGabi.xml" , ";" , 3 '0=HTML, 1=Text, 2=Bitmap, 3=XML, 4=QVD, 5=BIFF: posibles formatos de grabación
end sub

Y el segundo boton es un ZOOM A PANTALLA

Sub FitZoom()

ActiveDocument.ActiveSheet.FitZoomToWindow

End Sub

No se como hacerlo porque estoy muy pez

Re: MACROS EN MISMA HOJA

soniacoprosa — Thu, 20 Mar 2014 09:02:43 GMT

Hola Galván,

Decirte que tan poco las macros son lo mío, sólo las utilizo en contadas ocasiones.

Suponiendo que tus 2 subrutinas te funcionan como dices por separado, lo único que tendrías que hacer es poner en cada botón una acción “Ejecutar macro” y en “Nombre de macro” el nombre de la subrutina correspondiente.

Por ej.:

Supongo que no has puesto todo el código de la subrutina del zoom, no? He intentado ponerla en un botón y no funciona. Si buscas en la pag. de QV “macro zoom” verás que hay algunas.

Esta por ej:

sub ResetZoom15

set mySheet = ActiveDocument.ActiveSheet

set sp = mySheet.GetProperties

sp.ZoomFactor = sp.ZoomFactor*1.5

mySheet.SetProperties sp

end sub

Un saludo,

Re: MACROS EN MISMA HOJA

carlosac — Thu, 20 Mar 2014 09:18:56 GMT

Gracias Sonia, he cambiado lo que me comentas y ahora funciona perfectamente. La verdad es que me has ayudado y monton y perdona por las molestias.

Re: MACROS EN MISMA HOJA

soniacoprosa — Thu, 20 Mar 2014 09:24:18 GMT

De nada. No ha sido ninguna molestia.