Notifications
Clear all

Tela Excel Piscando

7 Posts
4 Usuários
0 Reactions
2,394 Visualizações
(@edilsonjc)
Posts: 39
Trusted Member
Topic starter
 

Olá a todos.
Estou com problemas em atualização automática de minha macro. Mesmo usando Application.ScreenUpdating a tela continua a piscar.
Estou usando o código abaixo:

Sub MinhaMacro()
Application.ScreenUpdating = False
Sheets("Plan1").Activate 'já tentei Select
'codigo ...
Sheets("Plan2").Activate 
 Application.ScreenUpdating = True
End Sub

Acredito que seja o Activate e ou Select que está causando o pisca pisca da tela.

Alguma sugestão.

 
Postado : 28/02/2016 11:08 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde

Outras possibidades;

Desabilitar cálculos ( Se não for necessário atualizar os cáLculos)

Desabilita

Application.Calculation = xlCalculationManual

Habilita

Application.Calculation = xlCalculationAutomatic

Desabilitar Eventos:

Application.EnableEvents = False

Application.EnableEvents = True

[]S

 
Postado : 28/02/2016 11:55 am
(@edilsonjc)
Posts: 39
Trusted Member
Topic starter
 

Não rolou.
Acredito ainda que seja o ".Select", se eu tirar não pisca, mais também não atualiza a planilha.Os dados estão numa Aba e os Gráficos em outra. Ele precisa atualizar a Plan1 e ficar mostrando apenas a Plan2 que contém os gráficos.

 
Postado : 28/02/2016 12:54 pm
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente

Sub MinhaMacroV2()
 
 With Sheets("Plan1")
  .Range("A1").Value = "jacaré"
  .Range("B2").Value = "=SUM(D2:F2)"
 End With
 
 With Sheets("Plan2")
  .Range("G10").Value = Sheets("Plan1").Range("A1").Value
  .Range("B20") = "o molusco tá sitiado!"
 End With

End Sub
 
Postado : 28/02/2016 1:35 pm
(@edilsonjc)
Posts: 39
Trusted Member
Topic starter
 

Não deu certo.
preciso atualizar o range
e.g.
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False

 
Postado : 28/02/2016 2:00 pm
(@osvaldomp)
Posts: 857
Prominent Member
 

Não deu certo.

Não deu certo o que? O que exatamente você fez? O exemplo que coloquei foi para demonstrar que é possível efetuar alterações em uma planilha sem ativá-la e com isso evitar o "pisca-pisca" na tela.

A utilização da estrutura With...End With é uma possibilidade para substituir o seu "Select / Activate".

Se não conseguir sugiro que você disponibilize uma amostra do seu arquivo.

 
Postado : 28/02/2016 2:22 pm
(@mprudencio)
Posts: 0
New Member
 

Se eu entendi vc quer fazer um gráfico que atualize sozinho conforme vc insere dados na origem dos dados, se for isso utilize um range dinâmico pra fazer a macro

Se não conseguir disponibilize seu arquivo assim fica mais fácil ajudar já que quem for ajudar pode ver o problema de perto.

 
Postado : 28/02/2016 2:41 pm