ComboBox en UserForm

hola,

suponiendo que los datos de la hoja 2 tienen los titulos en la fila 1,
los datos comienzan en la 2, los codigos estan en la columna A, las
descripciones en la B,y los controles se llaman ComboBox1 y TextBox1

si quieres prueba este codigo en el modulo del formulario

Private Sub ComboBox1_Change()
Dim fila_1_datos As Integer

'' fila_1_datos es el nº de la fila siguiente a la de titulos (es
para facilitarte
'' el cambio. Peo puedes quitar la variable y ponerlo directamente)

fila_1_datos = 2
With ComboBox1
If .ListCount > 0 Then _
If .ListIndex = -1 Then TextBox1 = "" Else _
TextBox1 = Worksheets("Hoja2") _
.Cells(.ListIndex + fila_1_datos, 2)
End With
End Sub

Private Sub UserForm_Initialize()

' cambia las columna (a) y la 1ª fila de datos
' por lo que corresponda, si no son estos

With Worksheets("Hoja2")
If .[a2] <> "" Then ComboBox1.List = _
.Range("a2:a" & .[a65536].End(xlUp).Row).Value
End With
End Sub

espero te ayude, y si quieres comentas

un saludo
Ivan

Mil gracias por tu acertada respùesta, me funcion÷o perfectamente.

Salu2...

Beneco


"Ivan" escribió:

hola,

suponiendo que los datos de la hoja 2 tienen los titulos en la fila 1,
los datos comienzan en la 2, los codigos estan en la columna A, las
descripciones en la B,y los controles se llaman ComboBox1 y TextBox1

si quieres prueba este codigo en el modulo del formulario

Private Sub ComboBox1_Change()
Dim fila_1_datos As Integer

'' fila_1_datos es el nº de la fila siguiente a la de titulos (es
para facilitarte
'' el cambio. Peo puedes quitar la variable y ponerlo directamente)

fila_1_datos = 2
With ComboBox1
If .ListCount > 0 Then _
If .ListIndex = -1 Then TextBox1 = "" Else _
TextBox1 = Worksheets("Hoja2") _
.Cells(.ListIndex + fila_1_datos, 2)
End With
End Sub

Private Sub UserForm_Initialize()

' cambia las columna (a) y la 1ª fila de datos
' por lo que corresponda, si no son estos

With Worksheets("Hoja2")
If .[a2] <> "" Then ComboBox1.List = _
.Range("a2:a" & .[a65536].End(xlUp).Row).Value
End With
End Sub

espero te ayude, y si quieres comentas

un saludo
Ivan