Macro encontrar parte de texto y reemplazar celda entera
Os pido ayuda acerca de como elaborar una macro que me permita encontrar parte de una cadena de texto en una celda de un rango determinado (por ejemplo a2:a10000) y que se reemplace la celda entera que contenga dicha cadena de texto por una palabra definida.
Por ejemplo, buscar celdas que contengan dentro del texto los caracteres "elec", y reemplazar la celda entera por la palabra "compañía electrica".
¿Es posible?
1 respuesta
Respuesta de Sebas Torres
1
Con la siguiente macro, seleccionas un rango, ingresas un dato en el Imputbox y las celdas que contengan ese dato se remplazara la celda por "COMPAÑIA ELECTRICA" saludos.
Sub ReemplazaPalabras()
Dim Celda As Range
Dim Palabra As String
Palabra = InputBox("Que palabra desea buscar?", "INGRESE UN TEXTO")
For Each Celda In Selection
posicion = InStr(Celda.Value, Palabra)
If posicion > 0 Then
xcel = Celda.Address
Range(xcel).Value = "COMPAÑIA ELECTRICA"
End If
Next Celda
End Sub
Si deseas darle un rango fijo como espeficas en tu pregunta, solo cambia
For Each Celda In Selection
Por
For Each Celda In Range("A2:A10000")
De parte mía y de la persona que hizo la pregunta muchas gracias - Marcelo Obregón