Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por Abel
#66174
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?
Você não está autorizado a ver ou baixar esse anexo.
#66175
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
Abel agradeceu por isso

Obrigado pela colaboração :D :D

Boa tarde Pessoal, Preciso criar uma coluna na mi[…]

DESCOBRIR TAJA DE JUROS AO DIA

Boa tarde a todos, Estou com uma relaç&ati[…]

Configurar impressão

Tenho um botão na minha planilha Excel de i[…]

Criar gráfico de Pareto

Muitoo obrigado, deu certinho!! Vou dar uma estuda[…]

Planilha Lenta (Fórmula Matricial)

Caríssimo osvaldomp - 22 Set 2021 à[…]

Boa Tarde! Prezado Basole - 21 Set 2021 às[…]

Boa tarde, não estou conseguindo fazer a f&[…]