eliminacion de palabra

07/11/2006 - 16:05 por Black Mamba | Informe spam
Hola, me quedo duda sobre un comentario que hicieron hace tiempo sobre
eliminar solamente una palabra de una celda. Yo tengo ese problema y no
se si me puedan ayudar, tengo una lista que contiene 2 palabras, la
primera es diferente en todos los casos y lasegunda es igual en toda la
columna, se podria quitar esa palabra comun a toda la lista?

Vi una resouesta parecida a lo que necesito:

Sub CheckRange()
Set miRango = ActiveWorkbook.Worksheets(1).Range("A:A")
For Each cell In miRango
If BuscarPalabras(cell.Value) > 0 Then cell.Value = ""
Next
End Sub


Function BuscarPalabras(str1)
Dim regEx
Set regEx = CreateObject("vbscript.regexp")
regEx.Global = True
regEx.Pattern = "Madrid|Roma|Berlin" '< Aqui va la lista de
palabras
regEx.IgnoreCase = True
Set myMatches = regEx.Execute(str1)
For Each Match In myMatches
i = i + 1
Next
BuscarPalabras = i
End Function


Pero no quiero que se elimine todo el contenido de la celda, se podra?
Muchas gracias de antemano, espero me puedan responder.
Saludos!

Preguntas similare

Leer las respuestas

#1 Manuel CS
07/11/2006 - 16:53 | Informe spam
en un rango yo coloque varias celdas con dos palabras, una de ellas comun, y
despues
active reemplazar, en buscar colorque la palabra comun y en reemplazar no
coloque nada o un espacio, esto elimino la palabra comun en todas las celdas

Suerte
Respuesta Responder a este mensaje
#2 Black Mamba
07/11/2006 - 17:10 | Informe spam
Ah! rayos como no se me ocurrio antes, estaba tan traumada que no
pense... me funciono de maravilla Manuel muchas gracias, espero poder
colaborar cuando ustedes lo necesiten.
Besos!!!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida