Saltar al contenido

Recommended Posts

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

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

@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

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

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 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Crear una cuenta o conéctate para comentar

Necesitas ser usuario para poder dejar un comentario

Crear una cuenta

Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!

Registrar una nueva cuenta

Conectarse

¿Ya tienes una cuenta? Conéctate aquí.

Conéctate ahora

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.