Macro que permita buscar palabras desde una lista en toda una columna (tamaño n)y devuelva el valor al lado

Estoy atorada con una macro,

Deseo ayuda, tengo una base de datos de varios productos, necesito separar la marca de los vehículos, modelos y años de estos. Entonces necesito un macro q a partir de una lista me permita ir separando esta información y acomodarla en la casilla de al lado.

Espero poder contar con su ayuda que ya no encuentro como

2

2 Respuestas

236.740 pts.

¿Y tiene que ser con código? Porque en principio parece que se puede conseguir con una fórmula.

Habría que crear un rango con nombre (por ejemplo "Lista_marcas") con la lista de marcas (J3:J10), y luego poner esta fórmula en D4, copiándola hacia abajo hasta donde haya datos:

=INDICE(Lista_marcas;COINCIDIR(FALSO;(ESERROR(HALLAR(INDICE(Lista_marcas;INDIRECTO("1:"&FILAS(Lista_marcas)));B4)));0))

teniendo en cuenta que:

- Se trata de una fórmula matricial, por lo que hay que introducirla pulsando mayúsculas control entrada al mismo tiempo

195.000 pts. Los hombres aprenden mientras enseñan.

[Hola 

Te paso la macro

Valora la respuesta para finalizar

Sub comparar()
'[Por Adriel Ortiz Mangia
    Set h1 = Sheets("Hoja1")
    '
    For i = 3 To h1.Range("J" & Rows.Count).End(xlUp).Row
        Set b = h1.Range("B:B").Find(h1.Cells(i, "J"), lookat:=xlPart)
            If Not b Is Nothing Then
                h1.Cells(b.Row, "C") = h1.Cells(i, "J")
            End If
    Next i
    MsgBox "Fin"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas