Validar rango celdas

hola, MANZA !

En una hoja tengo dos columnas... codigos y... nombre.
... en otra hoja... hacer una lista validada que aparezca los dos Campos... pero que al seleccionar solo deje el Codigo.
Esta misma validacion la tengo que hace para todas las casillas de una columna.

suponiendo que la columna es 'A' y a partir de la fila 2 [en la hoja donde necesitas la validacion]...
sigue los pasos del ejemplo al final del presente y...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

1) en la hoja donde tienes el listado, asignale un nombre [ambas columnas x_filas p.e. 'Listado']
2) en la hoja donde quieres la lista de validacion...
a) incrusta un combo desde la barra de herramientas 'cuadro de controles' [NO 'formularios']
b) [estando en modo de dise#o] 'asegurate' de que en la ventana de propiedades [VBA] especificas lo siguiente [para el combo]:
1) BoundColumn -> 1
2) ColumnCount -> 2
3) ColumnsWidths -> 20;55 [o encuentra las dimensiones apropiadas para el ancho de cada columna] :))
4) ListFillRange -> Listado [o el nombre que hubieras asignado a tu lista en la otra hoja]
c) para que un solo combo se 'aparezca' en la celda contigua a la columna 'A' y despues de la fila 1...
copia las siguientes lineas...
en el modulo de codigo de la hoja donde esta el combo ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.Visible = False
If Target.Count > 1 Then ActiveCell.Select
If ActiveCell.Column <> 1 Or ActiveCell.Row = 1 Then Exit Sub
With ActiveCell.Offset(, 1)
ComboBox1.Left = .Left
ComboBox1.Top = .Top - 1
ComboBox1.Visible = True
End With
End Sub
Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then ActiveCell = ComboBox1
SendKeys "{esc}"
ComboBox1 = ""
End Sub