Boa noite galera
Estou com a seguinte problema.
Criei uma planilha base e la faço os lançamentos de pagamentos.
Como abaixo
CATEGORIA SUB. CATEG.- DATA PAGAMENTO REQUERENTE DESCRIÇÃO MÊS VALOR DATA DE PAG. N. CONTR.
TONINHO IMOVEIS 09/01/2017 ON-LINE TONINHO PILHA PALITO JANEIRO R$ 10,00 09/01/2017 509
SITIO COMBUSTIVEL 06/02/2017 CARTAO VARTÃO 10 LTS GASOLINA FEVEREIRO R$ 35,00 10/02/2017 510
E ai vou preenchendo.... já estou no mês de julho.... bom...
Criei uma planilha relatorio SITIO... onde tenho o mesmo modelo de planilha que a da base só que em branco.
Criei um modulo com o nome COMBUSTIVEL ABRIL e fiz a seguinte macro abaixo (FIZ UM MODULO PARA CADA MES). (além de estar gerando relatorios dos outros gastos)
COMBUSTIVEL - JAN. FEV. MAR........
RAÇÃO - JAN. FEV. MAR........
DIVERSOS...................................... enfim...
Sub COMBUSTIVELABRIL()
Sheets("RELATORIO SITIO").Range("A31:M5000").ClearContents
ultimalinha = Planilha1.Cells(Rows.Count, "a").End(xlUp).Row
ultimacoluna = Planilha1.Cells(15, Columns.Count).End(xlToLeft).Column
linha = 31
For X = 15 To ultimalinha
If Planilha1.Cells(X, 2) = "COMBUSTIVEL" And Planilha1.Cells(X, 12) = "ABRIL" Then
Planilha7.Cells(linha, 1) = Planilha1.Cells(X, 5)
Planilha7.Cells(linha, 2) = Planilha1.Cells(X, 3)
Planilha7.Cells(linha, 3) = Planilha1.Cells(X, 4)
Planilha7.Cells(linha, 4) = Planilha1.Cells(X, 6)
Planilha7.Cells(linha, 10) = Planilha1.Cells(X, 12)
Planilha7.Cells(linha, 11) = Planilha1.Cells(X, 14)
Planilha7.Cells(linha, 12) = Planilha1.Cells(X, 15)
Planilha7.Cells(linha, 13) = Planilha1.Cells(X, 16)
linha = linha + 1
End If
Next
End Sub
Ai coloquei um botao para Janeiro, outro para fevereiro, outro para março........ Isto para cada categoria do SITIO e quando clico no botão ele me da o relatorio de cada mês.
------------ Minha dúvida é, posso colocar UM BOTÃO DE ROTAÇÃO e clicando na seta para cima ele avança os meses e clicando na seta para baixo ele retrocede os meses...... ou seja cada clique que eu der ele vai gerar a macro que fiz em cada modulo, dispensando eu ter que colocar um botão para cada mes (MACRO).
Fico agradecido por quem puder me ajudar.
Mauriciowe,
Boa noite!
Anexe, aqui mesmo no fórum, compactado com . ZIP, seu arquivo.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel