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.
Postado : 14/07/2017 5:09 pm