Excel Atualizando valores em planilhas

[Joseph2018]

 

Preciso de um código VBA para atualizar o campo Estoque_Atual, da Plan_1, copiando e colando  somente valores, dos valores correspondentes na Plan_2 do campo Novo_Estoque. (VER ARQUIVO ANEXO)

Resumindo:

1.       na Plan_2, copiar o conteúdo da célula E2 e colar especial valores, no campo correspondente na Plan_1 (célula C2);

2.       voltar a Plan_2, pular para a próxima célula (E3),  copiar o conteúdo da célula E3 e colar especial valores, no campo correspondente na Plan_1 (célula C4);

3.       voltar a Plan_2 e repetir o processo até a última célula preenchida da coluna E da Plan2.

Atualizar_Valores.xlsx

[Josy Lobo]

Tem necessidade de VBA?

 

Você poderia usar a PROCV. Dá uma olhada no arquivo.....

Atualizar_Valores PlayerMamuska.xlsx

[Joseph2018]

Obrigado pela resposta, mas necessito de um código VBA que faça o procedimento da forma que solicitei, pois ele será parte de um procedimento maior que já está pronto. Esclarecendo: a partir do momento que eu disponho das informações da Plan2, eu clico em um botão e uma série de procedimentos são executados e este de atualizar os valores da Plan1 eu não sei como fazer. Depois de atualizar os valores na Plan1, as informações da Plan2 serão apagadas, por isso preciso do procedimento, ok? Se puder ajudar, serei ficarei muito grato.

[CasaDoHardware]

Veja se isso ajuda

Sub Atualiza()

Dim W As Worksheet
Dim WS As Worksheet
Dim WLinha As Long
Dim WSUlinha As Long
Dim WSLINHA As Long

Set W = Sheets("Plan_A")
Set WS = Sheets("Plan_B")
    WSUlinha = W.Range("A" & Rows.Count).End(xlUp).Row
    WLinha = 2
    
Do While W.Cells(WLinha, 1).Value <> ""

    For WSLINHA = 2 To WSUlinha

        Select Case W.Cells(WLinha, 1).Value
            Case Is = WS.Cells(WSLINHA, 1).Value
                W.Cells(WLinha, 3).Value = WS.Cells(WSLINHA, 5).Value
        End Select

    Next

WLinha = WLinha + 1

Loop

End Sub

 

[Joseph2018]

Meu(minha) amigo (a), que respondeu a minha solicitação com o código VBA acima: você é um(a) gênio(a). Simplesmente ESPETACULAR. Era exatamente isso que eu precisava. Fiz as adaptações para as minhas planilhas reais e funcionou perfeitamente.Estou lendo e relendo o código e já estou conseguindo entender a lógica maravilhosa adotada. Jamais conseguiria fazer sozinho. Já está devidamente arquivado para futuras utilizações.Muitíssimo obrigado.