Buscar en celda una palabra de una lista
Tengo un listado de productos y otro de marcas, en la "columna A" se repiten filas con texto variable y dentro de ese texto aparece un producto y una marca de mis listas.
Lo que necesito, es a través de una fórmula o método verificar en la celda de la "columna A" cual producto de mi lista y cual marca se incluyen.
¿Alguien puede darme una mano?
1 Respuesta
Podría hacer una macro. Pero necesito ver en dónde tienes la lista, en dónde están los productos y en dónde están las marcas; y por último, qué esperas de resultado.
Envíame un archivo con unas muestras reales de cómo tienes la información y cómo quieres el resultado.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Alan White”
Ahora lo envío ¡Gracias!
Te anexo la macro
Sub Repuesto_Marca()
'Por.Dante Amor
u1 = Range("A" & Rows.Count).End(xlUp).Row
u2 = Range("F" & Rows.Count).End(xlUp).Row
u3 = Range("I" & Rows.Count).End(xlUp).Row
Set r1 = Range("A2:A" & u1) 'conceptos
Set r2 = Range("F2:F" & u2) 'repuestos
Set r3 = Range("I2:I" & u3) 'marcas
Range("B2:B" & Rows.Count).ClearContents
'
For Each concepto In r1
cadena1 = ""
cadena2 = ""
For Each repuesto In r2
If InStr(1, LCase(concepto.Value), LCase(repuesto.Value)) > 0 Then
cadena1 = repuesto.Value
Exit For
End If
Next
For Each marca In r3
If InStr(1, LCase(concepto.Value), LCase(marca.Value)) > 0 Then
cadena2 = marca.Value
Exit For
End If
Next
If cadena1 = "" Then cadena1 = "Sin repuesto -"
If cadena2 = "" Then cadena2 = "- Sin marca"
concepto.Offset(0, 1) = cadena1 & " " & cadena2
Next
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Feliz Año 2018
.
