Buscar registros en hoja Excel según dato ComboBox en Vba excel
Tengo el siguiente código vba, pero no me funciona
valor = ComboBox1.Value
Set busca = Sheets("Socios").Range("B2:B10000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
TextBox27.Value = Range(ubica).Offset(0, 1)
TextBox2.Value = Range(ubica).Offset(0, 2)
TextBox4.Value = Range(ubica).Offset(0, 3)
End If
Los datos los tengo en la hoja "Socios" en las celdas B2, C2, D2 y E2
El dato a buscar desde el ComboBox, en la celda B2
Los datos los mostraría en el formulario FM_Impresion, en los TextBox 27, 2, 4 y el ComboBox1
2 Respuestas
Pues me respondo a mí mismo
Buscando mejor, encontré la solución en éste mismo portal
Muchas gracias y perdón por la repetición de la pregunta
Seleccionar desde un Combobox y volcar datos en un Textbox
Private Sub Combobox1_Change()
'x Elsamatilde
On Error Resume Next
Set busco = ActiveSheet.Range("B:B").Find(Trim(ComboBox1.Value), LookIn:=xlValues, lookat:=xlWhole)
'si lo encuentra pasa los datos de la fila a los textbox
If Not busco Is Nothing Then
TextBox7.Value = busco.Offset(0, 6) 'col H
TextBox8.Value = busco.Offset(0, 7) 'col I
textbox9.Value = busco.Offset(0, -1) 'como se busca en B, la col es -1 para A
End If
End Sub
valor = ComboBox1.Value
Set busca = Sheets("Socios").Range("B2:B10000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
busca.select
TextBox27 = ActiveCell.Offset(0, 1)
TextBox2.Value = ActiveCell.Offset(0, 2)
TextBox4.Value = ActiveCell.Offset(0, 3)
end if
Recuerda valorar si te silve