Formulario que al seleccionar un Listbox me ponga datos en un Textbox1 y Textbox2 y foto

¿Me puedes volver a ayudar?

Necesito que en un archivo de excel que tengo 6 columnas y que utiliza un Formulario que utiliza varios combobox para filtrar los datos, y el resultado me lo da en un Listbox, quiero que si yo selecciono una de las opciones que me da en el listbox, me ponga el resultado de una columna siguiente en un textbox y me busque la imagen que este guardada en determinada carpeta con un el nombre igual al codigo que seleccione y me devuelva la imagen en un cuadro de imagen dentro del formulario.

1 respuesta

Respuesta
1

Te anexo el código completo:

Private Sub ComboBox1_Change()
    cargar 2
End Sub
Private Sub ComboBox2_Change()
    cargar 3
End Sub
Private Sub ComboBox3_Change()
'Por.Dante Amor
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        For j = 1 To 3
            If Cells(i, j) = Controls("ComboBox" & j) Then
                igual = True
            Else
                igual = False
                Exit For
            End If
        Next
        If igual Then
            ListBox1.AddItem Cells(i, "D")
            ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "E")
            ListBox1.List(ListBox1.ListCount - 1, 2) = i
        End If
    Next
End Sub
Private Sub ListBox1_Click()
'Por.Dante Amor
    f = ListBox1.List(ListBox1.ListIndex, 2)
    TextBox1 = Cells(f, "F")
    TextBox2 = Cells(f, "G")
    ruta = ThisWorkbook.Path & "\"
    imagen = ListBox1.List(ListBox1.ListIndex, 1) & ".jpg"
    If Dir(ruta & imagen) <> "" Then
        Image1.Picture = LoadPicture(ruta & imagen)
    Else
        imagen = ListBox1.List(ListBox1.ListIndex, 1) & ".jpeg"
        If Dir(ruta & imagen) <> "" Then
            Image1.Picture = LoadPicture(ruta & imagen)
        End If
    End If
End Sub
Private Sub UserForm_Activate()
'Por.Dante Amor
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        agregar ComboBox1, Cells(i, "A")
    Next
End Sub
Sub agregar(combo As ComboBox, dato As String)
'Por.Dante Amor
    For i = 0 To combo.ListCount - 1
        Select Case StrComp(combo.List(i), dato, vbTextCompare)
            Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
            Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
        End Select
    Next
    combo.AddItem dato 'Es mayor lo agrega al final
End Sub
Sub cargar(ini)
'Por.Dante Amor
    TextBox1 = ""
    TextBox2 = ""
    ListBox1.Clear
    For i = ini To 3
        Controls("ComboBox" & i) = ""
        Controls("ComboBox" & i).Clear
    Next
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        For j = 1 To ini - 1
            valor = IIf(IsNumeric(Controls("ComboBox" & j)), _
                Val(Controls("ComboBox" & j)), Controls("ComboBox" & j))
            If Cells(i, j) = valor Then
                igual = True
            Else
                igual = False
                Exit For
            End If
        Next
        If igual Then agregar Controls("ComboBox" & ini), Cells(i, ini)
    Next
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Como enlazar Combobox dependientes y unir con Textbox al finalizar filtro?

Soy bastante novato y estoy aprendiendo sobre este lenguaje. Tengo un formulario en cual tengo 6 combobox los cuales están enlazados entre sí, es decir, cuando selecciono algún valor en el primer combobox este condiciona el segundo y así...
1 respuesta

Codigo VBA para realizar búsqueda de datos de una hoja de excel en un formulario, seleccionando de un combobox?

Todo expertos, mi duda es la siguiente: Tengo 1 hoja de excel con nombres de personas en la primera columna y en 11 columnas mas todos los datos correspondientes al nombre de la persona, he hecho una "Pagina inicio" que permite abrir un formulario en...
2 respuestas

Dato de ComboBox que se muestre y seleccione en un ListBox.

Tengo un ListBox con muchos contactos, (son miles) y aunque están ordenados alfabéticamente es algo tedioso encontrarlos, puse un ComboBox y usando el rango en RowSource puedo escribir el nombre del contacto y este lo va localizando conforme escribo...
1 respuesta

Macro para calcular turnos docentes

Como puedo asignarle a un docente un mismo curso en varios turnos pero si que esos turnos ya no hayan sido asignado a otro doce.
1 respuesta

Como eliminar items del listbox

Necesito eliminar items del listbox con doble clic He encontrado este código que anda perfecto If ListBox1.ListIndex = -1 Then Exit Sub 'si no se seleccionó ningún item cancela End If ListBox1.RemoveItem (ListBox1.ListIndex) Pero el problema es que...
1 respuesta

¿Cómo puedo evitar agregar items repetidos a un ListBox? O ¿Cómo eliminar los items repetidos de un ListBox? Para Dante Amor

Mi caso es que tengo un UserForm con un ListBox en el cual agrego items que traigo de una hoja de Excel, mi problema esta es que algunos de estos items se repiten y yo solo quiero que me muestre los que no son repetidos, los items que yo traigo son...
2 respuestas

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Vincular un ListBox a un ComboBox

HAce varios días hice una consulta a otro experto y no me ha contestado, por ello te quisiera molestar a ti. Tengo un formulario que contiene un ComboBox y un ListBox. Mi pregunta es como se hace para vincular lo que elijo desde el combobox y me lo...
1 respuesta

8 combobox dependientes enlazados

Estimados expertos tengo el sigiente problema quiero realizar una macro en donde tenga 8 combobox en los cuales quiero desplegar la siguiente informacion tengo el sgte codigo Public ufila As Integer Private Sub ComboBox1_Change() ComboBox2.Clear...
1 respuesta

Como guardar el valor de un textbox dependiendo de la selección de un combobox

Tengo un formulario y dentro de el tengo un textbox vacío y un combobox con varias opciones que toma de la fila 1. Se supone que en este formulario tengo que elegir una opción del combobox y en seguida agregarle una descripción, me gustaría saber...
2 respuestas