Este fórum está sendo desativado

[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.

[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

[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 todos

Sub 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

[AdrianoVdP]

Bom dia,

Alexandre, perfeito

Muito obrigado pela ajuda.