Este fórum está sendo desativado

[CAMILOALVES]

FUNCIONAMENTO ATUAL: os dados inseridos nas células que compões as informações gerais migram automaticamente para planilha “pedencias” após click no botão “INSERIR”.
PEDIDO DE AJUDA: criar uma macro que vinculada ao botão “ATUALIZAR” possa transferir automaticamente os dados digitados no grupo atualizações de status (células: H10, H11, H12), para planilha “pedencias” respectivamente nas células I3, H3, J3.
OBSERVAÇÃO: estas atualizações devem estar vinculadas a variável “Nº PENDENCIA”, ou seja, quando digito o “Nº PENDENCIA“ na célula H9 que compõem o grupo de atualizações de dados, após clicar no botão “ATUALIZAR” ela ( “Nº PENDENCIA“ ) receberá os dados imputados nas respectivas células I3, H3, J3 localizadas na planilha “pedencias”

[mprudencio]

Experimente:

Código: Selecionar todos

Sub AtualizaPendencias()

Dim WSP As Worksheet
Dim WSIP As Worksheet
Dim WSPLinha As Long

'Cuidado com o nome das Planilhas ajuste conforme a sua realidade.
Set WSP = Sheets("Pedências") 
Set WSIP = Sheets("Inserir Pendencia")
    WSPLinha = 3

Do While WSP.Cells(WSPLinha, 1).Value <> ""

If WSP.Cells(WSPLinha, 1).Value = WSIP.Range("H9").Value Then

With WSP

.Cells(WSPLinha, 9).Value = WSIP.Range("H10").Value
.Cells(WSPLinha, 8).Value = WSIP.Range("H11").Value
.Cells(WSPLinha, 10).Value = WSIP.Range("H12").Value

End With

End If

WSPLinha = WSPLinha + 1

Loop

WSIP.Range("H9").Value = ""
WSIP.Range("H10").Value = ""
WSIP.Range("H11").Value = ""
WSIP.Range("H12").Value = ""


End Sub

[CAMILOALVES]

Prezado mprudencio 01 Set 2018 às 16:37

PERFEITO!!!

Muito Obrigado Pela Valiosa Ajuda.

DEUS lhe Pague.