Macro para buscar una palabra dentro de un texto en una celd

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Macro para buscar una palabra dentro de un texto en una celd

Notapor TONGO13 » 05 Ene 2018 12:46

buenos días a todos

ando buscando una macro que me permita buscar una palabra dentro de un texto que esta en la celda b3 y que me ponga la palabra en la celda c3, ejemplo en la celda b3 dice: la estufa esta en aparador la macro me tiene que buscar la palabra estufa y colocarla en la celda c3 y asi sucesivamente en las celdas hacia abajo pero no solo que busque una palabra si no que tiene que buscar las siguientes palabras licuadora, estufa y baño si aparece una de ellas en la celda b3 y que me la ponga en la celda c3 envió ejemplo en un archivo de Excel con formula pero quisiera me digan si hay una macro para hacerlo sin poner formula en la celda
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
TONGO13
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 30
Registrado: 25 Ene 2013 21:50

Re: Macro para buscar una palabra dentro de un texto en una

Notapor Antoni » 05 Ene 2018 13:18

Selecciona el rango de celdas a evaluar y ejecuta esta macro:

Código: Seleccionar todo
Sub encontrarPalabras()
Dim Palabras As Variant
Application.ScreenUpdating = False
Palabras = Array("ESTUFA", "LICUADORA", "BAÑO") 'Añadir/quitar palabras si es necesario
For Each celda In Selection
   For p = 0 To UBound(Palabras)
      If InStr(UCase(celda.Value), Palabras(p)) > 0 Then
         celda.Offset(0, 1).Value = Palabras(p)
         Exit For
      End If
   Next
Next
End Sub
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5538
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Macro para buscar una palabra dentro de un texto en una

Notapor TONGO13 » 05 Ene 2018 13:36

Muchas gracias Antoni por tu respuesta y disculpa mi ignorancia soy algo nuevo en esto de las macros, el rango es de b3 a b100 este rango en donde lo colocaría y el rango donde tiene que poner la palabra encontrada seria de c3 a c100 esa en donde lo pondría perdona espero me puedas apoyar indicándomelo te lo agradecería mucho.
TONGO13
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 30
Registrado: 25 Ene 2013 21:50

Re: Macro para buscar una palabra dentro de un texto en una

Notapor Antoni » 05 Ene 2018 14:09

Selecciona el rango B3:B100 y ejecuta la macro.
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5538
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Macro para buscar una palabra dentro de un texto en una

Notapor ikanni » 05 Ene 2018 14:11

Hola ,
Con permiso de Antoni, te pongo lo que pides modificando el la macro de Antoni.
Espero te sirva
Código: Seleccionar todo
Sub encontrarPalabras()
Dim Palabras As Variant, Seleccion As Range
'Creo un rango llamado Seleccion y lo delimito desde B3 Hasta el ultimo B Ocupado
Set Seleccion = Hoja1.Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row)
Application.ScreenUpdating = False
Palabras = Array("ESTUFA", "LICUADORA", "BAÑO") 'Añadir/quitar palabras si es necesario
'Y hago el bucle con el rango seleccionado
For Each celda In Seleccion
BuscaBusca celda
   For p = 0 To UBound(Palabras)
      If InStr(UCase(celda.Value), Palabras(p)) > 0 Then
         celda.Offset(0, 1).Value = Palabras(p)
         Exit For
      End If
   Next
Next
End Sub
Avatar de Usuario
ikanni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 196
Registrado: 22 Dic 2013 08:51

Re: Macro para buscar una palabra dentro de un texto en una

Notapor ikanni » 05 Ene 2018 14:14

Perdona, quita esta linea de la macro ,
Código: Seleccionar todo
BuscaBusca celda

que se me ha colado... :roll:
Avatar de Usuario
ikanni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 196
Registrado: 22 Dic 2013 08:51

Re: Macro para buscar una palabra dentro de un texto en una

Notapor ikanni » 05 Ene 2018 14:15

Vaya Antoni y me has pisado..... :oops:

Por meterme.... 8)
Avatar de Usuario
ikanni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 196
Registrado: 22 Dic 2013 08:51

Re: Macro para buscar una palabra dentro de un texto en una

Notapor TONGO13 » 05 Ene 2018 14:31

Gracias Ikanni te comento no me aparece el resultado en la siguiente celda que es la c3 y asi sucesivamente
TONGO13
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 30
Registrado: 25 Ene 2013 21:50

Re: Macro para buscar una palabra dentro de un texto en una

Notapor TONGO13 » 05 Ene 2018 15:27

Hola esta es la formula en Excel que quisiera en una macro cada vez que agragara texto me reconociera alguna de estas palabras:

=SI(ESNUMERO(ENCONTRAR("ESTUFA",MAYUSC(B3))),"ESTUFA",SI(ESNUMERO(ENCONTRAR("BAÑO",MAYUSC(B3))),"BAÑO",SI(ESNUMERO(ENCONTRAR("LICUADORA",MAYUSC(B3))),"LICUADORA")))

no se si me puedan ayudar la otra no corre o no me lo reconoce
TONGO13
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 30
Registrado: 25 Ene 2013 21:50

Re: Macro para buscar una palabra dentro de un texto en una

Notapor ikanni » 06 Ene 2018 05:48

Tongo13 mira el archivito.... dale click donde pone y veras como funciona. Añadele mas y seguira funcionando... :D
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Avatar de Usuario
ikanni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 196
Registrado: 22 Dic 2013 08:51


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 11 invitados