Planilha Excel VBA Relatório contas a pagas e a pagar

Planilha Excel VBA cursor 15 formata linha Coluna célula ativa2

Planilha Excel VBA Relatório contas a pagas e a pagar

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), extrai relatório com base em critério usando o evento change chamamos o macro para extrair o relatório e uma soma é inserida no final de cada extração.
Planilha foi gentilmente enviada para todos pelo nosso Amigo Aluno Assinante e membro Antonio Lélio.
Parabéns pela atitude. Bom trabalho.
Fique com Deus, Expedito Marcondes.

Sub sbx_extrair_relatorio()
Dim vLin As Long, wLin As Long ‘wLin (Planilha Plan7)
wLin = 4
x = Plan7.Cells(Rows.Count, “a”).End(xlUp).Row ‘limpar para o novos valores
Plan7.Range(Cells(4, “a”), Cells(x + 3, “h”)).ClearContents ‘aumentei 3 para apagar também o total
With Plan5
For vLin = 2 To .Range(“H” & Rows.Count).End(xlUp).Row
If .Range(“H” & vLin) = LCase(Plan7.Range(“A2”)) Then
Plan7.Range(“A” & wLin) = .Range(“A” & vLin)
Plan7.Range(“B” & wLin) = .Range(“B” & vLin)
Plan7.Range(“C” & wLin) = .Range(“C” & vLin)
Plan7.Range(“D” & wLin) = .Range(“D” & vLin)
Plan7.Range(“E” & wLin) = .Range(“E” & vLin)
Plan7.Range(“F” & wLin) = .Range(“F” & vLin)
Plan7.Range(“G” & wLin) = .Range(“G” & vLin)
Plan7.Range(“H” & wLin) = .Range(“H” & vLin)
tsoma = tsoma + Plan7.Cells(wLin, “C”).Value
wLin = wLin + 1
End If
Next vLin
Plan7.Cells(wLin + 1, “c”).Value = tsoma
Plan7.Cells(wLin + 1, “b”).Value = “Total…: “
Plan7.Cells(2, “c”).Value = tsoma
Plan7.Cells(1, “c”).Value = “Total…:” & Plan7.Cells(2, 1).Value
End With

End Sub
//========’

‘Evento change da folha planilha é executado ao escrever, alterar dados, determinamos a célula (A2)
para chamar o macro acima e extrair o relatório com base no critério escolhido, Pago / a Pagar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = “$A$2” And Target.Count = 1 Then
sbx_extrair_relatorio
MsgBox (“Relatório critério [ “) & Plan7.Cells(2, 1).Value & ” ] extaidos com sucesso!” & _
vbCrLf & “Valor…:R$ ” & Format(Plan7.Cells(Rows.Count, “c”).End(xlUp).Rows, “R$ ##,###,##0.00”), vbInformation, “Escola Saberexcel VBA Estudos®”
End If
End Sub
//========’
‘Evento selection change ao selecionar a célula (A2) – sendkeys (down) abre automaticamente a lista suspensa.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = “$A$2” And Target.Count = 1 Then
SendKeys “%{down}”
End If
End Sub