Cargar datos desde una hoja a un textbox según valor de otro

Tengo un código copiado de la página SIGNUM en el cual un ListBox que me filtra desde tres textbox.

Con el primero TextBox1 filtro el ID, con el textBox2 el Nombre y con el TextBox el Tipo.

El asunto es que deseo que asignarle un valor al TextBox1 (ID), el textbox2 no se filtre, auto completándose (como buscar en Excel).

Este es el código:

Private Sub TextBox1_Change()
'Declaramos variables
Dim fin As Long, i As Long, n As Long
Dim sCadena_seccion As String
'Filtramos por sección
With Sheets("BBDD")
fin = Application.CountA(.Range("A:A"))
If TextBox1 = "" Then
Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row
Exit Sub
End If
Me.TextBox2 = Clear
Me.TextBox3 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To fin
'AQUI CAMBIAS LA CELDA QUE DARA LA INFORMACION
sCadena_seccion = .Cells(i, 2).Value
If UCase(sCadena_seccion) Like "*" & UCase(TextBox1.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
Me.ListBox1.List(n, 2) = .Cells(i, 3).Value
Me.ListBox1.List(n, 3) = .Cells(i, 4).Value
Me.ListBox1.List(n, 4) = .Cells(i, 5).Value
Me.ListBox1.List(n, 5) = .Cells(i, 6).Value
Me.ListBox1.List(n, 6) = .Cells(i, 7).Value
n = n + 1
End If
Next
Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
End With
End Sub

Private Sub TEXTBOX2_CHANGE()
Dim fin As Long, i As Long, n As Long
Dim sCadena_seccion As String, sCadena_estudios As String
'Una vez filtrados los datos por sección, filtramos por estudios
With Sheets("BBDD")
fin = Application.CountA(.Range("A:A"))
If TextBox2 = "" Then
Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row
Exit Sub
End If

Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To fin
sCadena_seccion = .Cells(i, 2).Value
sCadena_estudios = .Cells(i, 4).Value
If UCase(sCadena_seccion) Like "*" & UCase(TextBox1.Value) & "*" And _
UCase(sCadena_estudios) Like "*" & UCase(TextBox2.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
Me.ListBox1.List(n, 2) = .Cells(i, 3).Value
Me.ListBox1.List(n, 3) = .Cells(i, 4).Value
Me.ListBox1.List(n, 4) = .Cells(i, 5).Value
Me.ListBox1.List(n, 5) = .Cells(i, 6).Value
Me.ListBox1.List(n, 6) = .Cells(i, 7).Value
n = n + 1
End If
Next
Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
End With
End Sub

Private Sub TextBox3_Change()
Dim fin As Long, i As Long, n As Long
Dim sCadena_seccion As String, sCadena_estudios As String, sCadena_idioma As String
'una vez filtrada la información por sección y estudios, filtramos por idioma
With Sheets("BBDD")
fin = Application.CountA(.Range("A:A"))
If TextBox2 = "" Then
Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row
Exit Sub
End If
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To fin
sCadena_seccion = .Cells(i, 2).Value
sCadena_estudios = .Cells(i, 4).Value
sCadena_idioma = .Cells(i, 5).Value
If UCase(sCadena_seccion) Like "*" & UCase(TextBox1.Value) & "*" And _
UCase(sCadena_estudios) Like "*" & UCase(TextBox2.Value) & "*" And _
UCase(sCadena_idioma) Like "*" & UCase(TextBox3.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
Me.ListBox1.List(n, 2) = .Cells(i, 3).Value
Me.ListBox1.List(n, 3) = .Cells(i, 4).Value
Me.ListBox1.List(n, 4) = .Cells(i, 5).Value
Me.ListBox1.List(n, 5) = .Cells(i, 6).Value
Me.ListBox1.List(n, 6) = .Cells(i, 7).Value
n = n + 1
End If
Next
Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
End With
End Sub

Private Sub UserForm_Initialize()
'Indicamos el número de columnas que tendrá el listbox
Me.ListBox1.ColumnCount = 7
'Definimos tamaño de los espacios
Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
'Cargamos listbox
Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row

End Sub

Respuesta

Estos ejemplos

https://youtu.be/gqZzSfikEYY

https://youtu.be/smL4A-aRjCM

https://www.programarexcel.com/2013/03/formulario-vba-para-insertar-datos.html

https://youtu.be/9CF_hUh48S8

https://youtu.be/KCHAk9-dAPM

https://youtu.be/sWrUt9kItsg

https://youtu.be/7c7mV8fe4sw

1 respuesta más de otro experto

Respuesta
1

No entendí tu petición:

El asunto es que deseo que asignarle un valor al TextBox1 (ID), el textbox2 no se filtre, auto completándose (como buscar en Excel).

Podrías explicar un poco más.

Gracias Dante.

En TextBox1 debo poner el ID del cliente Ej. 5 cuyo nombre en Miguel Vargas datos que me filtra el Textbox2. 

Lo que deseo es que al poner el ID del cliente en el textbox1 el textbox2 se llene automatico. yo filtro manualmente el textbox3 que es el tipo.

Simplemente que no tenga que hacer manualmente el filtro del Textbox2, sino un autocompletar.

Para eso es necesario declarar una variable al principio de todo el código. Cambia tu código por lo siguiente.

Dim cargando
'
Private Sub TextBox1_Change()
    'Declaramos variables
    Dim fin As Long, i As Long, n As Long
    Dim sCadena_seccion As String
    'Filtramos por sección
    With Sheets("BBDD")
        fin = Application.CountA(.Range("A:A"))
        cargando = True     'variable para indicar que está cargando el listbox
        TextBox2.Value = ""
        If TextBox1 = "" Then
            Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row
            cargando = False
            Exit Sub
        End If
        Me.TextBox2 = Clear
        Me.TextBox3 = Clear
        Me.ListBox1.RowSource = Clear
        '
        'Busca el textbox1 en la columna "B"
        'si lo encuentra, entonces llena el textbox2
        Set b = .Columns("B").Find(TextBox1.Value, lookat:=xlWhole, LookIn:=xlValues)
        If Not b Is Nothing Then
            TextBox2.Value = .Cells(b.Row, 4).Value
        End If
        '
        For i = 2 To fin
            'AQUI CAMBIAS LA CELDA QUE DARA LA INFORMACION
            sCadena_seccion = .Cells(i, 2).Value
            If UCase(sCadena_seccion) Like "*" & UCase(TextBox1.Value) & "*" Then
                Me.ListBox1.AddItem
                Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
                Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
                Me.ListBox1.List(n, 2) = .Cells(i, 3).Value
                Me.ListBox1.List(n, 3) = .Cells(i, 4).Value
                Me.ListBox1.List(n, 4) = .Cells(i, 5).Value
                Me.ListBox1.List(n, 5) = .Cells(i, 6).Value
                Me.ListBox1.List(n, 6) = .Cells(i, 7).Value
                n = n + 1
            End If
        Next
        Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
    End With
    cargando = False    'regresa la variable a false
End Sub
'
Private Sub TextBox2_CHANGE()
    Dim fin As Long, i As Long, n As Long
    Dim sCadena_seccion As String, sCadena_estudios As String
    '
    If cargando Then Exit Sub
    'Una vez filtrados los datos por sección, filtramos por estudios
    With Sheets("BBDD")
        fin = Application.CountA(.Range("A:A"))
        If TextBox2 = "" Then
            Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row
            Exit Sub
        End If
        Me.ListBox1 = Clear
        Me.ListBox1.RowSource = Clear
        For i = 2 To fin
            sCadena_seccion = .Cells(i, 2).Value
            sCadena_estudios = .Cells(i, 4).Value
            If UCase(sCadena_seccion) Like "*" & UCase(TextBox1.Value) & "*" And _
                UCase(sCadena_estudios) Like "*" & UCase(TextBox2.Value) & "*" Then
                Me.ListBox1.AddItem
                Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
                Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
                Me.ListBox1.List(n, 2) = .Cells(i, 3).Value
                Me.ListBox1.List(n, 3) = .Cells(i, 4).Value
                Me.ListBox1.List(n, 4) = .Cells(i, 5).Value
                Me.ListBox1.List(n, 5) = .Cells(i, 6).Value
                Me.ListBox1.List(n, 6) = .Cells(i, 7).Value
                n = n + 1
            End If
        Next
        Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
    End With
End Sub
'
Private Sub TextBox3_Change()
    Dim fin As Long, i As Long, n As Long
    Dim sCadena_seccion As String, sCadena_estudios As String, sCadena_idioma As String
    'una vez filtrada la información por sección y estudios, filtramos por idioma
    With Sheets("BBDD")
    fin = Application.CountA(.Range("A:A"))
    If TextBox2 = "" Then
    Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row
    Exit Sub
    End If
    Me.ListBox1 = Clear
    Me.ListBox1.RowSource = Clear
    For i = 2 To fin
    sCadena_seccion = .Cells(i, 2).Value
    sCadena_estudios = .Cells(i, 4).Value
    sCadena_idioma = .Cells(i, 5).Value
    If UCase(sCadena_seccion) Like "*" & UCase(TextBox1.Value) & "*" And _
    UCase(sCadena_estudios) Like "*" & UCase(TextBox2.Value) & "*" And _
    UCase(sCadena_idioma) Like "*" & UCase(TextBox3.Value) & "*" Then
    Me.ListBox1.AddItem
    Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
    Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
    Me.ListBox1.List(n, 2) = .Cells(i, 3).Value
    Me.ListBox1.List(n, 3) = .Cells(i, 4).Value
    Me.ListBox1.List(n, 4) = .Cells(i, 5).Value
    Me.ListBox1.List(n, 5) = .Cells(i, 6).Value
    Me.ListBox1.List(n, 6) = .Cells(i, 7).Value
    n = n + 1
    End If
    Next
    Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
    End With
End Sub
'
Private Sub UserForm_Initialize()
    'Indicamos el número de columnas que tendrá el listbox
    Me.ListBox1.ColumnCount = 7
    'Definimos tamaño de los espacios
    Me.ListBox1.ColumnWidths = "50pt;30pt;90pt;120pt;50pt;50pt"
    'Cargamos listbox
    Me.ListBox1.RowSource = ("A2:G") & Worksheets("BBDD").Range("A" & Rows.Count).End(xlUp).Row
End Sub
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
2 respuestas

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
1 respuesta

Contar celdas que contengan ciertos caracteres

Espero puedan ayudarme, tengo un listado horizontal de 9 celdas, en las cuales contienen 6 tipos de identificación. A,C,D,1,2 y V Al final de esas columnas, necesito contar por ejemplo solo las A, C y 1. Ya lo intente, pero no puedo lograrlo, ¿Me...
1 respuesta

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
2 respuestas

¿Cómo convertir valores de una celda en sucesivas filas?

Habitualmente trabajo con Access, pero desde una oficina me han pasado un archivo de Excel donde en cada fila de una hoja se indican en la primera columna el número de caja y en la celda siguiente (segunda columna) todos los números de expediente que...
1 respuesta

Cargar un rango de datos que tiene algunas filas y columnas vacías a un ListBox vba excel

Me gustaría poder seleccionar un rango de una hoja excel, por ej. Columnas B a I, las filas comenzaría en la 3 hasta final del rango no vacío de la columna C (que es el que contiene mayor numero de filas) y que ese rango se muestre en un ListBox de...
2 respuestas

Cuando ingresos los datos con código no los coloca donde deseo colocar los datos.

Código que extrae información de varios archivos de Excel desde una carpeta pero al colocar los datos los coloca varias filas mas abajo. Debe iniciar a colocar los datos en C6. La información la tiene que colocar dentro de una tabla que tiene...
2 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
3 respuestas

¿Como crear un evento al cambiar el valor de una celda con nombre? VBA en Excel

A tod@s! Tengo una celda que se llama "AnalogicaImput". Tengo esta instruccion If Target.Address = "$L$3" Then funciona con la posicion de la celda Como puedo hacer If Target.Name= "AnalogicaImput" Then para ejecutar un evento
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
3 respuestas