Notifications
Clear all

Como deixar minha macro mais rápida?

6 Posts
3 Usuários
0 Reactions
2,204 Visualizações
(@wessley)
Posts: 55
Trusted Member
Topic starter
 

OLA. EU FIZ UMA MACRO QUE ATENDE AS MINHAS NECESSIDADES POREM ELE DEMORA MUITO PRA PROCESSAR OS DADOS. TERIA COMO FAZER UM JEITO QUE ELA PROCESSE MINHA MACRO NA MEMORIA DEPOIS SO ME MOSTRE O RESULTADO OU ALGUM JEITO QUE PODE DEIXA-LA MAIS RAPIDA SE ME AJUDAREM FICAREI MUITO GRATO. SEGUE EM ANEXO A PLANILHA E O ARQUIVO .txt QUE ELA BUSCA OS DADOS

 
Postado : 26/04/2015 2:14 pm
(@smile)
Posts: 33
Eminent Member
 

Nao entendi direito sua planilha, mas tente application.screen updating = false antes do codigo e application.screen updating = tue , após o código, isso evitará que as telas sejam manejadas durante o processamento.

 
Postado : 26/04/2015 3:20 pm
(@wessley)
Posts: 55
Trusted Member
Topic starter
 

Obrigado pela atenção vou tentar se melhorar marco como respondido obg novamente

 
Postado : 26/04/2015 3:53 pm
(@edcronos)
Posts: 1006
Noble Member
 

basicamente fazer oq o smile falou

Sub FILTRAR_NFS()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
...

mas o ideal seria refazer a macro Tirando os select
e pra ficar mais facil entender oq se está fazendo usar formulalocal se o excel for em portugues ou formua se for em ingles em vez de formula r1c1

    Sheets("DADOS").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(TRIM(MID(RC[-2],9,15))=""Estabelecimento"",TRIM(MID(R[1]C[-2],25,10)),"""")"

ficando assim

  Sheets("DADOS").Range("C4").FormulaLocal = _
        "=SE(ARRUMAR(EXT.TEXTO(A4;9;15))=""Estabelecimento"";ARRUMAR(EXT.TEXTO(A5;25;10));"""")"

desse jeito não fica pulando de tela e vc pode controlar oq a formula está fazendo e onde

se forem muitas formulas
se deve colocar elas em um array para então coloca na plan, isso evita que o excel faça checagem de dependência
ou vc pode usar apenas os valores da formula

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 26/04/2015 3:55 pm
(@wessley)
Posts: 55
Trusted Member
Topic starter
 

ok Edcronos vou tentar se melhorar vou marcar como respondido desde ja obrigado pela sua atençao

 
Postado : 26/04/2015 3:59 pm
(@wessley)
Posts: 55
Trusted Member
Topic starter
 

BOA NOITE.
DESDE JÁ OBRIGADO A TODOS QUE ME AJUDARAM A TIRAR AS MINHAS DUVIDAS E ME AJUDAREM A RESOLVER O MEU PROBLEMA! SÃO PESSOAS IGUAIS A VOCÊS QUE FAZER A DIFERENÇA PARA NOS QUE ESTAMOS INICIANDO NO MUNDO DO VBA A FICAR CADA DIA MELHOR E CONSEQUENTEMENTE AJUDAR AOS PRÓXIMOS QUE TIVEREM DUVIDAS ASSIM COMO VOCÊS ESTÃO FAZENDO POR MIM. OBRIGADO PELA ATENÇÃO E COLABORAÇÃO DE TODOS.

 
Postado : 26/04/2015 9:09 pm