Mejora en búsqueda según datos excel

Tengo este código que buscar los datos en excel y los transporta a un listbox

Private Sub TextBox1_Change()ListBox1.ColumnCount = 3 'numero de columnasListBox1.ColumnWidths = "60;70;19" 'asignando ancho de columnasListBox1.ColumnHeads = TrueIf OptionButton2.Value = True Then 'buscar por usuario Dim t As Long Dim i As Long t = Application.WorksheetFunction.CountA(Sheets("Usuarios").Range("A:A")) ListBox1.Clear For i = 1 To t If InStr(1, Sheets("Usuarios").Range("A" & i), Trim(TextBox1)) > 0 Then ListBox1.AddItem Sheets("Usuarios").Range("A" & i) ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Usuarios").Range("C" & i) ListBox1.List(ListBox1.ListCount - 1, 2) = Sheets("Usuarios").Range("B" & i) End If NextEnd If If OptionButton1.Value = True Then 'buscar por nombre Dim t2 As Long Dim i2 As Long t2 = Application.WorksheetFunction.CountA(Sheets("Usuarios").Range("B:B")) ListBox1.Clear For i2 = 1 To t2 If InStr(1, Sheets("Usuarios").Range("B" & i2), Trim(TextBox1)) > 0 Then ListBox1.AddItem Sheets("Usuarios").Range("A" & i2) ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Usuarios").Range("C" & i2) ListBox1.List(ListBox1.ListCount - 1, 2) = Sheets("Usuarios").Range("B" & i2) End If NextEnd If If OptionButton3.Value = True Then 'buscar por cedula Dim t3 As Long Dim i3 As Long t3 = Application.WorksheetFunction.CountA(Sheets("Usuarios").Range("C:C")) ListBox1.Clear For i3 = 1 To t3 If InStr(1, Sheets("Usuarios").Range("C" & i3), Trim(TextBox1)) > 0 Then ListBox1.AddItem Sheets("Usuarios").Range("A" & i3) ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Usuarios").Range("C" & i3) ListBox1.List(ListBox1.ListCount - 1, 2) = Sheets("Usuarios").Range("B" & i3) End If NextEnd IfEnd Sub

el problema con este código es que por ejemplo si le doy a buscar por nombre y mi nombre es "Emmanuel" NO puedo poner "emmanuel" tengo que poner "Emmanuel" es decir lo que quiero es que me evalúe letras mayúsculas y minúsculas por igual.

1 respuesta

Respuesta
1

No se ve bien el código, está en una sola línea.

¿Y cuál instrucción utilizar para buscar?

este es el código

Private Sub TextBox1_Change()
ListBox1.ColumnCount = 3 'numero de columnas
ListBox1.ColumnWidths = "60;70;19" 'asignando ancho de columnas
ListBox1.ColumnHeads = True
If OptionButton2.Value = True Then 'buscar por usuario
Dim t As Long
Dim i As Long
t = Application.WorksheetFunction.CountA(Sheets("Usuarios").Range("A:A"))
ListBox1.Clear
For i = 1 To t
If InStr(1, Sheets("Usuarios").Range("A" & i), Trim(TextBox1)) > 0 Then
ListBox1.AddItem Sheets("Usuarios").Range("A" & i)
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Usuarios").Range("C" & i)
ListBox1.List(ListBox1.ListCount - 1, 2) = Sheets("Usuarios").Range("B" & i)
End If
Next
Else
If OptionButton1.Value = True Then 'buscar por nombre
t = Application.WorksheetFunction.CountA(Sheets("Usuarios").Range("B:B"))
ListBox1.Clear
For i = 1 To t
If InStr(1, Sheets("Usuarios").Range("B" & i), Trim(TextBox1)) > 0 Then
ListBox1.AddItem Sheets("Usuarios").Range("A" & i)
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Usuarios").Range("C" & i)
ListBox1.List(ListBox1.ListCount - 1, 2) = Sheets("Usuarios").Range("B" & i)
End If
Next
Else
If OptionButton3.Value = True Then 'buscar por cedula
t = Application.WorksheetFunction.CountA(Sheets("Usuarios").Range("C:C"))
ListBox1.Clear
For i = 1 To t
If InStr(1, Sheets("Usuarios").Range("C" & i), Trim(TextBox1)) > 0 Then
ListBox1.AddItem Sheets("Usuarios").Range("A" & i)
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Usuarios").Range("C" & i)
ListBox1.List(ListBox1.ListCount - 1, 2) = Sheets("Usuarios").Range("B" & i)
End If
Next
End If
End If
End If
End Sub

y el archivo se lo envíe esta en el formulario que se llama "usuarios"

Esta pregunta es sobre lo mismo, ¿puedes solucionarlo con esto?

If InStr(1, UCase(Sheets("Usuarios").Range("A" & i)), UCase(Trim(TextBox1))) > 0 Then

Prueba y me comentas

Saludos. Dam

Es el mismo código, pero son dos preguntas diferentes, y con este ya me resolvía esta pregunta un millón de gracias,


PD: La otra pregunta es diferente y aun esta pendiente.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Colocar titulo a listbox de 3 columnas

Tengo el código descrito mas abajo para cuando entren a al textbox1 se despliegue el listbox1 y asignarle 3 columnas y títulos, pero no logro que los titutos se llenen. PD: Los Datos los ala de una hoja que se llama "Usuarios" y el la primera linea...
1 respuesta

Columna Listbox

De nuevo apelo a tu experiencia para intentar solucionar un problema que me lleva de cabeza. Tengo un Userform para controlar facturas con cuatro botones (No vencidas/Vencidas/Pagadas/Todas) en un solo listbox, además de un textbox donde me devuelve...
1 respuesta

Como buscar y/o filtrar en un listbox con ayuda de un texbox

Bueno tengo un listbox que ciertamente me filtra las palabras, pero tengo que insertar la primera letra de la palabra que busco para que se pueda filtrar. Tengo un código para filtrar parte del texto y no es necesario tener que ingresar la primera...
2 respuestas

Complemento a:¿Cómo modificar valor en un campo(columna) de una hoja excel, desde un ListBox VBA?

Que me dio una gran solución, he podido continuar con mi proyecto, pero me quedó dando vuelta una nueva consulta sobre lo mismo. ¿Cómo puedo hacer para que no se ejecute nada, mientras no seleccione algún registro en el LISTBOX? En lo posible con...
1 respuesta

Buscar de textbox1 y mostrar resultado(s) en lista

En Excel Necesito que al escribir un dato en el textbox1 busque los datos en la hoja1 columna A y me de todos los datos que coincidan de la columna B A B RUT Numero 11.111.111-0 1540 22.222.222-k 7080 33.333.333-7 1212 11.111.111-0 1657 33.333.333-7...
1 respuesta

¿Cómo llenar un listbox con columnas discontinuas?

He terminado de diseñar un UF el cual contiene varios textbox, un listbox y un botón de búsqueda. Lo primero que hago es agregar una clave de cliente en el textbox1 y al presionar el botón, la macro hace la búsqueda, si lo encuentra, llena el resto...
2 respuestas

Como llenar dinámicamente un ListBox

Tengo dos hojas de excel llamadas Inventario y Diario, la hoja activa es la de diario y tengo un formulario desde donde voy cargando los artículos, este formulario consta de: TexBox1 - Código Articulo ComboBox1 - Nombre de Articulo TextBox2 - Me...
1 respuesta

Como paras de ListBox a ListBox

Me gustaría que al seleccionar una fila de 10 columnas en el listbox1 (en el evento ListBox1_Click) esta se añada en el listbox2. Esta operación se puede repetir varias veces. Digamos que es hacer una "lista de la compra" donde vas añadiendo...
1 respuesta

Mantener títulos en un Listbox cambiando sus valores

Quería comentar un problema que me aparece en un Listbox para ver si me podían echar una mano. El Listbox estará acompañado de 1 TextBox y de 2 botones más en un formulario. En el formulario lo que pretendo es que apretando a uno de los botones se...
1 respuesta

¿Cómo activar un fila de Excel desde un ListBox?

Tengo una "BaseDeDatos" con 23 columnas ("A:W"), de la misma que jalo datos a un ListBox1 de las primeras 9 columnas ("A:I"). Ingresando criterio de búsqueda en un TextBox1 y mediante el evento Click de un "CommandButton1" filtro los datos que deseo...
1 respuesta