Este fórum está sendo desativado

[Abel]

Boa tarde, gostaria de saber como posso estar localizando e substituindo dados da mesma linha que foi localizado?
Exemplo e explicação na planilha anexada. Por favor alguem poderia me ajduar?

[mucascosta]

Tente assim:

Código: Selecionar todos

Sub SetorAmbiente()
    Dim rng As Range, C As Range, pedAlt As Range
    With ThisWorkbook
    .Activate
    With .Sheets("FORM") 'Planilha origem
        Set rng = .Range("E6")
        For Each C In rng
            With Sheets("INVENTARIO") 'Planilha Destino

                Set pedAlt = .Columns(3).Find(C.Value, LookIn:=xlValues, LookAt:=xlWhole) 'Procura na coluna C de INVENTARIO

                If Not pedAlt Is Nothing Then '<-Se encontrar...copia de origem para destino
                   pedAlt.Offset(, 1).Value = C.Offset(8, 0).Value 'INVENTARIO D = FORM E14
                   pedAlt.Offset(, 2).Value = C.Offset(10, 0).Value 'INVENTARIO E = FORM E16
                End If

            End With

        Next

    End With
    End With
    MsgBox "FIM"
End Sub