Notifications
Clear all

Tela Excel Piscando

7 Posts
4 Usuários
0 Reactions
2,415 Visualizações
(@edilsonjc)
Posts: 39
Eminent 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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/02/2016 11:55 am
(@edilsonjc)
Posts: 39
Eminent 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: 859
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

Osvaldo

 
Postado : 28/02/2016 1:35 pm
(@edilsonjc)
Posts: 39
Eminent 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: 859
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.

Osvaldo

 
Postado : 28/02/2016 2:22 pm
(@mprudencio)
Posts: 2749
Famed 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.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 28/02/2016 2:41 pm