Pregunta Para Luis Mondelo!

Hola Luis!! Buen dia!!. Luis vos me hiciste esta macro una vez para buscar productos. Cuando la veas te vas acordar!!.

Private Sub TextBox2_Change()

ListBox1.Clear

código = TextBox2.Value

Set busca = Sheets("Base Datos ALMACEN").Range("b3:d" & Sheets("Base Datos ALMACEN").Range("d65000").End(xlUp).Row).Find(código, LookIn:=xlValues, lookat:=xlPart)

If Not busca Is Nothing Then

ubica = busca.Address

Do

ListBox1.AddItem busca

i = ListBox1.ListCount - 1

ListBox1.List(i, 0) = busca.Offset(0, -2)

ListBox1.List(i, 1) = busca.Offset(0, -1)

ListBox1.List(i, 2) = busca

Set busca = Sheets("Base Datos ALMACEN").Range("b3:d" & Sheets("Base Datos ALMACEN").Range("d65000").End(xlUp).Row).FindNext(busca)

Loop While Not busca Is Nothing And busca.Address <> ubica

End If

End Sub

Luis, vos sabes que me tira un error en el textBox2, donde coloco la letra para buscar los productos. Te acordás? Funciona asi: Si yo en el textBox coloco "A" por ejemplo, me tira todas las palabras que arrancan con A. Bien, pero el error esta en que si coloco "A" por ejemplo, y en realidad me equivoque de letra y quiero borrarla y colocar "B" o "L" me tira un mensaje de error 1004 ..........!! La linea que esta en negrita es la que me señala cuando doy depurar!!!

que sera??

gracias luis!!!

1 respuesta

Respuesta
1

La macro correcta sería esta:

Private Sub TextBox2_Change()
ListBox1.Clear
codigo = TextBox2.Value
If TextBox2.Value = "" Then ListBox1.Clear
Set busca = Sheets("Base Datos ALMACEN").Range("b3:d" & Sheets("Base Datos ALMACEN").Range("d65000").End(xlUp).Row).Find(codigo, LookIn:=xlValues, lookat:=xlPart)
If Not busca Is Nothing Then
ubica = busca.Address
Do
ubica2 = "$B$" & busca.Row
ListBox1.AddItem Range(ubica2)
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = Range(ubica2).Offset(0, 1)
ListBox1.List(i, 2) = Range(ubica2).Offset(0, 2)
Set busca = Sheets("Base Datos ALMACEN").Range("b3:d" & Sheets("Base Datos ALMACEN").Range("d65000").End(xlUp).Row).FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub

recuerda finalizar amigo

Un abrazo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿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

¿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

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...
2 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

Atascado en la función sumar. Si

En una hoja de calculo tengo en las columnas H, I, J una celda en blanco por columna, en la columna QUE tengo una celda con un numero como referencia 1000 y una celda donde ha de apareceme el resultado siguiente para el cual necesito la fórmula que...
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

Fórmula que separe la fecha por dígitos de uno en cada columna

Necesito una fórmula o macro que separe la fecha en dígitos de uno en cada columna, Ej: 27/03/2025 (col-A(2), col-B(7), col-C(0), col-D(3), col-E(2), col-F(0), col-G(2), col-H(5) Agradecido de antemanos
2 respuestas

Como agregar más hojas a un libro de excel

Dante puede apoyar con la siguiente macro, tengo un archivo de excel en el cual tengo un formato donde hay una macro que cuando se activa un check box muestra ciertas filas y cuando se desactiva las oculta, así mismo bloquea ciertas celdas y también...
1 respuesta

¿Importar datos desde varios libros de Excel ADO?

A tod@s! Desde un botón con su evento aparece un desplegable y elijo los libros que quiero importar la info. Incluso puedo elegir varios a la vez (esto lo tengo hecho) En cada libro seleccionado tendrá una tabla en una hoja llamada "DATA". La tabla...
1 respuesta

¿Cómo se copia una fórmula moviendo solo valores intermedios?

Tengo la siguiente fórmula: ='2025-300'!C$1 Deseo arrastrar la fórmula hacia abajo o copiarla de forma que solo cambie el 300 en el correlativo siguiente: ='2025-301'!C$1 ='2025-302'!C$1 Y asi sucescivamente.
1 respuesta