Ver originales (Francés)

Lista desplegable de dos columnas mostrada en dos celdas de Excel

Resuelto
chrisdemontigny Mensajes publicados 70 Fecha de registro   Estado Miembro Última intervención   -  
chrisdemontigny Mensajes publicados 70 Fecha de registro   Estado Miembro Última intervención   -
Hola,

he encontrado el siguiente código para recuperar un rango de celdas en un ListBox: 

Option Explicit Private Sub UserForm_Initialize() Dim TabTemp As Variant 'Carga un rango de celdas en la variable TabTemp TabTemp = Sheets("40101").Range("A1:b11").Value 'Define el número de columnas para el ListBox. ListBox1.ColumnCount = UBound(TabTemp) 'Carga la matriz en el ListBox ListBox1.List() = TabTemp End Sub


La primera etapa ya está hecha.

Ahora que ya hice una elección en mi ListBox, quiero que la elección realizada en mi ListBox de las dos celdas se muestre en otras dos celdas, por ejemplo C4 y C5.
Si pido listbox1.value, solo me devuelve la primera value.

¿Podrías ayudarme?
No dudes en decirme si no estoy claro.

Muchas gracias de antemano

Configuración: Windows / Chrome 41.0.2272.89

1 respuesta

  1.
    michel_m Mensajes publicados 18903 Fecha de registro   Estado Colaborador Última intervención   3 320
     
    Hola

    para extraer la 2ª columna de una ListBox con N columnas
    prueba
    range("B2") = ListBox1.List(ListBox1.ListIndex, 1)
    2ª columna = 1 porque empezamos en 0

    Según un tutorial valioso para VBA con UserForms:
    https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
    Michel
    0
    1. chrisdemontigny Mensajes publicados 70 Fecha de registro   Estado Miembro Última intervención  
       
      Muchas gracias
      0