Notifications
Clear all

Executar macro após atualização

11 Posts
3 Usuários
0 Reactions
1,887 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Prezados,

estou com uma dúvida, creio eu, relativamente simples para o nível de vocês.

Tenho a seguinte rotina:

Sub Atualizar()
'
' Atualizar Macro
'

'
Application.UseSystemSeparators = False
ActiveWorkbook.RefreshAll
Application.UseSystemSeparators = True
Range("H7").Select
Sheets("database").Select
End Sub

Eu gostaria que a etapa

Application.UseSystemSeparators = True
Range("H7").Select
Sheets("database").Select

só fosse executada após a atualização completa da planilha, ou seja, após a conclusão da linha ActiveWorkbook.RefreshAll.

Como sabem, a atualização da planilha leva um tempo.

Conto com a ajuda de vocês.

abs

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

 
Postado : 04/06/2012 8:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Tente algo como...

Sub Atualizar()
'
' Atualizar Macro
Application.UseSystemSeparators = False
ActiveWorkbook.RefreshAll

Call Depois
End Sub
Sub Depois_Ale_VBA()
Application.UseSystemSeparators = True
Range("H7").Select
Sheets("database").Select
End Sub

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

 
Postado : 04/06/2012 11:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre,
não deu certo.

segue um exemplo de qual é, exatamente, meu problema.

veja se pode me ajudar.

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

 
Postado : 04/06/2012 1:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Como é feita a "importação" do valor como padrão internacional?

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

 
Postado : 04/06/2012 2:27 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo,

O padrão internacional nada mais é o valor com "." no lugar de ","

assim: 345,567=345.567 e 2,01 é igual a 2.01

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

 
Postado : 04/06/2012 3:09 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

lostruler , leia as regras antes de postar, os arquivos devem ser compactados!!!

Quanto a sua dúvida vou deixar para quem entende de Excel e VBA de verdade, como o Reinaldo!!! :)

Seu anexo foi excluído, e compactado por mim!!
Att

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

 
Postado : 04/06/2012 5:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Eu sei o que é o padrão internacinal, e o que representa, assim como sei que em muitas importações, isso é um motivo de erro (formato de valores e datas)
tb que o excel, sempre ao receber uma informação "tenta" atualiza-la para os padroes configurados no sistema operacional.
tb uso da função 'UseSystemSeparators", não altera essas especificações, mas sim "liga/desliga" as atualizações automaticas. Então, desligando a atulaização automática, recebendo os valores, e depois "religando" a atualização, normalmente o excel tentará configurar os valores.
No seu exemplo, não ficou claro de que modo recebe essas informações,(query, vb ou copiar/colar) e se deseja sómente visualiza-las, ou mante-las conforme o recebido; por isso da minha pergunta de como é feita a importação.

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

 
Postado : 04/06/2012 5:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite, segue um anexo com a rotina que troca padrão BR "," por padrão Internacio ".".

att MarkoSoftware

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

 
Postado : 10/06/2012 3:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Prezados,

primeiramente, peço desculpas pela demora em responder a ajuda de você.

agradeço aos que se propuseram a ajudar. Felizmente, eu já consegui solucionar esse problema.

Abs.

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

 
Postado : 07/07/2012 10:35 am
(@gotola)
Posts: 1
New Member
 

Pode utilizar também:

Sub SuaSub()

Application.ScreenUpdating = False

**

* As Instruções de sua Macro
***
**

Application.ScreenUpdating = True

End Sub

 
Postado : 28/11/2015 10:09 am
(@mprudencio)
Posts: 2749
Famed Member
 

Boa noite!!

lostruler , leia as regras antes de postar, os arquivos devem ser compactados!!!

Quanto a sua dúvida vou deixar para quem entende de Excel e VBA de verdade, como o Reinaldo!!! :)

Seu anexo foi excluído, e compactado por mim!!
Att

Esse arquivo esta corrompido.

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/11/2015 10:23 am