Excel - Cuadro de lista ActiveX

Buenas tardes,

He insertado un cuadro de lista ActiveX y quiero que al seleccionar un elemento de esa lista me lleve por ejemplo a la celda B3. Pero mi cuadro de lista tiene varios elementos y cada uno de ellos quiero que vaya a una celda concreta, distinta entre ellos. La estructura debe de ir con "If" pero no acierto como acerlo y no me funciona. Soy nueva en esto :(

La estructura que tengo es la siguiente:

Private Sub ListBox1_Click()

Dim Item As Integer

If Item = "Fundidos bajo plano" Then

Range("E3").Activate

End If
End Sub

Hola Inge,

Puedes hacer la selección de dos maneras:

1- Por la propiedad ListIndex del control como se indica a continuación:
------------------------------------------------------------------------------------------>

Private Sub lstTuLista_Change()

Select Case lstTuLista.ListIndex

Case 0
Sheets(1).Range("A1").Select
Case 1
Sheets(1).Range("A2").Select
Case 2
Sheets(1).Range("A3").Select

End Select


End Sub

2- Por la propiedad Text del control como se indica a continuación:
------------------------------------------------------------------------------------------>

Private Sub lstTuLista_Change()

Select Case lstTuLista.Text

Case "Dato 1"
Sheets(1).Range("A1").Select
Case "Dato 2"
Sheets(1).Range("A2").Select
Case "Dato 3"
Sheets(1).Range("A3").Select

End Select

End Sub

------------------------------------------------------------------------------------------>

Asigna cualquiera de las rutinas anteriores en el evento Change de la lista y ajusta el código de acuerdo a tu necesidad.

Un saludo,

Buenos días LaO,

He introducido el segundo programa pero me da "error '424', se requiere un objeto". Aparte de el programa que me has proporcionado ¿tengo que declarar alguna variable más o introducir un "Private Sub LisBox_Click" para que al hacer la selección me lleve a las celdas deseadas? ¿O con tu programa es suficiente?

Muchas gracias

Hola Inge,

El error 424 implica el hacer referencia a un objeto que no existe ó que no ha sido instanciado. En que punto de la rutina se está generando el error ? Normalmente se resalta en color amarillo...

La rutina debe estar asignada en el evento Change() de tu ListBox y no es necesario asignar otra variable. Asegúrate de ajustar el código con las instrucciones Case "Dato 1", etc, a la información que corresponda a tus datos en la hoja que deseas evaluar.

Verifica donde está creado tu ListBox..en una hoja ..? en un UserForm ..?

Un saludo,