Agrgar datos a Una celde desde una lista

Que tal.

Para que al seleccionar una celda nos muestre una lista

de la misma u otra hoja y la inserte en la celda actual.

1. >> Ver > Barra de Herramientas Formulario.
2. Insertamos un Cuadro combinado.
3. Click derecho sobre él > Formato de Control > Control,
Rango de entrada.
Cuando hayamos seleccionado el rango que quieras que
aparezca como lista, al Cuadro combinado le asignas una
macro que contenga el siguiente código :

Sub selecc_dato()
With ActiveWorkbook.Sheets("Hoja1").DropDowns(1)
If .ListIndex > 0 Then 'Si se ha seleccionado un
elemento
TextoSeleccionado = .List(.ListIndex)
Range("a1") = TextoSeleccionado
End If
End With
End Sub

'Con esto al seleccionar el cuadro, insertará la
información en la celda que especifiques en el código.

A sus órdenes.
Tec. Inf. Sergio A Campos H

Necesito saber como insertar en una celda una lista de
posibles datos a cargar en dicha celda. Los datos los
obtien de una lista creada en otra hoja
Es decir que cuando nos posicionamos en esa celda nos
aparece la lista desplegable.
Gracias
.

hola, Edgar !

... insertar ... una lista de posibles datos a cargar en ... celda ... de una lista creada en otra hoja [...]

la opcion mas 'sencilla' es usando reglas de validacion en la celda donde se requiere el desplegable [p.e.]
1.- en la hoja donde estan los datos...
asignar un nombre a dicho rango [p.e. Listado]
2.- en la hoja [y en la/s celda/s] donde se va a presentar...
[menu] datos / validacion...
[permitir] => lista
[origen] => =Listado [o el nombre que asignes en el paso 1]
las demas 'opciones' segun tu conveniencia ;)

saludos,
hector.