Buscador en excel!

Hola Espero tener suerte!!. Doy un ejemplo. Yon tengo una base de datos, en donde el la columna A tengo el código de cada producto y el resto son las marcas. EJ:
Columna A     Columna B      Columna C      Columna D      Columna E
   código             Fiat                Peugeot           Renault             BMW
       1                  234                    13                                           987
       2                                            25                                            24

Lo que necesito es tener un buscador, que yo ponga un código determinado y me salga de manera seguida lo que tengo de ese código con la marca correspondiente. Por ejemplo:
Coloco "1" y que me salga:
Columna A       Columna B        Columna C      Columna D
Código                   Fiat                Peugeot          BMW
     1                       234                     13                  987
Cambio el "1" por el el código "2" y que me salga:
Columna A       Columna B        Columna C        Columna D
   Código           Peugeot               BMW
       2                     25                      24
SE PODRÁ???? LO QUE QUIERO HACER ESCAPA DE MIS CONOCIMIENTOS!!!.
MUCHAS GRACIAS!!!!!!

1 Respuesta

Respuesta
1

Aquí tienes la solución. Tienes que poner tu base de datos en el rango A1:D2. Después en la celda C9 pones el dígito a buscar (o 1 o 2). Y Después ejecutas esta macro:

(Recuerda puntuar y finalizar. Si quieres el archivo te lo puedo enviar)

Sub buscando()

Range("d8:g9").ClearContents

Range("c9").Select

valor = Range("c9").Value

Set busca = ActiveSheet.Range("a1:a20").Find(valor, LookIn:=xlValues, lookat:=xlWhole)

If Not busca Is Nothing Then

busca.Offset(0, 1).Select

For f = 1 To 4

todo = todo & "," & ActiveCell.Value

If ActiveCell <> "" Then

columna = columna & "," & Cells(1, ActiveCell.Column).Value

End If

ActiveCell.Offset(0, 1).Select

Next

todo = Split(todo, ",")

columna = Split(columna, ",")

Range("d9").Select

For p = 0 To UBound(todo)

If todo(p) = "" Then GoTo salto

ActiveCell.Value = todo(p)

ActiveCell.Offset(0, 1).Select

salto:

Next

Range("d8").Select

For f = 0 To UBound(columna)

If columna(f) = "" Then GoTo salto2

ActiveCell.Value = columna(f)

ActiveCell.Offset(0, 1).Select

salto2:

Next

End If

End Sub

hola!! gracias por responder!!. Hice todo lo que dijiste pero no me funciona!!.

si podes pásame el archivo y así veo!!.

MUCHAS GRACIAS!!!

Dime el mail

[email protected]

gracias!!!

Ya lo tienes.

Finaliza y puntúa

APLAUSOS!!! MUY BUENO!! GENIAL!!!  AHORA LO LLEVO A LO QUE YO TENGO MODIFICANDO LOS RANGOS DE LA MACRO!!

MUCHAS GRACIAS!!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

Bloquear una celda luego de introducir automáticamente un dato en excel

Actualmente utilizo el siguiente código, Private SubWorksheet_Change(byVal Target As Range) Tiempo=format (Now, "hh:mm") Set isect= Application.Intersect (Target.Range ("A1:A20")) IF not isect is Nothing then If isect.value <>""Then Isect.offset...
2 respuestas