Buscar con 3 textbox en una hoja de excel
Hola buenas días, estoy trabajando en este proyecto escolar, quisiera consultar con 3 campos Sistema, segmento y BIn este es mi código
Private Sub btnConsultar_Click()
Application.ScreenUpdating = False
Sheets("Ejemplo").Select
Cells.Find(What:=cbSeleccioneSistema, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
txtBin = ActiveCell
ActiveCell.Offset(0, 1).Select
txtProducto = ActiveCell
ActiveCell.Offset(0, 1).Select
txtInstrumento = ActiveCell
ActiveCell.Offset(0, 1).Select
txtSegmento = ActiveCell
ActiveCell.Offset(0, 1).Select
cbMoneda = ActiveCell
ActiveCell.Offset(0, 1).Select
txtDescripcionCorta = ActiveCell
ActiveCell.Offset(0, 1).Select
txtDescripcionLarga = ActiveCell
ActiveCell.Offset(0, 1).Select
txtAbreviación = ActiveCell
ActiveCell.Offset(0, 1).Select
cbEstatus = ActiveCell
ActiveCell.Offset(0, 1).Select
txtTotalRegsAsoc = ActiveCell
ActiveCell.Offset(0, 1).Select
txtRefSeg = ActiveCell
ActiveCell.Offset(0, 1).Select
cbAccountType = ActiveCell
ActiveCell.Offset(0, 1).Select
txtSegmento2 = ActiveCell
Range("N2").FormulaR1C1 = cbAccountType
Range("J2").FormulaR1C1 = cbEstatus
Range("F2").FormulaR1C1 = cbMoneda
Range("A2").FormulaR1C1 = cbSeleccioneSistema
Range("I2").FormulaR1C1 = txtAbreviación
Range("B2").FormulaR1C1 = txtBin
Range("G2").FormulaR1C1 = txtDescripcionCorta
Range("H2").FormulaR1C1 = txtDescripcionLarga
Range("D2").FormulaR1C1 = txtInstrumento
Range("C2").FormulaR1C1 = txtProducto
Range("L2").FormulaR1C1 = txtRefSeg
Range("E2").FormulaR1C1 = txtSegmento
Range("M2").FormulaR1C1 = txtSegmento2
Range("K2").FormulaR1C1 = txtTotalRegsAsoc
Application.ScreenUpdating = True
End Sub