Macro

R10SIQUEIRA · 28 de janeiro de 2014

Boa Tarde

Tenho essa planilha de fornecedores e a macro funciona até o mês de dezembro de 2013 quando lancei janeiro a macro não está puxando as despesas do Mês de janeiro, se alguém puder adicionar a macro para os meses do ano de 2014 agradeço.

http://www.sendspace.com/file/ibhdbj

R10 Siqueira

edcronos · 29 de janeiro de 2014

Afinal qual macro não funciona?

tem muitas, e parece que você usou o gravador de macro,

creio que a maioria não vai querer olhar todas para ver o que cada uma faz, e definir qual não faz o que você quer para modificar.

sou principiante nisso de macro e não uso proficionalmente, mas creio que a maioria poderia ser simplificada, e muitas daria para colocar em uma só com poucas modificações.

R10SIQUEIRA · 29 de janeiro de 2014

Obrigado pela resposta.

essa macro copia as despesas lançadas na planilha para os respectivos meses de vencimento, até dezembro de 2013 está puxando as despesa corretamente a partir de janeiro não está puxando as despesas de janeiro e sim as despesas de dezembro, não sei se fui claro em cada mes tem uma macro.

edcronos · 29 de janeiro de 2014

Sub dezembro()

    Sheets("VISA CRÉDITO").Select
    ActiveWindow.ScrollColumn = 3
    ActiveSheet.Range("$A$3:$AA$51").AutoFilter Field:=15, Criteria1:="<>"
    Columns("G:N").Select
    Range("N1").Activate
    Selection.EntireColumn.Hidden = True

    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Mês").Select
    Range("C2").Select
    ActiveSheet.Paste
    Sheets("VISA CRÉDITO").Select
    ActiveSheet.Range("$A$3:$AA$51").AutoFilter Field:=15
    Columns("F:O").Select
    Selection.EntireColumn.Hidden = False
    Range("D5").Select
    Sheets("Mês").Select
    Range("B11").Select
End Sub

Sub janeiro()
'
' janeiro Macro
'

Range("D159").Select

aqui você está chamando a propria macro >>>>Application.Run "'Relatório Mensal de Despesas - Concluído.xlsm'!janeiro"

    Range("P159").Select
    ActiveSheet.Range("$A$3:$AA$146").AutoFilter Field:=16
    Columns("G:P").Select
    Selection.EntireColumn.Hidden = False
    Range("J88").Select


End Sub

ainda sou inesperiente nisso, mas repare que essas duas são bem diferentes.

de principio junte as macros com função parecida no mesmo modulo, exclua os excedentes e linhas de comandos inuteis criados pelo gravador de macro para fica mais fácil analisar,

até mesmo para você poder ve onde está errando e acertando.

Ps. Acoselho que você fale o que quer que a macro faça na planilha para que o pessoal experiente possa fazer, provavelmente vai ser mas rápido.

R10SIQUEIRA · 30 de janeiro de 2014

Boa Tarde

Alguém poderia tentar colocar as macros 2014 para funcionar?

Eu não estou conseguindo,

Obrigado

Brun00_ · 31 de janeiro de 2014

Pronto amigo fiz até dezembro de 2014 pra você, mas avisando, sua pasta de trabalho ta uma bagunça, deu uma limpada em um monte de modulos vazios e renomeei os que fiz para você entender melhor.....

Baixa aih o anexo.

Relatório Mensal de Despesas - Concluído.zip