List Box

Puedes aplicar validación de datos (con la opción Lista) a ese rango.



"Angelo Vernaza" escribió en el mensaje de noticias
news:
Hola Buenos Días,

Quiero crear un List Box el cual se active al darle click a cualquiera
celda del rango A6:A500, despues de activarlo la opicion que
seleccione sea colocada en la celda activa.

Si al momento de seleccionar un rango dentro del rango A6:A500 no sea
activado.

Saludos,
Angelo V.-

HOla Pepe,

Ya le tengo validación, pero la lista es muy grande y con un List Box
es mas facil controlar o buscar el dato, es mucho mas rapido porque me
da la opción de en el List Box tenerlo ordenado, es por efecto de
beneficios y rapidez.

Gracias...!

On 21 ago, 09:11, "pepe" wrote:

Puedes aplicar validación de datos (con la opción Lista) a ese rango.

"Angelo Vernaza" escribió en el mensaje de noticiasnews:
Hola Buenos Días,

Quiero crear un List Box el cual se active al darle click a cualquiera
celda del rango A6:A500, despues de activarlo la opicion que
seleccione sea colocada en la celda activa.

Si al momento de seleccionar un rango dentro del rango A6:A500 no sea
activado.

Saludos,
Angelo V.-

hola, Angelo !

Quiero crear un List Box el cual se active al darle click a cualquiera celda del rango A6:A500
despues de activarlo la opicion que seleccione sea colocada en la celda activa...

ve si te sirve alguna de las siguientes conversaciones: -> http://tinyurl.com/6xhdnh

saludos,
hector.

Hola Héctor,

Al parecer si es lo que necesito, pero he tratado de hacer esto y no
me funciona:

- lo que se escriba en (o seleccione de) el combo, se aplique a la
celda activa (siempre que sea de la columna 1 [a])
- si la celda activa NO es de la columna a, el combo NO tenga nada que
seleccionar
- el rango (en la otra hoja) sea un nombre con referencia a un rango
dinamico (por si lo vas a seguir (de-)creciendo)
p.e. en la otra hoja (Hoja2???)
1) Insertar -> Nombres -> Definir
2) Nombre = "ListadoDeNombres"
3) Se refiere a: => =DesRef(Hoja2!A1,,,ContarA(Hoja2!A:A))
(inclusive) podrias escribir (en el combo) nombres que NO
existan en el listado (de la otra hoja) ;)
-> aun cuando los escribas (en el combo) y los plantes (en la
celda activa) SEGUIRAN ausentes en el listado <-


sigue un ejemplo para lograr lo expuesto (puede mejorarse y/o
adaptarse segun necesidades)


en el modulo de codigo de la hoja a la que pertenece el combo ==' el combo se llena SOLO cuando la celda activa es de la columna 1
(a)
Private Sub ComboBox1_GotFocus()
If ActiveCell.Column = 1 Then
ComboBox1.ListFillRange = "Empleado"
ComboBox1.LinkedCell = ActiveCell.Address
Else: ComboBox1.LinkedCell = ""
End If
End Sub
' el combo se vacia (invariablemente) al terminar la operacion
Private Sub ComboBox1_LostFocus()
ComboBox1.ListFillRange = ""
ComboBox1.LinkedCell = ""
ComboBox1 = ""
End Sub
' para agilizar la entrada de datos con la tecla {Enter} (cuando en el
combo)
Private Sub ComboBox1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
End Sub


Pero no me esta funcionando, te especifico mas lo que tengo:

En la hoja "Tomadas" rango a6:a1000 cuando se active cualquier celda
necesito que aparezca el ComboBox1 el cual debe tener la lista del
rango que yo nombre "Empleado"

Al activar cual quiera otra celda que no sea del rango a6:a1000 que el
ComboBox1 desaparezca?

Muchas gracias de antemano.

Saludos,
Angelo V.-






On 22 ago, 03:56, "Héctor Miguel"
wrote:

hola, Angelo !

> Quiero crear un List Box el cual se active al darle click a cualquiera celda del rango A6:A500
> despues de activarlo la opicion que seleccione sea colocada en la celda activa...

ve si te sirve alguna de las siguientes conversaciones: ->http://tinyurl.com/6xhdnh

saludos,
hector.

hola, Angelo !

Al parecer si es lo que necesito, pero he tratado de hacer esto y no me funciona:

al parecer, lo unico que necesitas modificar es la primer linea en el procedimiento:
Private Sub ComboBox1_GotFocus()

de esto:
If ActiveCell.Column = 1 Then

a esto:
If Not Intersect(ActiveCell, Range("a6:a1000")) Is Nothing Then

has pruebas y... comentas ?
saludos,
hector.

__ OP (transcripcion de un post anterior) __
- lo que se escriba en (o seleccione de) el combo, se aplique a la celda activa (siempre que sea de la columna 1 [a])
- si la celda activa NO es de la columna a, el combo NO tenga nada que seleccionar
- el rango (en la otra hoja) sea un nombre con referencia a un rango dinamico (por si lo vas a seguir (de-)creciendo)
p.e. en la otra hoja (Hoja2???)
1) Insertar -> Nombres -> Definir
2) Nombre = "ListadoDeNombres"
3) Se refiere a: => =DesRef(Hoja2!A1,,,ContarA(Hoja2!A:A))
(inclusive) podrias escribir (en el combo) nombres que NO existan en el listado (de la otra hoja) ;)
-> aun cuando los escribas (en el combo) y los plantes (en la celda activa) SEGUIRAN ausentes en el listado <-

sigue un ejemplo para lograr lo expuesto (puede mejorarse y/o adaptarse segun necesidades)

en el modulo de codigo de la hoja a la que pertenece el combo ==' el combo se llena SOLO cuando la celda activa es de la columna 1
(a)
Private Sub ComboBox1_GotFocus()
If ActiveCell.Column = 1 Then
ComboBox1.ListFillRange = "Empleado"
ComboBox1.LinkedCell = ActiveCell.Address
Else: ComboBox1.LinkedCell = ""
End If
End Sub
' el combo se vacia (invariablemente) al terminar la operacion
Private Sub ComboBox1_LostFocus()
ComboBox1.ListFillRange = ""
ComboBox1.LinkedCell = ""
ComboBox1 = ""
End Sub
' para agilizar la entrada de datos con la tecla {Enter} (cuando en el combo)
Private Sub ComboBox1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
End Sub

Pero no me esta funcionando, te especifico mas lo que tengo:

En la hoja "Tomadas" rango a6:a1000 cuando se active cualquier celda necesito que aparezca el ComboBox1
el cual debe tener la lista del rango que yo nombre "Empleado"

Al activar cual quiera otra celda que no sea del rango a6:a1000 que el ComboBox1 desaparezca?