Buscar y eliminar texto

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias.

El texto que buscas y quieres borrar es el contenido completo de la celda?,
o puede ser parte del texto de la celda?

Es decir, si pones como texto a buscar y borrar "campo", que quieres hacer?
que las celdas que tengan como texto completo "campo" se borren?, de forma
que la celda "alcampo" se quede igual y la celda "campo" se quede vacía? o

quieres que la celda "campo" se quede vacía y la celda "alcampo" se
convierta en "al", y la celda "elcampoverde" se convierta en "elverde"?

SALUDOS.
julian-Valencia-España

http://www.access-facil.tk
http://www.access-sin-codigo.tk

"LOLO" escribió en el mensaje
news:3a1501c4c4e9$92aaaee0$
Hola a todos ,necesito hacer por código,que me busque un
texto en cualquier hoja , Rango A2 : K40 y si existe lo
borre .
Saludos y muchas gracias

Puedes acomodar este código a lo que necesites:

Sub RemplazarPalabra()
Dim Palabra1 As String
Dim Fila As Long
Palabra1 = Trim(InputBox("INGRESE LA PALABRA QUE BUSCA"))
For Fila = 1 To Sheets.Count
Sheets(Fila).Activate
Cells.Replace What:=Palabra1, Replacement:="", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
Next Fila
End Sub


Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"LOLO" escribió en el mensaje
news:3a1501c4c4e9$92aaaee0$
Hola a todos ,necesito hacer por código,que me busque un
texto en cualquier hoja , Rango A2 : K40 y si existe lo
borre .
Saludos y muchas gracias




Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.786 / Virus Database: 532 - Release Date: 29/10/2004

OK Luis, muchas gracias eso es lo que necesitaba.
Um saludo Lolo

Puedes acomodar este código a lo que necesites:

Sub RemplazarPalabra()
Dim Palabra1 As String
Dim Fila As Long
Palabra1 = Trim(InputBox("INGRESE LA PALABRA QUE BUSCA"))
For Fila = 1 To Sheets.Count
Sheets(Fila).Activate
Cells.Replace What:=Palabra1, Replacement:="",

LookAt:=xlPart,

SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
Next Fila
End Sub


Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"LOLO" escribió en

el mensaje

news:3a1501c4c4e9$92aaaee0$
Hola a todos ,necesito hacer por código,que me busque un
texto en cualquier hoja , Rango A2 : K40 y si existe lo
borre .
Saludos y muchas gracias




Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.786 / Virus Database: 532 - Release Date:

29/10/2004

.