Este fórum está sendo desativado

[BetoSSena]

Bom dia,

Preciso de um ajuda dos amigos do Fórum.
Acredito que seja simples de resolver, porém, estou patinando nisso e não consigo achar uma solução pratica.

Preciso de uma MACRO que de fato substitua os valores da aba "Base" conforme dos da aba "Troca".
Tentei fazer com Do Until, mais não consegui fazer a macro percorrer a aba "troca".

Não poderia usar o procv, pois a estrutura atual do relatório não tem espaço para mais uma coluna de fato preciso substituir na própria linha localizada.

Obrigado pela ajuda.

[alexandrevba]

Boa tarde!!

Tente

Código: Selecionar todos

Sub AleVBA_5590()

    Dim myDataSheet As Worksheet
    Dim myReplaceSheet As Worksheet
    Dim myLastRow As Long
    Dim myRow As Long
    Dim myFind As String
    Dim myReplace As String

    Set myDataSheet = Sheets("base")

    Set myReplaceSheet = Sheets("Troca")

    myLastRow = myReplaceSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    For myRow = 2 To myLastRow

        myFind = myReplaceSheet.Cells(myRow, "A")
        myReplace = myReplaceSheet.Cells(myRow, "B")

        myDataSheet.Activate
        Range("A1").Select
        On Error Resume Next
        Columns("A:A").Replace What:=myFind, Replacement:=myReplace, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

        On Error GoTo 0
    Next myRow
    
    Application.ScreenUpdating = True

    
End Sub

Att