COMO FAZER: caixa de diálogo contando dias

[luisfranope1109]

Gostaria de ter em uma planilha, ao abrir o arquivo mostrar, a partir da data na celula A2 quantos dias se passaram ate a data atual.

Sei que não é difícil mas nao sei fazer. Estou fuçando e tentando aqui.

Se alguem puder ajudar.... obrigado.

Luh *-*

[Visitante]

Instale o código abaixo no módulo de 'EstaPasta_de_trabalho', assim:

1. copie o código daqui

2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA

3. no lado esquerdo da tela duplo clique em 'EstaPasta_de_trabalho'

4. cole o código na janela em branco que vai se abrir

5. feito! 'Alt+Q' para retornar para a planilha

Para funcionar o código salve, feche e reabra o arquivo

Private Sub Workbook_Open()
 MsgBox Date - Sheets("Plan1").[A2]
End Sub

[luisfranope1109]

Fiz exatamente como mandado mas ao salvar apareceu uma janela com os dizeres:

Os recursos a seguir não podem ser salvos em pastas de trabalho sem macro:

* Projeto do VB

para salvar um arquivo com esses recursos, clique em Não e escolhar um tipo de arquivo habilitado para macro na lista Tipo de Arquivo

Para continuar salvando como pasta de trabalho sem macro, clique em Sim

Obs: vi que ao clicar na setinha verde pra executar aparece a caixa de mensagem com o numero de dias.... mas ao fechar aparece a msg acima....O que sera?

[Visitante]

Antes de instalar o código deixe aberto somente o arquivo de interesse, feche os demais, aí só haverá uma 'EstaPasta', pertencente ao único arquivo aberto.

Para salvar:

1. Salvar como

2. atribua um nome

3. na caixa abaixo, Tipo: selecione "Pasta de Trabalho Habilitada para Macro do Excel'

[luisfranope1109]

... pra acrescentar o texto "x" dias de uso do Projetor...

como faria?

Desde já, muito obrigado!!!

Se puder me explicar mais ou menos como fez tudo.... um pouco de excel eu sei... gostaria de aprender.

Bom fds ai *-*

[Visitante]

... pra acrescentar o texto "x" dias de uso do Projetor... como faria?

Private Sub Workbook_Open()
 MsgBox Date - Sheets("Plan1").[A2] & " dias de uso do projetor"
End Sub

Se puder me explicar mais ou menos como fez tudo....

O que exatamente você quer saber? Seja específico.

[luisfranope1109]

O que exatamente você quer saber? Seja específico.

Gostaria de saber o que fez pra chegar nesse codigo. Ja sei um pouco de excel... dependendo se resumir como fez eu aprendo.

Muuuuito obrigado

Luis

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.