Búsqueda según el valor de dos TextBox

Tengo el siguiente código que realiza la busque y muestra según el valor de un TextBox y quisiera que lo hiciera de acuerdo a los valores de dos TextBox (Textbox1 y Texbox13) que son los valores de código del producto y N° de Factura en la Hoja "COMPRAS"

Agradecería infinitamente su ayuda

Private Sub CommandButton11_Click()
Application.ScreenUpdating = False
Sheets("COMPRAS").Select
codi = TextBox1.Value
Set busco = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(codi, LookIn:=xlValues, lookat:=xlWhole)

If Not busco Is Nothing Then
CommandButton4.Visible = True
CommandButton5.Visible = True
Range("A" & busco.Row).Select
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
TextBox8 = ActiveCell.Offset(0, 5)
TextBox10 = ActiveCell.Offset(0, 6)
TextBox11 = ActiveCell.Offset(0, 7)
TextBox12 = ActiveCell.Offset(0, 8)
TextBox13 = ActiveCell.Offset(0, 9)
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
CommandButton1.Visible = False
CommandButton3.Visible = False
CommandButton3.Visible = False
CommandButton11.Visible = False
Else
MsgBox "PRODUCTO NO EXISTE.", vbQuestion, "Información Importante"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox8.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
CommandButton1.Visible = True
CommandButton11.Visible = True
CommandButton4.Visible = False
End If
End Sub

1 respuesta

Respuesta
1

Esto te puede orientar

https://macrosenexcel.com/2014/11/combobox-depende-de-otro-combobox-y.html

https://macrosenexcel.com/2014/12/combobox-depende-otro-combobox-carga.html

https://macrosenexcel.com/2017/02/como-limpiar-todos-los-combobox-de-una.html

https://macrosenexcel.com/2017/07/como-cargar-en-combobox-de-userform.htm

lhttps://macrosenexcel.com/2018/08/como-cargar-tres-combobox-dependiente_16.html

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas