Macro para buscar una lista de nombres en una lista

Necesito por favor una ayuda para generar una macro en Excel que me permita identificar en que celdas de una determinada columna se encuentra cada nombre de un listado predefinido. Vale la pena aclarar que en cada celda de esa columna hay un texto que contiene el nombre entre otras palabras.
Es por eso que empecé por generar una macro que me identificara una determinada palabra dentro del texto de la celda.
Esto lo logre haciendo que la macro inserte en una celda contigua la siguiente formula: ActiveCell.FormulaR1C1 = "=IF(ISERROR(SEARCH(Tablas!R2C1,'Po Status Mexico'!R[-1]C[-1],1)),"""",MID(R[-1]C[-1],SEARCH(Tablas!R2C1,'Po Status Mexico'!R[-1]C[-1],1),Tablas!R2C2))".
El problema que esto me permite buscar un solo nombre y si quiero buscar otro, modificando el valor de la fila de la tabla con los nombres a buscar, tengo que repetir todo el código devuelta porque no me deja poner variables dentro de la fórmula (no se si es mi ignorancia o realmente no se puede).

1 Respuesta

Respuesta
1
La macro es esta, te preguntará el dato a buscar y posteriormente el rango donde buscarlo:
Sub Buscar()
Dim dat As String
dat = InputBox("Que dato quieres buscar", "PREGUNTA", 1)
rango = InputBox("Dime el rango donde buscar", "PREGUNTA", "A:A")
On Error Resume Next
Range(rango).Select
Selection.Find(What:=dat, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Do While dat <> ""
dat = InputBox("Que dato quieres buscar", "PREGUNTA", 1)
rango = InputBox("Dime el rango donde buscar", "A:A")
On Error Resume Next
Range(rango).Select
Selection.Find(What:=dat, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Loop
End Sub
Si tanto el dato como el rango no son correctos no te mostrará nada pero no dará error y se finalizará la macro
Si te ha servido puntúa y finaliza la pregunta
>Un saludo
>Julio
Julio:
Gracias por tu rápida respuesta!
Tu respuesta es excelente pero lamentablemente no supe expresar mis necesidades exactamente. De todas formas ya lo resolví, te paso el código por si te resulta de interés.
A lo mejor me podes ayudar para resolvir la siguiente duda:
Dentro de la sentencia: Selection.AutoFilter Field:=5, Criteria1:="=AMADOR", Operator:=xlAnd
Quisiera hacer referencia a una variable en donde dice "=AMADOR".
¿Podrías ayudarme con esta inquietud por favor?
Saludos,
Sebastián.-
PD: Acá van las sentencias de búsqueda que te comente arriba.
Dim FilaRequisidor, FilaPO, ReqIdent, QReq, FallaIdent, CantPO, Freno As Integer
Dim FilaBusqueda, ColumBusqueda As String
Hoja2.Select
'CUENTO LA CANTIDAD DE PO QUE HAY EN EL ARCHIVO
Range("A2").Select
While Freno = 0
If ActiveCell.Value <> "" Then
CantPO = CantPO + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Else
Freno = Freno + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveCell.Value = CantPO
End If
Wend
'ARMO LA COLUMNA CON LOS APELLIDOS DE LOS REQUISIDORES (aca esta la busqueda)
Cells(FilaPO, 5).Select
While ReqIdent <> CantPO
FilaBusqueda = Hoja1.Name & "!R" & FilaRequisidor & "C1"
ColumBusqueda = Hoja1.Name & "!R" & FilaRequisidor & "C3"
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(SEARCH(" & FilaBusqueda & ",RC[-1],1)),"""",MID(RC[-1],SEARCH(" & FilaBusqueda & ",RC[-1],1)," & ColumBusqueda & "))"
If Cells(FilaPO, 5).Value = "" Then
If FilaRequisidor < QReq Then
FilaRequisidor = FilaRequisidor + 1
FilaBusqueda = Hoja1.Name & "!R" & FilaRequisidor & "C1"
ColumBusqueda = Hoja1.Name & "!R" & FilaRequisidor & "C3"
Else
Selection.Interior.ColorIndex = 3
Selection.Value = "¿?"
FallaIdent = FallaIdent + 1
FilaPO = FilaPO + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ReqIdent = ReqIdent + 1
FilaRequisidor = 6
End If
Else
FilaPO = FilaPO + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ReqIdent = ReqIdent + 1
FilaRequisidor = 6
End If
Wend
Columns("A:Q").EntireColumn.AutoFit
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveCell.Value = FallaIdent & " PO sin requisidor identificado"
Selection.Font.FontStyle = "Negrita"
Selection.Interior.ColorIndex = 3
'ORDENO EL LISTADO SEGUN 3 CRITERIOS: REQUISIDOR, COMPRADOR, FECHA DE GENERACION
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("O2") _
, Order2:=xlAscending, Key3:=Range("A2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
ThisWorkbook.Save
Hoja1.Select
'AVISO QUE HUBIERON PO PARA LAS CUALES NO SE IDENTIFICO EL REQUISIDOR'
If FallaIdent <> 0 Then
MsgBox ("No se han podido identificar los requisidores de " & FallaIdent & " PO")
MsgBox ("En la columna Requisidor encontrara las celdas correspondientes pintadas de rojo y con el texto '¿?' adentro. Debe Identificar los requisidores manualmente si quiere incluir las PO en el envio de consulta")
End If
Pues efectivamente la pregunta no se parece en nada a lo que necesitabas, pero en fin me alegro de que ya lo hayas resuelto, en lo que se refiere a poner variables en el criterio la sintaxis es esta:
Primero tienes que dar un nombre a la variable que la tomas de donde quieras en este caso es de un Inputbox.
DatoBuscado = InputBox("¡Escriba el nombre del articulo!", "BUSCAR", 1)
Range("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=DatoBuscado
Ahora ya puedes utilizarlo en tu codigo, si AMADOR esta en la celda C4 (por ejemplo)
sería así:
valor = Range("C4").Value
Range("A:A").Select
Selection.Autofilter
Selection.Autofilter Field:=1, Criteria 1:= valor
>Un saludo
>Julio
*Si ya te ha servido puntua y finaliza la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

"VLOOKUP" la segunda y la tercera coincidencia

Buscando un dato con "VLOOKUP" me da la primera coincidencia pero tiene 3 coincidencias como pedir la segunda y la tercera
1 respuesta

Posición de celdas con un texto

Tenía esta macro desarrollada para que me informe la posición de las celdas en las que contiene un texto buscado: Sub buscar_cosas() On Error Resume Next Application.ScreenUpdating = False Range("J:K").Clear 'Esto debería ser variable... (sólo sirve...
1 respuesta

Promedio con fechas

Feliz navidad. No doy con esto: Tengo la columna "A" con fechas y la columna "B", con números, quiero hallar el promedio de la fila "B" por meses descartando las celdas en blanco o con ceros.
1 respuesta

Crear hojas con el mismo formato con macros

Te agradezco la colaboración con el siguiente macro en el cual me crea una hojas con el nombre que le indico (según código) el problema radica en que quiero que tenga el formato de la hoja original y no me lo toma. Ademas que si en determinado...
1 respuesta

Buscar con un dato y copiar filas enteras que lo contengan

A5:D20, Tab_Facturas) con datos repetidos (que está en la Hoja1), necesito buscar todas las filas que tengan por ejemplo el numero dos que se encuentran en la columna "C" que es el N°. De vendedor, la columna "A" contiene el N°. De Factura, la...
1 respuesta

Función buscarv selección variable

Que tengo, la primera_ La función BUSCARV te busca en una matriz determinada de datos, ¿Hay forma de que se le pueda dar el nombre del archivo que debe utilizar como matriz con un imputbox? Mi problema es que cada día tengo que hacer comparaciones...
1 respuesta

Comparar 2 hojas y sacar una tercera

DAN tengo el siguiente caso: En un mismo archivo 3 hojas: Inventario, toma-física, sobrantes-faltante. Debo comparar la columna A de inventario con la columna A de toma-física y colocar lo que este en Inventario que no este en toma-física en la...
2 respuestas

Extraer hipervínculo en excel

Como puedo obtener el hipervínculo de forma automática (Macro) o semiautomática (función) de un listado de celdas con hipervínculo. Sé que existe lo de clickar el botón derecho y copiarlo pero si tenemos un listado de 100 o 200 registros, no es una...
1 respuesta