¿Como buscar una palabra dentro de un texto en vba?
Tan sencillo como esto... Solo que se trata en un rango de celdas.
Si busco la palabra corazza en el string que me encuentre:
Corazza, corazza, corazza7 y micorazza.
¿Cómo puedo hacerlo para que me detecte en estos 4 ejemplos?
¿Se puede hacer todo a la vez?
2 Respuestas
Con vba.
Solamente ajusta el rango A1:A10
Sub Macro1()
Range("A1:A10").Replace What:="corazza", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
End Sub
En esta parte puedes ajusta el color. Va la macro:
Sub Macro2()
With Application.ReplaceFormat
.Clear
.Interior.Color = vbYellow
Range("A1:A10").Replace What:="corazza", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
.Clear
End With
End Sub
Te muestro la forma correcta de declarar la variables y con Range también busca en la fila del encabezado:
Option Explicit
Private Sub CommandButton1_Click()
Dim valorbuscado As String, celda As String
Dim HojaDatos As Worksheet
Dim Tabla As ListObject
Dim Rng As Range, valorencontrado As Range
'
valorbuscado = "corazza"
Set HojaDatos = ThisWorkbook.Sheets("MasterDATA")
Set Tabla = HojaDatos.ListObjects("TablaAccionesLanzadas")
Set Rng = Tabla.Range.Columns(2)
Set valorencontrado = Rng.Find(valorbuscado, Lookat:=xlPart)
'
If valorencontrado Is Nothing Then
MsgBox "Valor no encontrado"
Else
celda = valorencontrado.Address
Do
MsgBox "Valor encontrado en la fila " & valorencontrado.Row
Set valorencontrado = Rng.FindNext(valorencontrado)
Loop While Not valorencontrado Is Nothing And valorencontrado.Address <> celda
End If
End Sub
¡Gracias!
Muchas gracias Elsa, hoy me he levantado pronto y con la cabeza despejada, depurando el código para mis necesidades y con tu ayuda, me ha funcionado a la primera.
No tengo más que palabras de agradecimento, por compartir conocimiento, dar soluciones e incluso ejemplos.
Eres un muy buen referente...así que muchísimas gracias.
Un saludo
¡Gracias!
Hola Dante!
Efectivamente ha sido con tu código con el que me ha funcionado.
Tenia explicaciones de Elsa quien ha colaborado en este tema, también se lo he agradecido.
Aunque bien es cierto que ha sido con tu código.
Gracias Dante (una vez más)
Un saludo
Tengo una consulta abierta con el tema:
¿Crear procedimiento para vaciar todos los textbox de cualquier formulario?
Si el tema quedó comprendido y resuelto agradeceré valores la respuesta. Sino comenta (*)
Con respecto a la consulta actual, si buscas una palabra en un rango de celdas debieras aclarar cómo quieres que te devuelva el resultado: indicando la referencia, contar todas las apariciones,¿?
De todos modos te paso un ejemplo que pintará de color todas las celdas con coincidencias en un rango dado (*)
Sub busqueda_01()
'x Elsamatilde
Set hox = Sheets("Hoja1")
rango = "A2:E10" 'ajustar rango de búsqueda
dato = "corazza" 'ajustar
Set busco = hox.Range(rango).Find(dato, LookIn:=xlValues, Lookat:=xlPart)
'si el dato no se encuentra devuelve un mensaje
If busco Is Nothing Then
MsgBox "Dato no encontrado."
Else
dire = busco.Address
'marca de color la celda encontrada
Do
hox.Range(busco.Address).Interior.ColorIndex = 5
Set busco = hox.Range(rango).FindNext(busco)
Loop While Not busco Is Nothing And busco.Address <> dire
End If
End SubSdos y no olvides valorar la respuesta.
Elsa
En mi canal encontrarás más ejemplos de búsqueda y búsqueda continua en los videos N° 16 - 23 y 25 entre otros.
Hola Elsa!
1º Gracias por contestar, es de agradecer que compartas tus conocimientos.
2º Estoy trabajando con una tabla (buscando en columna 2) y siguiendo tu explicación encuentro el primer dato pero el siguiente con Findnext me origina un error... ¿esto por qué? Te paso el código.
¿Cómo solucionarlo?
Por cierto tampoco me encuentra en la fila 1 el dato...esto porque?
El error en la línea que marcas se debe a que en el FindNExt utilizaste otro término en lugar de valorencontrado.
Te dejo la macro ajustada:
Private Sub CommandButton1_Click()
Dim fila As Object
Dim linea As Integer
valorbuscado = "corazza"
Set HojaDatos = ThisWorkbook.Sheets("MasterDATA")
Set Tabla = HojaDatos.ListObjects("TablaAccionesLanzadas")
Set valorencontrado = Tabla.DataBodyRange.Columns(2).Find(valorbuscado, Lookat:=xlPart)
If valorencontrado Is Nothing Then
MsgBox "Valor no encontrado"
Else
'guarda la primer fila encontrada para no repetir el bucle DO....Loop
filx = valorencontrado.Row
Do
MsgBox "Valor encontrado en la fila " & valorencontrado.Row
Set valorencontrado = Tabla.DataBodyRange.Columns(2).FindNext(valorencontrado)
Loop While Not valorencontrado Is Nothing 'And valorencontrado.Row <> filx
End If
End Sub
La expresión DataBodyRange solo devuelve el rango de datos, no los títulos de la tabla.
Sdos y te recuerdo la consulta anterior que aún sigue abierta.
Elsa