Hola a todos, tengo un lio con esto de las macros por aquello de que soy nuevon... Bueno el caso es que tengo que extrar de una cadena de texto solo cierta parte y compararla con otra hoja si esta parte del texto se encuentra en otra hoja pues que me arroje el codigo que tiene y listos... casi casi nadita verdad... alguien dira breve cortar y pegar... pero el asunto es que no son sino 25.000 mil registros o mas... puffff... los datos los tengo asi.. hoja1.... columna A cadena de caracteres a buscar "en esta cadena puede estar algo asi como: Institucion superior de desarrollo agricola sede los almendros" (Con minusculas y todo..) hoja Instituciones "de hecho se llama Instituciones" en la columna A tengo: Codigo Institucion... 12345... Columna B tengo: Nombre de la institucion.... Institucion Superior de Desarrollo Agricola (Con mayusculas y todo) Columna C tengo: Codigo Sede... 1234501 Columna D tengo: Nombre Sede...Sede los Almendros (Con mayusculas y todo).... Como les decia si asi es un problema el bravo como sera si tengo 25.000 mil o mas registros..??? por ahi me encontre un codigo que busca el dato escrito en una casilla y arroja el resultado en un sector determinado pero no logro que me busque entre hojas... Alguien que me pueda ayudar por favor..?? Aca dejo el codigo que estoy utilizando.. Sub Buscar_Texto_En_Lista() 'dimensiones Dim lngUltimaFila As Long Dim strObjetoBuscar As String Dim lngResultado As Long Dim lngColumna As Long, lngFila As Long Dim lngPegarColumna As Long, lngPegarFila As Long Dim x As Integer, n As Integer 'quitar resultados anteriores Range("G7:H10000").ClearContents 'columna + fila donde empezar/terminar búsqueda Worksheets("INSTITUCIONES OFICIALES").Select lngColumna = 6 lngFila = 7 lngUltimaFila = Columns(lngColumna).Range("E65536").End(xlUp).Row 'columna + fila donde empezar a pegar resultados lngPegarColumna = 7 lngPegarFila = 5 'objeto a buscar Worksheets("INSTITUCIONES OFICIALES").Select strObjetoBuscar = Range("G2").Text If strObjetoBuscar = "" Then GoTo 99 'minúsculas strObjetoBuscar = LCase(strObjetoBuscar) 'bucle: realizar búsqueda For n = lngFila To lngUltimaFila 'evaluación lngResultado = InStr(1, Cells(n, 3), strObjetoBuscar, vbTextCompare) 'copiar/pegar If lngResultado > 0 Then Range(Cells(n, 2), Cells(n, 4)).Copy Range( _ Cells(lngPegarFila, lngPegarColumna), _ Cells(lngPegarFila, lngPegarColumna + 2)) _ .Select ActiveSheet.Paste lngPegarFila = lngPegarFila + 1 End If Next n 'aparcar Worksheets("hoja1").Select Application.CutCopyMode = False Range("G2").Select 99: End Sub Por su colaboracion mil gracias.

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Buscar dato de una cadena de texto

Autor del tema nitramara
Fecha de inicio 1 Feb 2012

nitramara

New member

1 Feb 2012

Hola a todos, tengo un lio con esto de las macros por aquello de que soy nuevon...
Bueno el caso es que tengo que extrar de una cadena de texto solo cierta parte y compararla con otra hoja si esta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Buscar dato entre datos

Respuestas: 15

9 Nov 2025

Dante Amor M

Resuelto

Asistencia para buscar dato por fecha.

Respuestas: 3

4 Feb 2024

Joe Mazzone

Pregunta

Macros buscar dato y pegarlos como resumen

Respuestas: 0

4 Ene 2024

jarja33

Pregunta

Buscar Dato y posicionar en celda

Respuestas: 6

4 Abr 2023

weapon

Pregunta

Buscar un dato en un archivo pdf e imprimirlo.

Respuestas: 2

6 Abr 2022

Gabriel Raigosa

Resuelto

Buscar dato en todas las hojas

Respuestas: 10

10 Nov 2021

Dandy

Resuelto

Buscar en dato en otra hoja

Respuestas: 6

6 Ago 2021

kolke7134

Resuelto

Buscar el dato que mas se repite y mostrarlo en textbox

Respuestas: 8

4 Jul 2021

Héctor Miguel

Pregunta

Buscar, rellenar y eliminar dato específico con macro

Respuestas: 8

2 May 2021

Leopoldo Blancas

Pregunta

Macro para buscar un dato en libro

Respuestas: 6

5 Feb 2021

tierra_pampa

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba