Como realizar búsqueda en tabla de datos, para modificar, eliminar o agregar clientes, cambio de combobox a textbox

Donde me busca en una tabla de información datos de clientes teniendo actualmente aprox 600 registros, pero la búsqueda la hace por medio de un combobox y quiero cambiarlo a textbox porque es muy lento el código actual, alenta el Excel. Espero me puedan ayudar.

Private Sub cbo_Nombre_Change()
On Error Resume Next

    If nCliente(cbo_Nombre.Text) <> 0 Then
        Sheets("Clientes").Activate
        Cells(cbo_Nombre.ListIndex + 2, 1).Select
        txt_Direccion = ActiveCell.Offset(0, 1)
        txt_Telefono = ActiveCell.Offset(0, 2)
        txt_ID = ActiveCell.Offset(0, 3)
        txt_Email = ActiveCell.Offset(0, 4)
        txt_tecnico = ActiveCell.Offset(0, 5)
        txt_zona = ActiveCell.Offset(0, 6)
        txt_domicilio = ActiveCell.Offset(0, 7)
        txt_instala = ActiveCell.Offset(0, 8)
        txt_tel = ActiveCell.Offset(0, 9)
        txt_serie = ActiveCell.Offset(0, 10)
        txt_correo = ActiveCell.Offset(0, 11)
        txt_cantidad = ActiveCell.Offset(0, 12)

1 Respuesta

Respuesta
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas