Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro quando Abro du...
 
Notifications
Clear all

Erro quando Abro duas Planilhas

 
2024 - VBA & Macros
Post Recente por suporte100 8 anos atrás
10 Posts
4 Usuários
0 Reactions
1,683 Visualizações
RSS
 suporte100
(@suporte100)
Posts: 55
Trusted Member
Topic starter
 

Ola,
Estou desenvolvendo uma planilha em vba com uma tela de Login, Mas Toda vez que eu abro essa planilha e eu ja tenho outra aberta, ela da um erro e nao abre.
oque poderia ser?
Segue a planilha em anexo.
Usuario: Administrador
Senha: 4662

 
Postado : 08/06/2016 9:00 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

suporte100,

Boa Tarde!

Infelizmente, não tenho como lhe ajudar pois aqui no meu micro seu arquivo abriiu normalmente sem qualquer problema, mesmo tenho outras planilhas abertas.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/06/2016 9:25 am
 suporte100
(@suporte100)
Posts: 55
Trusted Member
Topic starter
 

Segue o print da tela,
primeiro eu abro uma planilha que nao tem ligação com essa e depois eu abro essa que t enviei e clico em entrar ai aparece esse erro.

 
Postado : 08/06/2016 9:38 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

suporte100,

Com disse, aqui não ocorreu esse erro. Entretanto, tente fazer o seguinte antes dessa linha:

Set WU = Sheets (Usuários")

Selecionar o arquivo que você quer:

Wirkbooks ("Teste.xlsm").Activate

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/06/2016 11:02 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Desculpe. Código Correto:

Workbooks ("Teste.xlsm").Activate

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/06/2016 11:02 am
 suporte100
(@suporte100)
Posts: 55
Trusted Member
Topic starter
 

Coloquei, continua o erro.

 
Postado : 08/06/2016 11:38 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimentou ?

Set WU = ThisWorkbook.Sheets("Usuarios")

Osvaldo

 
Postado : 08/06/2016 2:53 pm
 suporte100
(@suporte100)
Posts: 55
Trusted Member
Topic starter
 

Perfeito, Funcionou muito bem.
Só mais uma duvida, Existe outro código para fechar a planilha alem deste "Application.Quit" porque se eu estiver com outras planilhas aberta e clicar no botar fechar ele fecha todas as planilha, mas eu queria fechar apenas essa. Existe outro código?

 
Postado : 09/06/2016 9:48 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Baseado na ideia do poste anterior tente!

ThisWorkbook.Close

Att

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

 
Postado : 09/06/2016 9:50 am
 suporte100
(@suporte100)
Posts: 55
Trusted Member
Topic starter
 

Muito Obrigado a Todos.
Funcionou 100%.
Obrigado.

 
Postado : 09/06/2016 10:24 am
Forum Jump:
  Tópico Anterior
Próximo Tópico