topic Re: Recorrer una lista pulsando botón in Español

Recorrer una lista pulsando botón

Thu, 04 Sep 2014 16:55:26 GMT

Hola, a ver si alguien me puede ayuda.

Lo que quiero es crear una especie de botón que cada vez que pulse pase a la siguiente línea de una lista y así sucesivamente cada vez que pulse.

No se me ocurre cómo poder hacerlo.

Un saludo y gracias.

Re: Recorrer una lista pulsando botón

ecolomer — Fri, 05 Sep 2014 05:12:32 GMT

Con esta macro:

Sub Siguiente

set mySelections = ActiveDocument.fields("MES").GetSelectedValues(1)

ActiveDocument.Fields("MES").Clear

if mySelections.Count = 0 then

set val=ActiveDocument.Fields("MES").GetPossibleValues(1)

ValueToSelect = val.Item(0).Text

else

set val=ActiveDocument.Fields("MES").GetPossibleValues

IamDone = " "

for i=0 to val.Count-1

ValueToSelect = val.Item(i).Text

if IamDone = "X" then

exit for

end if

if val.Item(i).Text = mySelections.Item(0).text then

IamDone = "X"

end if

ActiveDocument.Fields("MES").Select ValueToSelect

End Sub

Te adjunto ejemplo con la lista MES

Re: Recorrer una lista pulsando botón

Fri, 05 Sep 2014 06:45:56 GMT

Hola Enrique, muchísimas gracias de verdad.

Soluciona perfectamente mi problema.

¿Dónde podría encontrar información sobre macros?

Un saludo y muchas gracias.

Re: Recorrer una lista pulsando botón

ecolomer — Fri, 05 Sep 2014 06:47:07 GMT

Te buscaré info y te la mandaré, porque hoy no la tengo a mano.

Re: Recorrer una lista pulsando botón

sorrakis01 — Fri, 05 Sep 2014 07:53:33 GMT

Hola Juan,

Veo que la pregunta la has realizado 2 veces y veo que Enrique ya te ha contestado lo mismo que te comenté en la otra pregunta. Genial que ya lo hayas solucionado. Respecto a información de macros hay un link de ejemplo con 18 casos que te puede ayudar:

http://luciancotea.wordpress.com/2013/07/18/qlikview-macros-useful-collection/

Saludos,

Re: Recorrer una lista pulsando botón

Mon, 08 Sep 2014 06:45:11 GMT

Hola Jordi, no me había fijado que había hecho la pregunta dos veces. sorry!

Muchas gracias por la info, ya que me será de gran ayuda.

Un saludo.

Re: Recorrer una lista pulsando botón

Wed, 10 Sep 2014 14:47:08 GMT

Hola Enrique, cómo podría recorrer la lista hacia atrás?

Es que intento modificar la macro para que lo haga, pero no lo consigo.

Un saludo y gracias.

Re: Re: Recorrer una lista pulsando botón

ecolomer — Thu, 11 Sep 2014 13:22:27 GMT

Te adjunto el ejemplo con los dos botones:

- Siguiente

- Anterior

La macro es:

Sub Anterior

set mySelections = ActiveDocument.fields("MES").GetSelectedValues(1)

ActiveDocument.Fields("MES").Clear

if mySelections.Count = 0 then

set val=ActiveDocument.Fields("MES").GetPossibleValues(1)

ValueToSelect = val.Item(0).Text

else

set val=ActiveDocument.Fields("MES").GetPossibleValues

IamDone = " "

for i=0 to val.Count-1

k=val.Count - (i + 1)

ValueToSelect = val.Item(k).Text

if IamDone = "X" then

exit for

end if

if val.Item(k).Text = mySelections.Item(0).text then

IamDone = "X"

end if

ActiveDocument.Fields("MES").Select ValueToSelect

End Sub