Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ERRO VB
 
Notifications
Clear all

ERRO VB

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,543 Visualizações
RSS
 rogbrand
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

Tenho o seguinte comando em "EstaPasta_de_trabalho"

Dim lis As Date
Private Sub Workbook_Open()
lis = (Time + TimeSerial(0, 0, 1))
ActiveWorkbook.Worksheets(1).Range("A1").Value = Format(Now, "hh:mm:ss")
Relogio
End Sub

Sub Relogio()
Application.OnTime Now + TimeValue("00:00:01"), "estapasta_de_trabalho.Workbook_Open"
End Sub

PRECISO Incluir o seguinte comando também nesta pasta:

Range("J9").Value = VBA.Environ("username")

Problema:
Sou leigo no assunto e quando executo tudo isso, nesta pasta, vai para o depurador.

Alguém pode me ajudar?

desde já agradeço.

 
Postado : 12/03/2013 10:17 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Poste seu arquivo modelo compactado!!!

att

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

 
Postado : 12/03/2013 4:03 pm
 rogbrand
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

OI Alexandre,

Achei prudente uper em um servidor externo. Segue o link.

http://www.sendspace.com/file/qp1q76

 
Postado : 14/03/2013 7:33 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

Private Sub Workbook_Open()
lis = (Time + TimeSerial(0, 0, 1))
Range("J12") = Environ("UserName")
ActiveWorkbook.Worksheets(1).Range("A1").Value = Format(Now, "hh:mm:ss")
Relogio
End Sub

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

 
Postado : 14/03/2013 7:46 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Nota: Como a rotina "relogio" é executada na abertura do arquivo, ao editar o VBE, e digitar algo, e gerado um erro (não é possivel executar a rotna em interrupçao);
então de ok tecle 2 vezez o F8 ou clique no btn quadrado (redefinir) na barra de tarefas, faça as alterações e "rode" a rotina workbook open novamente

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

 
Postado : 14/03/2013 7:57 am
 rogbrand
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

Oi Reinaldo,

Funcionou... Porém, agora começou aparecer um erro ao clicar no botão visualizar marcações (ERRO 400). Sabe oq pode ser?

Abraço,
Rogério.

 
Postado : 14/03/2013 1:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aqui no seu exemplo, não recebi nenhuma mensagem de erro, funciona normal.
Erro 400 normalmente refere-se a Tentativa de selecionar um objeto escondido,porem no site msdn diz diferente ( http://support.microsoft.com/kb/262441/pt-br ).

Talvez ao efetuar essa ultima alterçãoalguma outra linha de codigo tenha sido alterada inadivertidamente. Tente revisar, se persistir, mande o arquivo com o erro

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

 
Postado : 14/03/2013 1:36 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico