Notifications
Clear all

Salvar automático

5 Posts
2 Usuários
0 Reactions
1,374 Visualizações
(@juraski)
Posts: 3
New Member
Topic starter
 

Boa noite, este é meu primeiro topico (volta e meia estou aqui consultando)
Bom, estou em fase de desenvolvimento do meu TCC e estou usando um macro para receber dados (informações de sensores de temperatura, umidade, concentrações de gases etc) pela usb e alimentar o excel, agora eu preciso implementar o auto salvamento.
As macros que uso para conexo é desse site: https://www.parallax.com/downloads/plx-daq
Tentei implentar a função auto_save desse site: http://www.exceldoseujeito.com.br/2009/ ... -planilha/
MAS, da erro "Erro de Compilação: Nome repetido encontrado: Workbook_Open"
Tentei mudar para Workbook_Open2 mas não funcionou legal.
Alguma alma pra ajudar, juntar, cooperar? =)

 
Postado : 25/05/2015 4:02 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Isso significa que que vc está usando 2 macros com o mesmo nome: Workbook_Open

O problema é que essa "macro" tem um nome interno, pois controla o evento "abrir planilha". Portanto, vc não pode renomear uma das duas para Workbook_Open2.

O que vc precisa fazer é escrever todo o código das 2 macros em uma só.

Para isso, seria melhor vc postar o teu anexo, pra que alguém te ajude a juntar os códigos que vc colocou na planilha.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 25/05/2015 4:11 pm
(@juraski)
Posts: 3
New Member
Topic starter
 

Olá gtsalikis
Segue o anexo das 2 macros que eu juntei (simplesmente copiei e colei, pois não consegui entender a programação das macros)
As macros separadas estão disponiveis nos links do primeiro post.

download: https://drive.google.com/file/d/0BwSQrQ4h0BvFNVBnU3kxb3ZteW8/view?usp=sharing

 
Postado : 25/05/2015 4:18 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Onde está assim:

Private Sub Workbook_Open()
frmStampDAQ.Show
End Sub
Private Sub Workbook_Open()
Call StartTimer
End Sub

Experimente deixar assim:

Private Sub Workbook_Open()
Call StartTimer
frmStampDAQ.Show
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 25/05/2015 8:42 pm
(@juraski)
Posts: 3
New Member
Topic starter
 

Muitissimo obrigado gtsalikis!
Deixei o código rodando durante o dia e funcionou sem problemas.
Eu imaginei que os WorkBooks fossem ações diferentes e não podiam ser fundidos, falha de principiante.

Tópico resolvido
Att Gabriel Juraski

 
Postado : 26/05/2015 6:44 pm