Atualizar dados de uma tabela com base em outra
Enviado: 22 Jul 2016 às 16:50
por AdrianoVdP
Boa tarde,
Pessoal, mais uma vez preciso da ajuda de você.
Preciso de ajuda para desenvolver uma rotina que atualiza os dados da base de dados conforme dados selecionados, anexo esta o arquivo para melhor entender, após filtrado, quero digitar a data e a forma de pagamento, depois clicar no botão atualizar e a base de dados atualiza conforme os dados informados.
Antecipo agradecimentos.
Re: Atualizar dados de uma tabela com base em outra
Enviado: 22 Jul 2016 às 19:24
por AdrianoVdP
Acredito que estou no caminho, mais só falta um tapinha no loop para replicar a atualização para os de mais registro. Esse tapinha que esta difícil...rsrsr
Vejam no anexo
Re: Atualizar dados de uma tabela com base em outra
Enviado: 25 Jul 2016 às 09:16
por alexandrevba
Bom dia!!
Eu vou considerar que no seu modelo não tem o recurso tabela, apenas uma guia chamada Base com dados.
Código: Selecionar todosSub AleVBA_2620()
Dim OrSh As Worksheet, DsSh As Worksheet
Dim SrchIn As Range, SrchFor As Range
'Nome das guias
Set DsSh = Sheets("Base")
Set OrSh = Sheets("Filtros")
'Considerando as colunas(A eF) de cada guia como critério.
Set SrchIn = DsSh.Range("A1:A" & DsSh.Cells(Rows.Count, 12).End(xlUp).Row)
Set SrchFor = OrSh.Range("F9:F" & OrSh.Cells(Rows.Count, 12).End(xlUp).Row)
For Each ID In SrchFor
Fnd = Application.Match(ID, SrchIn, 0) 'Verifica se foi encontrado ou não.
If Not IsError(Fnd) Then
ID.Resize(1, 12).Copy DsSh.Cells(Fnd, 1) 'Atualiza.
End If
Next
MsgBox "Dados atualizados!", vbInformation
End Sub
Att
Atualizar dados de uma tabela com base em outra
Enviado: 25 Jul 2016 às 11:07
por AdrianoVdP
Bom dia,
Alexandre, perfeito
Muito obrigado pela ajuda.
