Jump to content

fatima_saru

Members
  • Content Count

    1
  • Joined

  • Last visited

About fatima_saru

  • Rank
    Newbie

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
×
×
  • Create New...

Important Information

Privacy Policy