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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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