Notifications
Clear all

Mensagem inicio de cada mês

6 Posts
4 Usuários
0 Reactions
1,297 Visualizações
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

boa tarde

todos os meses os técnico devem clicar em um botão para zerar o resumo, que é uma planilha que acumula as informações durante o mês.
então para lembrar que todo o dia 2 de cada mês o técnico deve zerar esta planilha, como fazer uma macro que quando chegar o dia 2 de cada mês apareça uma caixa de diálogo avisando que ele deve clicar no botão para zerar a planilha.

fico no aguardo.

 
Postado : 10/04/2014 10:23 am
(@jorge24)
Posts: 31
Trusted Member
 

Boa tarde,

E Uma macro que zere a planilha (de forma automática) a todo o dia 2 do corrente mês!!!???

tb serve?

 
Postado : 10/04/2014 10:39 am
(@basole)
Posts: 487
Reputable Member
 

Cole o codigo na aba: Esta_Pasta_de_trabalho :

Private Sub Workbook_Open()
If Format(Date, "dd") = "02" Then
MsgBox "Srs. Tecnicos, por favor clicar no botão para zerar a planilha."
End If
End Sub
 
Postado : 10/04/2014 10:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Não testado!!!

Private Sub Workbook_Open()
Dim x As Date

x = Date
If Day(x) = 2 Then
MsgBox "Esse é o segundo dia de cada mês"
End If

End Sub

Ou..

Private Sub Workbook_Open()

If Date = WorkDay(Date - Day(Date), 2) Then
MsgBox "Esse é o segundo dia de cada mês"
End If
 
End Sub

Ou..

Private Sub Workbook_Open()
If Day(Date) = 2 Then MsgBox "Sua mensagem aqui"
End Sub

Att

 
Postado : 10/04/2014 10:53 am
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

Cara, por isso que eu gosto de mais deste fórum, os cara são D+.
Parabéns pra vocês.
Conhecem muito.

 
Postado : 10/04/2014 11:33 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Poxa se as dicas foram uteis, click na mãozinha :cry: :cry:

Att

 
Postado : 10/04/2014 12:09 pm