Escribir dentro del desplegable

hola, Hernando !

Quiero ir introduciendo datos dentro de un desplegable "en blanco".
No me vale Validar-Lista, ya que tendría que modificar dentro de la lista, para ir introduciendo los datos en el desplegable.
Lo que me gustaria, siempre que se pueda hacer, es que abriera un desplegable
en la celda al lado del nombre del cliente y pudiera ahí ir poniendo y ampliando los datos directamente en el desplegable.
Ya lo expuse en este foro, me dieron unas cuantas opciones, pero ninguna me ha resuelto el problema [...]

[creo que] las situaciones que 'describes'... siguen estando 'a medias' :)) [con lo cual... adivinar Y ACERTAR...] -?-
si te sirve 'de base', te paso una consulta +/- similar y una propuesta 'a.doc' [para ese caso]...

un punto 'importante' es el que dice...
[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 <-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=hola, cesar !

... crear un buscar para una lista de validacion... (Ctrl+B), no encuenta los valores de la lista de validacion
... lo que necesito es que cuando le de buscar me ponga en la celda de validacion el valor buscado [...]

considerando que 'el origen' de una regla de validacion por lista puede ser un rango o una 'lista directa'...
se necesitaria [primero] seleccionar el 'rango de origen'... hacer el ctrl+b... y copiar a la celda [dizque] validada
y si la lista es por 'tecleo directo' [en el cuadro de referencia al origen de la validacion]... se necesitan macros
[con lo cual, la validacion ya no seria 'indispensable' NI 'funcional'] :-(
[mas bien] 'me da la impresion' de que lo que buscar es una manera de 'agilizar' una seleccion de elementos -?-
si he 'adivinado'... te copio/pego una consulta 'similar' y una propuesta usando combos de cuadro de controles
[seguramente la situacion sea -algo- diferente, pero puedes comentar que cambios serian necesarios] ;)

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
sigue consulta y propuesta ==> ... una hoja ... columna (A) ... tengo que introducir nombres y apellidos

... para agilizar ... en otra hoja ... los posibles nombres ... y ... una validacion ... de permitir - lista [...]
... hacer que cuando empieze a escribir ... vayan apareciendo los ... que cumplan lo que hasta el momento haya escrito [...]

[hasta donde yo se] el objeto que 'cumple' con esa caracteristica es un 'combobox' [barra de 'cuadro de controles']
considerando que [de todas maneras] no te 'escaparias' de usar codigo, podrias hacer que [p.e.]...
-o- lo que 'se escriba en' [o seleccione de] el combo, se 'aplique' a la celda activa [siempre que sea de la columna 1 ('a')]
-o- si la celda activa NO es de la columna 'a', el combo NO 'tenga' nada 'que seleccionar'
-o- 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) [menu] insertar / nombres -> definir...
2) nombre [p.e.] = ListadoDeNombres
3) se refiere a: -> =desref(hoja2!$a$1,,,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 <-
-> 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 = "ListadoDeNombres"
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

Gracias Héctor Miguel y saludos.
"Héctor Miguel" escribió en el mensaje
news:

hola, Hernando !

Quiero ir introduciendo datos dentro de un desplegable "en blanco".
No me vale Validar-Lista, ya que tendría que modificar dentro de la
lista, para ir introduciendo los datos en el desplegable.
Lo que me gustaria, siempre que se pueda hacer, es que abriera un
desplegable
en la celda al lado del nombre del cliente y pudiera ahí ir poniendo
y ampliando los datos directamente en el desplegable.
Ya lo expuse en este foro, me dieron unas cuantas opciones, pero
ninguna me ha resuelto el problema [...]

[creo que] las situaciones que 'describes'... siguen estando 'a
medias' :)) [con lo cual... adivinar Y ACERTAR...] -?-
si te sirve 'de base', te paso una consulta +/- similar y una
propuesta 'a.doc' [para ese caso]...

un punto 'importante' es el que dice...
[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 <-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=> hola, cesar !

... crear un buscar para una lista de validacion... (Ctrl+B), no
encuenta los valores de la lista de validacion
... lo que necesito es que cuando le de buscar me ponga en la celda
de validacion el valor buscado [...]

considerando que 'el origen' de una regla de validacion por lista
puede ser un rango o una 'lista directa'...
se necesitaria [primero] seleccionar el 'rango de origen'... hacer el
ctrl+b... y copiar a la celda [dizque] validada
y si la lista es por 'tecleo directo' [en el cuadro de referencia al
origen de la validacion]... se necesitan macros
[con lo cual, la validacion ya no seria 'indispensable' NI
'funcional'] :-(
[mas bien] 'me da la impresion' de que lo que buscar es una manera de
'agilizar' una seleccion de elementos -?-
si he 'adivinado'... te copio/pego una consulta 'similar' y una
propuesta usando combos de cuadro de controles
[seguramente la situacion sea -algo- diferente, pero puedes comentar
que cambios serian necesarios] ;)

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
sigue consulta y propuesta ==>> ... una hoja ... columna (A) ... tengo que introducir nombres y

apellidos
... para agilizar ... en otra hoja ... los posibles nombres ... y ...
una validacion ... de permitir - lista [...]
... hacer que cuando empieze a escribir ... vayan apareciendo los ...
que cumplan lo que hasta el momento haya escrito [...]

[hasta donde yo se] el objeto que 'cumple' con esa caracteristica es
un 'combobox' [barra de 'cuadro de controles']
considerando que [de todas maneras] no te 'escaparias' de usar codigo,
podrias hacer que [p.e.]...
-o- lo que 'se escriba en' [o seleccione de] el combo, se 'aplique' a
la celda activa [siempre que sea de la columna 1 ('a')]
-o- si la celda activa NO es de la columna 'a', el combo NO 'tenga'
nada 'que seleccionar'
-o- 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) [menu] insertar / nombres -> definir...
2) nombre [p.e.] = ListadoDeNombres
3) se refiere a: -> =desref(hoja2!$a$1,,,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 <-
-> 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 = "ListadoDeNombres"
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