Notifications

Clear all

Mensagem inicio de cada mês

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

6 Posts

4 Usuários

0 Reactions

1,312 Visualizações

RSS

valdecirrk

(@valdecirrk)

Posts: 230

Estimable 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

(@jorge24)

Posts: 31

Eminent 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

(@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

Click em se a resposta foi util!

Postado : 10/04/2014 10:51 am

Fernando Fernandes

(@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

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

Postado : 10/04/2014 10:53 am