Búsqueda en varias columnas
Hola a todos:
Estoy intentando realizar una búsqueda en una columna de una hoja de excel, para posteriormente coger ese dato y si aparece en otro columna de otra hoja de excel poder pegarlo, eliminarlo y manejarlo.
Si alguien me pudiera ayudar se lo agradecería.
Muchas Gracias
Estoy intentando realizar una búsqueda en una columna de una hoja de excel, para posteriormente coger ese dato y si aparece en otro columna de otra hoja de excel poder pegarlo, eliminarlo y manejarlo.
Si alguien me pudiera ayudar se lo agradecería.
Muchas Gracias
1 Respuesta
Respuesta de Cadipas spain
1
La pregunta es un poco ambigua, podrías concretar un poco más.
Para realizar una búsqueda en una columna, solo tienes que ir al menu
EDICIÓN - BUSCAR y del cuadro que te sale, pincha en el botón para que es muestren las OPCIONES y en el desplegable Buscar por: selecciona por COLUMNA y te buscara le dato que le hayas puesto en el recuadro superior BUSCAR
Lugo lo que quieras hacer con el dato habría que aclarar...
Para realizar una búsqueda en una columna, solo tienes que ir al menu
EDICIÓN - BUSCAR y del cuadro que te sale, pincha en el botón para que es muestren las OPCIONES y en el desplegable Buscar por: selecciona por COLUMNA y te buscara le dato que le hayas puesto en el recuadro superior BUSCAR
Lugo lo que quieras hacer con el dato habría que aclarar...
Todo lo quiero hacer a través de una macros, por ello no puedo hacerlo a través de los botones de excel. Gracias de nuevo por el interés.
Prueba este código donde se busca en la hoja actual en el rango A:A y se busca el dato "javier", se obtiene el dato de de la celda adjunta y se va a la hoja2 y se busca el mismo dato en la columna L:L y se pega el dato en la celda adjunta. El código es el siguiente:
datoabuscar = "javier"
Columns("A:A").Select
Selection.Find(What:=datoabuscar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
valor = ActiveCell.Offset(0, 1)
Sheets("hoja2").Select
Sheets("hoja2").Columns("L:L").Select
Selection.Find(What:=datoabuscar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Selection.Offset(0, 1).Select
Selection = valor
datoabuscar = "javier"
Columns("A:A").Select
Selection.Find(What:=datoabuscar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
valor = ActiveCell.Offset(0, 1)
Sheets("hoja2").Select
Sheets("hoja2").Columns("L:L").Select
Selection.Find(What:=datoabuscar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Selection.Offset(0, 1).Select
Selection = valor
Muchas gracias, por la respuesta y por el tiempo empleado en contestarla, ma has echado un cable muy gordo. Lo he modificadon un poco porque me daba errores de depuración con las órdenes Sheets, pero las he cambiado por:
Hoja2.Select
Columns("L:L").Select
Y va como la seda. Muchas gracias por todo de nuevo.
Hoja2.Select
Columns("L:L").Select
Y va como la seda. Muchas gracias por todo de nuevo.
