Planilha Excel VBA Relatório extrair intervalo datas

Planilha Excel VBA Relatório extrair intervalo datas

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), extrai um relatório para a mesma folha de planilha, com base no intervalo da datas, que estão nas células (F1 e F2).
Observe que na célula (F2) inseri códigos no Evento SelectionChange para abrir automaticamente a lista suspensa e também no Evento Change que ao escolher a segunda data Data_final, o procedimento change chama o macro para filtrar os dados para coluna (k) e realizar a soma da quantidade extraída.

Sub sbx_relatorio_por_data()
Dim wLin, i As Long
x = Cells(Rows.Count, “k”).End(xlUp).Row + 1
Range(Cells(8, “k”), Cells(x, “L”)).ClearContents
wLin = 8
For i = 1 To Cells(Rows.Count, “b”).End(xlUp).Row
If Cells(i, “b”).Value >= Cells(1, “f”) And Cells(i, “b”).Value <= Cells(2, “f”).Value Then
Cells(i, “b”).Resize(, 2).Copy Cells(wLin, “k”)
wLin = wLin + 1
tSoma = tSoma + Cells(i, “c”).Value
End If
Next i
Cells(wLin + 1, “k”).Value = “Total…:”
Cells(wLin + 1, “L”).Value = tSoma
End Sub
‘//=========’ LIMPAR REALIZAR TESTE.
Sub sbx_limpar_teste()
x = Cells(Rows.Count, “k”).End(xlUp).Row + 1
Range(Cells(8, “k”), Cells(x, “L”)).ClearContents
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.