Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando

Ir para baixo 
2 participantes
AutorMensagem
aragoxx




Mensagens : 3
Data de inscrição : 17/11/2011

Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando Empty
MensagemAssunto: Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando   Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando EmptyQui Nov 17, 2011 4:35 pm

Galera preciso de ajuda de vcs .. pois adicionei o comando Application.ScreenUpdating = False... na minha macro para que a tela nao pisque ou atualize... mas nao to conseguindo faze com que o comando funcione... meu excel é o 2007


Sub lancamento()
'
' lancamento Macro

Application.ScreenUpdating = False
Range("D5").Select
Selection.Copy
Sheets("BANCO DADOS").Select
Range("C2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D11:F11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("F2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("C16:L16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("I2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D5").Select
Range("C16").Select
Selection.ClearContents
Application.ScreenUpdating = True



End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando Empty
MensagemAssunto: Re: Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando   Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando EmptyQui Nov 17, 2011 5:20 pm

Boa tarde!!!

Caso muito estranho ....poste sua planilha para podermos avaliar...

Com outras macros ScreemUpDate..funciona ?

Exclua salva e cole novamente salva ...

Att..
Ir para o topo Ir para baixo
aragoxx




Mensagens : 3
Data de inscrição : 17/11/2011

Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando Empty
MensagemAssunto: Re: Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando   Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando EmptyQui Nov 17, 2011 5:40 pm

Testei nessa macro e funciona perfeitamente.... mas so funciona se eu cola logo abaixo do ' Macro1 Macro... se eu der algum espaço ela nao funciona....

Sub Macro1()
'
' Macro1 Macro
Application.ScreenUpdating = False
Range("D6").Select
Selection.Copy
Sheets("Plan2").Select
Range("D5").Select
Selection.Insert Shift:=xlDown
Sheets("Plan1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Vo tenta refaze a macro toda anterior... e cola o comando dessa maneira.. valeu
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando Empty
MensagemAssunto: Re: Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando   Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando EmptySex Nov 18, 2011 1:05 am

Boa noite!!

Espero ter ajudado ..qualquer coisa é só retornar ao fórum...
..at++ bounce
Ir para o topo Ir para baixo
Conteúdo patrocinado





Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando Empty
MensagemAssunto: Re: Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando   Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando Empty

Ir para o topo Ir para baixo
 
Alguem pode me ajuda com o Application.ScreenUpdating = False.. nao ta funcionando
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Alguem me pode ajudar?
» [RESOLVIDO] Apostila VBA Alguém tem em pdf?
» ALGUEM SABE UM COD. PARA O QUE EU TO PRECISANDO???
» Excel não pode concluir esta tarefa
» nao estou conseguindo identificar o erro pode me ajudar

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: