Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Não acessa aba sem ...
 
Notifications
Clear all

Não acessa aba sem estar selecionada

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
852 Visualizações
RSS
 HFava
(@hfava)
Posts: 43
Eminent Member
Topic starter
 

Pessoal, boa tarde,

Criei essa macro segundo indicações, para rodar sem dar o select na aba. Pois assim economiza memoria.
Eu não posso mandar o arquivo original, mas o problema que tenho é nessa função anexa: o que acontece é que se eu ativar a macro da aba Plan3, ela trava em erro de Range.

Vocês tem alguma resposta? Valeu

Abrcs
HFava

 
Postado : 18/04/2017 11:09 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Troque:

XMLdb.Range(Cells(2, 1), Cells(iUltLinha1, 1)).Copy

Por:

XMLdb.Range(XMLdb.Cells(2, 1), XMLdb.Cells(iUltLinha1, 1)).Copy

E uma sugestão, não use property em módulos que não são de classe... funciona, mas não precisa... nomeie as planilhas no Explorador de Projetos... É bem melhor para o que vc está fazendo ...

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

 
Postado : 18/04/2017 11:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico