Se eu entendi bem vc quer dar baixa nas contas...
Entao vc vai precisar de um campo para digitar as datas de pagamento e apos excluir de uma tabela e lançar na outra...
O caminho seria fazer um loop onde ele pesquisaria um determinado campo e se for verdadeiro faz a copia do registro para a outra tabela e apos exclui da primeira.....
De forma simples tudo o que disse acima esse codigo faz...
Tente adapta-lo no acess, ele foi feito para excel
Sub Baixa()
Application.ScreenUpdating = False
Sheets("Contas a Pagar").Select
Range("H7").Select
Do While ActiveCell <> ""
If ActiveCell.Value = "PAGO" Then
Intersect(Selection.EntireRow, _
Range("A:G")).Select
Selection.Copy
Sheets("Pagos").Select
Range("A1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
With Selection
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
Range("A6").Select
Sheets("Contas a Pagar").Select
ActiveCell.EntireRow.Delete
ActiveCell.Offset(0, 7).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("A7").Select
ActiveWorkbook.RefreshAll
MsgBox "Dados Atualizados Com Sucesso", vbOKOnly, "Atualizando Dados..."
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 13/01/2016 8:56 am