Como validar y que a la vez autocomplete....

Hola, Jose !

... 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) 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 = "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
_______
Saludos,
Héctor.
MS-MVP

Muchas gracias Hector, como se un poco de código, he pensado mejor que al
seleccionar una celda de la columna que tengo que rellenar, salte un
formulario con el combobox y que elija desde alli el valor deseado y que si
escribe algo que no esté lo añada a la lista. Se cierra el userform y pone
el valor escrito en la celda que ha seleccionado antes.

De nuevo, muy agradecido.

Un Saludo
Jose Ortiz

Hola, Jose !

==> ¡ muy 'limpia' tu solucion ! y... gracias a ti [por el 'feed-back'] ;)
_______
Saludos,
Héctor.
MS-MVP