Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
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