Como buscar el valor de un textbox considerando que tengo 2 combobox y el dato de un label Excel
Alguien que pueda ayudarme, soy novata en esto de la programación, estoy elaborando un formulario para ingresar datos, y mostrar datos de una base de datos,
Columna A tengo los datos del Combobox1
Columna B tengo los datos del Combobox2
Columna C tengo los datos del Label1
Columna D tengo los valores a buscar de los TEXTBOX1 TEXTBOX2 Y TEXBOX3
Yo tengo algo asi en el codigo... Pero no me marca error ni nada pero simplemente no me muestra datos
Private Sub ComboBox2_Change()
'EL VALOR DE TEXTBOX1 = BUSCARV COMBOBOX1 LUEGO BUSCAR COMBOBOX2 Y LABEL 47
Set a = Sheets("Promociones").Range("a:a").Find(ComboBox1)
Set b = Sheets("Promociones").Range("b" & a.Row - 1 & ":b999999").Find(ComboBox2)
Set abc = Sheets("Promociones").Range("c" & b.Row - 1 & ":c999999").Find(Label47)
If Not abc Is Nothing Then
TextBox1.Text = Sheets("Promociones").Range("d" & abc.Row)
End If
1 Respuesta
H o l a:
Si tus datos están ordenados, de la forma en que estás realizando la búsqueda, puede que funcione. Me refiero a que buscas el primer registro del combobox1 en la columna A, si lo encuentra, buscas el primer registro del combobox2 en la columna B, pero ya no verificas si el dato de la columna A es igual al combobox1; entonces te puede regresar información errónea.
Te recomiendo que realices un ciclo para verificar las 3 coincidencias:
Private Sub ComboBox2_Change()
'Por.Dante Amor
Set h = Sheets("Promociones")
For i = 1 To h.Range("A" & Rows.Count).End(xlUp).Row
If h.Cells(i, "A") = ComboBox1 And _
h.Cells(i, "B") = ComboBox2 And _
h.Cells(i, "C") = Label47 Then
TextBox1 = h.Cells(i, "D")
End If
Next
End Sub':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
