Listbox sencillo???

27/01/2007 - 11:27 por Damaso983 | Informe spam

Necesito que a la hora de solicitar listados a través de un userform, en vez
de tener que escribir en la caja de texto el número del departamento (que es
el nombre que le he dado a cada una de las hojas del libro), me aparezca una
lista con esos números y poder seleccionar el que quiero.
Dámaso

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Ivan

27/01/2007 - 12:09 | Informe spam

hola Damaso

. Suponiendo que el listbox se llama Listbox1(si no cambialo por tu nombre),
en el evento Activate del userform podrias ponerr algo pareido a esto

sub LlenarListConHojas()
dim hj as worksheet
for each hj in thisworkbook.worksheets
Listbox1.additem hj.name
next
end sub

pruebalo si quieres, y comentas
un saludo
Ivan

Responder a este mensaje

#2 Damaso983

27/01/2007 - 12:52 | Informe spam

Dámaso

"Ivan" escribió:

hola Damaso

.. Suponiendo que el listbox se llama Listbox1(si no cambialo por tu nombre),
en el evento Activate del userform podrias ponerr algo pareido a esto

sub LlenarListConHojas()
dim hj as worksheet
for each hj in thisworkbook.worksheets
Listbox1.additem hj.name
next
end sub

pruebalo si quieres, y comentas
un saludo
Ivan
Iván, ¡funciona a la perfección!

Realmente te quedo agradecido

Por cierto. y ya puestos a complicar...
si queremos evitar que una o varias de esas hojas estén disponibles para el listbox; ¿cómo lo hacemos?

Muchas gracias y también a francisco.

Responder a este mensaje

#3 Ivan

27/01/2007 - 13:12 | Informe spam

hola Damaso

si queremos evitar que una o varias de esas hojas estén disponibles para
el listbox; ¿cómo lo hacemos?

la solucion ideal posiblemente dependeria de varias cosas desconocidas por
aqui

pero podrias cambiar Listbox1.additem hj.name por
una instruccion tipo

if hj.name <> <1er nombre que no> and _
hj.name <> <2º nombre que no> and .. then
Listbox1.additem hj.name

"Damaso983" escribió en el mensaje
news:

Dámaso

"Ivan" escribió:

hola Damaso

.. Suponiendo que el listbox se llama Listbox1(si no cambialo por tu
nombre),
en el evento Activate del userform podrias ponerr algo pareido a esto

sub LlenarListConHojas()
dim hj as worksheet
for each hj in thisworkbook.worksheets
Listbox1.additem hj.name
next
end sub

pruebalo si quieres, y comentas
un saludo
Ivan
Iván, ¡funciona a la perfección!

Realmente te quedo agradecido

Por cierto. y ya puestos a complicar...
si queremos evitar que una o varias de esas hojas estén disponibles para
el listbox; ¿cómo lo hacemos?

Muchas gracias y también a francisco.

Responder a este mensaje

#4 Damaso983

27/01/2007 - 13:46 | Informe spam

¡PERFECTO!
Eres un amigo
Espero poder ayudar en alguna ocasión.
Un saludo
Dámaso

"Ivan" escribió:

hola Damaso

>> si queremos evitar que una o varias de esas hojas estén disponibles para
>> el listbox; ¿cómo lo hacemos?

la solucion ideal posiblemente dependeria de varias cosas desconocidas por
aqui

pero podrias cambiar Listbox1.additem hj.name por
una instruccion tipo

if hj.name <> <1er nombre que no> and _
hj.name <> <2º nombre que no> and .. then
Listbox1.additem hj.name

"Damaso983" escribió en el mensaje
news:
>
> Dámaso
>
>
> "Ivan" escribió:
>
>> hola Damaso
>>
>> .. Suponiendo que el listbox se llama Listbox1(si no cambialo por tu
>> nombre),
>> en el evento Activate del userform podrias ponerr algo pareido a esto
>>
>> sub LlenarListConHojas()
>> dim hj as worksheet
>> for each hj in thisworkbook.worksheets
>> Listbox1.additem hj.name
>> next
>> end sub
>>
>> pruebalo si quieres, y comentas
>> un saludo
>> Ivan
>> Iván, ¡funciona a la perfección!
> Realmente te quedo agradecido
>> Por cierto. y ya puestos a complicar...
>> si queremos evitar que una o varias de esas hojas estén disponibles para
>> el listbox; ¿cómo lo hacemos?
>
> Muchas gracias y también a francisco.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida