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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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