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
Calculo - Prazo de Entrega

Veja se o anexo ajuda https://i.imgur.com/P13BYJI[…]

Estevaoba É isso mesmo, perfeito amigo, sa[…]

Prezados, Espero que possam me ajudar. Eu tenho u[…]

... e no final dela tem uma que salva o arquivo.[…]

Olá, Estou com dificuldade em montar uma […]

Bloqueio para editar célula

Coloquei na busca do Sábio Google ~~~&g[…]

Fala galera, estou precisando de uma luz em um dos[…]

Boa tarde amigos Tenho uma planilha nela s&atild[…]