Encontrar y Reemplazar datos

[fatima_saru]

Buenas tardes a todos!

 

Tengo una base de datos de la cual necesito que mi macro busque una palabra y la reemplaza por otra, mi codigo lo hace pero el proble es que si es una palabra compuesta no modifica tod el texto es decir si tengo en mi tabla lo siguiente:

1.-velo

2.-velo 1

3.-velo 2

4.-Velo

5.-VeLo

 

y lo quiero cambiar por la palabra VELO

 

solo se modifican la 1,4 y 5

 

les envio mi codigo espero puedan orientarme

 

Sub Reemplazar()
Dim Tex As Variant, Car As Variant, Lar As Integer
Application.ScreenUpdating = False
On Error Resume Next
Set a = Sheets("Hoja1")
uf = Range("E" & Rows.Count).End(xlUp).Row
For i = 1 To uf
a.Range("A" & i) = Replace(a.Range("E" & i), "*", vNullString)
Next i
Application.ScreenUpdating = True

End Sub

 

[Gerson Pineda]

Range("A:A").Replace "velo", "VELO", , , 0

Hola

Sin necesidad de un bucle, usa ésta línea de codigo

Pd: lee la yuda de la herramienta o comando REPLACE 

 

Saludos 

[isidrod]

@Gerson Pineda yo lo remplazo así  grabando la macros

Sub REMPLAZAR()

      
       With Range("A2:A" & Range("a65536").End(xlUp).Row)
     .Replace What:="velo", Replacement:="VELO", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   End With
End Sub

y también me funciono pero tu código esta mas corto  no se me había visto gracias por compartir pero también tomare ese ejemplo como mucho aquí que e aprendido un poquito

mil gracias

[Gerson Pineda]

Hola isidro

Solo así, se puede ir aprendiendo, con la práctica... 

Pero en este caso no es necesario, el With end With [solo si utilizaras más de una vez un rango u objeto] , ni obtener la última fila con datos, ya que Replace es optimizada para tal proceso

 

Saludos 

[isidrod]

gracias Gerson por tu comentario