Notifications
Clear all

Botao para gerar macro

2 Posts
2 Usuários
0 Reactions
559 Visualizações
(@mauriciowe)
Posts: 1
New Member
Topic starter
 

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
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

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

 
Postado : 14/07/2017 5:38 pm