Se você está pagando muitos empréstimos e contas, este artigo é muito importante para você, pois você aprenderá a acompanhar facilmente todos os pagamentos de suas contas no Excel. Você pode definir lembretes, pagamentos futuros sem dificuldade.
Faça o download
Se você quiser start para usar o software o mais rápido possível, então você pode:
Caso contrário, se você quiser DIY, pode ler o conteúdo abaixo.
Vamos preparar a GUI
Conforme mostrado na imagem, prepare a planilha de entrada e banco de dados com os campos, cabeçalhos e botões necessários.
Vamos torná-lo funcional
Copie o script para um novo módulo e anexe a macro aos botões conforme mostrado nesta tabela
| Nome | Anexar ao botão |
| Adicionar_dívida | Adicionar |
| Excluir_Dívida | Eliminar |
Como funciona?
A macro “Add_Debt” identifica a última linha utilizada na planilha “Database”. Em seguida, identifica o vencimento mensal da dívida e adiciona na planilha “Banco de dados”. A macro “Debt_dropDown” identifica nomes únicos de dívidas e os adiciona como drop-down na planilha Entry. Antes de executar a macro “Delete_Debt”, o usuário deve selecionar um nome de dívida no menu suspenso. Essa macro identifica todas as linhas correspondentes da planilha “Banco de dados” e as exclui.
Sub Add_Debt() Dim v_name As String Dim v_amount As Variant Dim v_end As Date Dim v_start As Date Dim lr As Long v_start = CDate(entry.Range("B8").Value & "/" & Format(Now, "mm/yyyy")) Debug.Print v_start v_end = CDate(entry.Range("B8").Value & "/" & Format(entry.Range("B14").Value, "mm/aaaa")) Do While v_start < v_end lr = db.Range("A" & Rows.Count).End(xlUp).Row + 1 db.Range("A" & lr).Value = entry.Range("B5").Value db .Range("B" & lr).Value = DateAdd("m", 1, v_start) db.Range("C" & lr).Value = entry.Range("B11").Value db.Range("D" & lr).Value = "Não pago" Debug.Print DateAdd("m", 1, v_start) v_start = DateAdd("m", 1, v_start) Loop Debug.Print v_end End Sub Sub Debt_dropDown() Application.DisplayAlerts = False On Error Resume Next Sheets("Temp").Delete Sheets.Add.Name = "Temp" On Error GoTo 0 Sheets("Database"). Select Columns("A:A").Selecione Selection.Copy Sheets("Temp").Selecione ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range("$A$1:$A$1000").RemoveDuplicates Columns:=1 , Header:=xlYes Range("A2").Select Dim lr As Long Dim r As Long lr = Sheets("Temp").Range("A" & Rows.Count).End(xlUp).Row Dim prodlist As String For r = 2 To lr If prodlist = "" Then prodlist = Sheets("Temp").Range("A" & r).Value Else prodlist = prodlist & "," & Sheets("Temp").Range( "A" & r).Value End If Next r With entry.Range("G5:J5").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist . IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With With entry.Range("L5:P5").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With On Error Resume Next Sheets("Temp").Delete Sheets.Add.Name = "Temp" On Error GoTo 0 End Sub Sub Delete_Debt() Dim lr As Long lr = db .Range("A" & Rows.Count).End(xlUp).Row For r = 2 To lr If db.Range("A" & r).Value = entry.Range("G5").Value Then db .Range("A" & r).EntireRow.ClearContents End If Next r db.Columns("A:D").Select ActiveWorkbook.Worksheets("Database").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Database" ).Sort.SortFields.Add Key:=Range("A2:A1000" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Database").Sort .SetRange Range(" A1:D1000") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Ajuste a macro
Você pode ajustar a macro para atualizar o status de cada dívida, mostrar dívidas futuras ou mostrar dívidas encerradas. Se esta pasta de trabalho habilitada para macro estiver corrompida, para recuperar Excel xlsm, você pode tentar copiar o código para uma nova pasta de trabalho. Em seguida, recrie as planilhas e salve a nova pasta de trabalho como pasta de trabalho habilitada para macro.
Introdução do autor:
Nick Vipond é um especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo palavra corrompida e produtos de software de recuperação do Outlook. Para mais informações visite www.datanumen.com.
Deixe um comentário