Buscar Texto en una Hoja y Pegar un valor en Otra Hoja de Excel
Tengo una tabla llamada Maestro con mas 36 mil registro
El cual tengo que buscar una palabra dentro del texto en
Columna E y copiar lo que se encuentra en la Columna D en la misma fila en otra hoja
Que se llamaría Datos a Buscar en caso de no encontrar colocar al lado de la palabra a buscar “Catalogar” hasta el final de Datos a Buscar
Algo Asi
Donde Buscar Hoja “Maestro“
Columnas
D E
4000059544 Montaje 7N1164
4000057066 Empacadura 7N1176
4000076716 Interruptor 7N1621
4000125225 Esparrago 7N-1637
4000058061 Guía 7N1819
Hoja Datos a Buscar
Buscar Datos a Copiar
7N1164 4000059544
7N1176 4000057066
7N9999 Catalogar
7N-1637 4000125225
7N1999 Catalogar
Esta Macro me funciona pero solo me la ubica y busca una por una de forma manual
Sub buscarpalabra()
palabra = ActiveCell
Set rango = Sheets("MAESTRO").Cells.Find(palabra)
If rango Is Nothing Then
'"No Encontrada "
MsgBox "La palabra " & palabra & " no encontrada", vbInformation
Else
Sheets("MAESTRO").Select
Range(rango.Address).Select
End If
End Sub
2 respuestas
Te anexo la macro actualizada
En la hoja "Datos a Buscar" los datos deberán estar en la columna "A" y empezar en la fila 2. El resultado te lo pondrá en la columna "B"
Sub Buscar_Palabras()
'Act Por Dante Amor
Set h1 = Sheets("Datos a Buscar")
Set h2 = Sheets("MAESTRO")
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
palabra = h1.Cells(i, "A").Value
Set b = h2.Columns("E").Find(palabra, lookat:=xlPart)
If b Is Nothing Then
h1.Cells(i, "B").Value = "Catalogar"
Else
h1.Cells(i, "B").Value = h2.Cells(b.Row, "D").Value
End If
Next
MsgBox "Fin"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Fíjate estos ejemplos si ayudan
Visita https://programarexcel.com