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 respuestas
¿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
[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