ayuda. macro excel. que me compare y reemplace

[byzard]

saludos...
he estado buscando por la red y no encontrado mucha info util, lo que necesito al parecer no es muy complicado. Aca detallo el cuento

B ----- C
jose maria
maria ana
juan silvia
pedro jose

necesito comprar si el dato B1 es igual al C1, C2, etc.... y si en Cx esta el dato de B1, que el dato de Cx me lo reemplaze por algun valor, por ej "rep", y despues pregunte si B2 esta en toda la columna C y me lo cambia por rep si es que esta. Es como un Buscar y reemplazar, pero de forma mas automatica, digamos que tengo mas de 1000 registros, y me demoro una eternidad.
Y como resultado quedaria asi:

B ------ C
rep rep
rep ana
juan silvia
pedro rep

o asi:


B ----- C
jose rep
maria ana
juan silvia
pedro rep

asi que help me

se agradece la ayuda.

nos vemos

[Crashman]

si me mandas tu archivo te podre ayudar mas [email protected]

[chema]

byzard
buenas soy chema te mando una macro que qreo te puede servir solo tienes que copiarla y crear un boton para accionarla ,


Sub busqueda()
On Error GoTo y
Dim Mensaje, Título, ValorPred, MiBUSCA, Mireemp
Mensaje = "PALABRA A BUSCAR"
Título = "BUSQUEDA"
MiBUSCA = InputBox(Mensaje, Título)
Mensaje = "PALABRA PARA REEMPLAZAR"
Título = "REEMPLAZAR"
Mireemp = InputBox(Mensaje, Título)
Do
Cells.Find(What:=MiBUSCA, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Replace What:=MiBUSCA, Replacement:=Mireemp, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Loop
y:
End Sub



espero que sea lo que buscas un saludo

[byzard]

Iniciado por chema

byzard
buenas soy chema te mando una macro que qreo te puede servir solo tienes que copiarla y crear un boton para accionarla ,


Sub busqueda()
On Error GoTo y
Dim Mensaje, Título, ValorPred, MiBUSCA, Mireemp
Mensaje = "PALABRA A BUSCAR"
Título = "BUSQUEDA"
MiBUSCA = InputBox(Mensaje, Título)
Mensaje = "PALABRA PARA REEMPLAZAR"
Título = "REEMPLAZAR"
Mireemp = InputBox(Mensaje, Título)
Do
Cells.Find(What:=MiBUSCA, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Replace What:=MiBUSCA, Replacement:=Mireemp, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Loop
y:
End Sub



espero que sea lo que buscas un saludo

es posible colocar un rango? por digamos que quiero reemplazar las celdas vacias por 0, pero si uno solamente onda una cosa de 4x4, este codigo recorre todo las celdas. se podria hacer que recorra de x a y, y de eso me haga el reemplazo.