Buscar por filas en una base, una variable, y si coincide ingresa un resultado en otra columna de esa misma fila

Quisiera me ayuden con una macro que busque en una base, de 5 columnas, 3 variables, que puede estar en cualquiera de las 5 columnas pero puede ser que la variable aparezca en una celda pero con otra(s) palabra(s), (es decir la búsqueda es por parte y no exacta); y que en la fila que coincida la búsqueda ingrese en una 6ta columna un resultado según la variable.

Ej:

Si localiza en una fila la palabra "fresa" (Variable1) en la columna 6 aparece "ROJO"

Si localiza en una fila la palabra "uva" (Variable2) en la columna 6 aparece "PURPURA"

Si localiza en una fila la palabra "banana" (Variable3) en la columna 6 aparece "AMARILLO"

Si no localiza en una fila ninguna de las variables en la columna 6 queda vacía.

PD:

La base puede tener unas 150 líneas (por si hay que considerar tiempos de ejecución)

Las variables nunca coinciden en la misma línea.

1 Respuesta

Respuesta
1

Esta macro hace lo que pides. Estoy suponiendo que el rango es desde A2 hasta la última fila de datos de la columna E y pone el resultado en la columna F. 

Sub Busca_Cadenas()
'Por Marcial Castro
col = "A" 'Columna donde comienza el Rango de búsqueda'
nCol = 1  'Número de la columna del rango de búsqueda'
colRes = "F" 'Columna para los resultados'
For t = 2 To Range(col & Rows.Count).End(xlUp).Row
    For j = nCol To nCol + 4: cadena = cadena + Cells(t, j): Next j
    If InStr(1, cadena, "fresa") Then
        Cells(t, colRes) = "ROJO"
        ElseIf InStr(1, cadena, "uva") Then
            Cells(t, colRes) = "PURPURA"
                ElseIf InStr(1, cadena, "banana") Then Cells(t, colRes) = "AMARILLO"
    End If
cadena = ""
Next t
End Sub

Si quieres utilizar otras columnas, cambia las líneas

col = "A" 'Columna donde comienza el Rango de búsqueda'
nCol = 1 'Número de la columna del rango de búsqueda'
colRes = "F" 'Columna para los resultados'

Si te ha valido la respuesta.

Gracias Marcial por la pronta respuesta, sin embargo la programación me dio error en "Next j" no se si es cuando concatena porque corre bien cuando le quito el "+ 4" (que no es la idea). Sabes porque a que se debe?

También quisiera saber si se puede clasificar la base a partir de la ultima clasificación, es decir que busque en F la última celda con datos y que a partir de ahí vuelva a ejecutar la busqueda con resultados por filas.

Saludos cordiales

A mi funciona correctamente. Envíame el fichero y te digo.

Explícame esto en el fichero "También quisiera saber si se puede clasificar la base a partir de la ultima clasificación, es decir que busque en F la última celda con datos y que a partir de ahí vuelva a ejecutar la busqueda con resultados por filas."

No encontré donde adjuntar el archivo, te paso las imágenes o me puedes dar tu correo para enviarte el archivo.

el correo [email protected]

Aquí tienes la macro funcionando correctamente:

Sub Busca_Cadenas()
'Por Marcial Castro
col = "C" 'Columna donde comienza el Rango de búsqueda'
nCol = 1 'Número de la columna del rango de búsqueda'
colRes = "H" 'Columna para los resultados'
    'El bucle va desde la fila siguiente a la última fila con datos,'
    'de la columna colRes, hasta la última fila con datos de la columna A.'
    'Con esto se consigue la segunda parte de lo que necesitas'
    'OJO: Ten en cuenta que la hoja3, la columna colRes es la I, no la H, debes cambiarlo'
    For t = Range(colRes & Rows.Count).End(xlUp).Row + 1 To Cells.SpecialCells(xlLastCell).Row
        'Desde la columna 1 hasta la última con datos'
        For j = nCol To Cells.SpecialCells(xlLastCell).Column
            cadena = cadena + CStr(Cells(t, j)) 'El problema era por la conversión de los datos'
        Next j
        If InStr(1, cadena, "fresa") Then
            Cells(t, colRes) = "ROJO"
            ElseIf InStr(1, cadena, "uva") Then
                Cells(t, colRes) = "PURPURA"
                    ElseIf InStr(1, cadena, "banana") Then Cells(t, colRes) = "AMARILLO"
        End If
    cadena = ""
    Next t
