Saltar al contenido

ComboBox como lista de búsqueda e imagen en Image


Recommended Posts

Hola amigos por aca de nuevo pidiendo de su apoyo, ten mun userform donde tengo un ComboBox como buscador este funciona bien pero ahora quisiera que al seleccionar o buscar un articulo de la lista del ComboBox1 aparesca la imagen  en un control Image1 la cual esta en una carpeta llamada imagenes donde esta el archivo, la imagenes tienen el nombre que aparece en textbox1

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
ComboBox2 = Empty
End If

Dim c As Range

With Worksheets("Inventario").Range("B2:B1000000")
Set c = .Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Worksheets("inventario").Visible = True
Worksheets("inventario").Select
c.Select
Me.ComboBox1.DropDown
End If
End With

    TextBox1 = ActiveCell.Offset(0, -1).Value
    TextBox2 = ActiveCell.Offset(0, 0).Value
    TextBox3 = ActiveCell.Offset(0, 1).Value
    TextBox4 = ActiveCell.Offset(0, 2).Value
    TextBox8 = ActiveCell.Offset(0, 11).Value
    TextBox9 = ActiveCell.Offset(0, 7).Value
    TextBox13 = VBA.Format(TextBox13, "currency")
    TextBox8 = VBA.Format(TextBox8, "currency")

Exit Sub

End Sub

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.