Planilha Excel VBA extrair e somar valores diarios
Planilha Excel VBA extrair e somar valores diários
Este Macro do aplicativo ms Excel vba com duas instruções for Next aninhada, verifica data, e o critério, ‘RECEITA’ ou ‘DESPESA’ extrai os valores para uma outra planilha (Relatórios) e faz a operação matemática retornando o Saldo dessa analise.
Observe que no macro existe um duas Instruções For Aninhada, o Primeiro Localiza a Primeira células e O outro sai em busca dos dados em outra folha de planilha comparando usando a condição SE, quando encontra os valores que atenda a condição, pula para a próxima comparação, e assim sucessivamente vão retornando os valores até o fim da operação.
‘//=================’
‘pode demorar dependendo do seu computador porque o macro ira fazer milhoes de interações.
‘(*******)
Se seu computador não tiver um bom processador vai demorar é uma planilha muito grande veja
NA PLANIHA LANÇAMENTOS. é uma situação real onde usar formulas pode travar o computador.
//=================’
Sub sbx_verifica_criterio_datas()
Dim wLin, i As Long
Dim dSoma, rSoma As Double
For wLin = 5 To Plan2.Cells(Rows.Count, “c”).End(xlUp).Row
For i = 2 To Plan1.Cells(Rows.Count, “h”).End(xlUp).Row
‘Cells(i, “H”).Select
‘//se contiver a palavra RECEITA NA CÉLULA (FUNCAO InStr)
If InStr(Plan1.Cells(i, “h”), “RECEITA”) > 0 And _
Plan1.Cells(i, “J”) = Plan2.Cells(wLin, “c”) Then
rSoma = rSoma + Plan1.Cells(i, “k”).Value
ElseIf InStr(Plan1.Cells(i, “h”), “DESPESA”) > 0 And _
Plan1.Cells(i, “J”) = Plan2.Cells(wLin, “c”) Then
dSoma = dSoma + Plan1.Cells(i, “k”).Value
End If
Next i
Plan2.Cells(wLin, “f”).Value = rSoma
Plan2.Cells(wLin, “g”).Value = dSoma
Plan2.Cells(wLin, “h”).Value = CDbl(rSoma – dSoma)
rSoma = 0
dSoma = 0
Next wLin
End Sub
Sub sbx_limpar_teste()
x = Plan2.Cells(Rows.Count, “c”).End(xlUp).Row + 1
Range(Cells(5, “f”), Cells(x, “h”)).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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
| Download Planilha Excel VBA extrair e somar valores diário |
| <<Link Download: Verifique também a Caixa de Itens Excluídos >> |
.
Download Planilha Excel VBA extrair e somar valores diários