End Sub

Si te ha valido la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Importar de un datagrid a mysql

Disculpa pero tengo problemas con insertar datos en mi tabla en mysql tengo el siguiente código el cual recorre mi datagrid el cual contiene lo datos que voy a insertar 'Definimos dos arrays de String, C,f y t, que contendrn, respectivamente, los...
1 respuesta

Copiar celdas especificas a otra fila en excel

Necesito de tu valiosa ayuda es que tengo un proyecto en el cual tengo que ingresar datos en diferentes celdas (a1, f38, c6) y tengo que copiarlos con un botón en la fila de la otra hoja... Lo interesante es que tengo que hacerlo varias veces pero...
1 respuesta

Macro que sume datos teniendo en cuenta el primer dígito de una cadena de números

Hola expertos de acuerdo a esta Gráfica, necesito de una macro que sume las columnas C, DE y E y todas las columnas que estén a la derecha a partir de la fila 8 hasta el ultimo dato, la suma debe ser por el primer dígito de las cadenas de números de...
3 respuestas

MACRO Agregar lista de materiales a las ventas detalladas.

Ayúdeme como hacer una MACROS para esta TAREA REPITIVA En el listado libro “VENTA DETALLADA”, he agregado una columna “Nro_PARTE”, con la letra “N”, que son los códigos (Columna “C”) a los que tengo que agregar su lista de materiales, la búsqueda de...
1 respuesta

Macro busca celda por color y resumen

Tengo una macro que compara dos hojas de un mismo libro, específicamente 2 columnas, si hay un cambio en estas columnas, pinta la celda de un color, lo que requiero saber y pedir su ayuda, es poder realizar una macro que me extraiga los valores de...
1 respuesta

Codigo VBA para realizar búsqueda de datos de una hoja de excel en un formulario, seleccionando de un combobox?

Todo expertos, mi duda es la siguiente: Tengo 1 hoja de excel con nombres de personas en la primera columna y en 11 columnas mas todos los datos correspondientes al nombre de la persona, he hecho una "Pagina inicio" que permite abrir un formulario en...
2 respuestas

Macro para copiar filas con condición en otras hojas

Tengo una macro que colorea las filas dependiendo de una condición para que luego otra macro las pase a otras hojas con el mismo nombre de la condición dependiendo del color que tengan, las macros son estas: Sub ColorearFilas() Dim n As Integer Dim...
1 respuesta

Macros para buscar cadena de texto

Estoy haciendo una macros para buscar datos de una columna y después pegar toda la fila a otra celda, todo dentro de la misma hoja, quiero modificar el código para que el resultado lo pegue en otra hoja pero no me resulta, por favor si alguien me...
1 respuesta

Macro que compare celdas

He estado al tanto de todos sus consejos, pero no encuentro una soluciona un problema q tengo. Tengo una lista de datos de mas de 5000 lineas (hoja1) en la que deseo comparar dos celdas ubicadas en la misma columna, si el valor entre ellas es "0" que...
1 respuesta

Una macro para extraer una cadena alfanumérica

Agradecería mucho si me ayudan con la elaboración de una macro, ya que la verdad apenas me estoy introduciendo en este tema y no conozco demaciado. Mi problema es el siguiente: En una columna (F:F) tengo una lista de caracteres alfanuméricos, la cual...
1 respuesta