Msgbox mancano x giorni

Hai un problema con Excel?

Nuova discussione

Msgbox mancano x giorni
di paganiva (utente non iscritto) data: 02/04/2017 16:59:51
Saluti a tutti
All'evento Private Sub Workbook_Open() un msgbox mi avvisi " Mancano "x" giorni al compleanno.
Ho cercato nel web, trovando alcuni spunti ma non rieco a adattarli.
Esempio ho la data del compleanno in Foglio1 range ("A1"), quindi una macro dovrebbe calcolare i giorni mancanti al compleanno e mostrarli nel msg.
Come sempre grazie

di Gianfranco data: 02/04/2017 17:15:16
Ciao

prova questo

Dim xDate As Date
 Dim Msg
 xDate = Cells(1, 1)
 Msg = "mancano" & " " & DateDiff("d", Now, xDate) & " " & "giorni al compleanno"
 MsgBox Msg

di paganiva (utente non iscritto) data: 02/04/2017 17:25:48
Perfetto, grazie Gianfranco.

Option Explicit
Private Sub Workbook_Open()
Dim xDate As Date
 Dim Msg
 xDate = Cells(1, 1)
 Msg = "mancano" & " " & DateDiff("d", Now, xDate) & " " & "giorni al compleanno"
 MsgBox Msg
End Sub

di Luca73 data: 03/04/2017 18:16:22
Semplificata

Ciao Ciao

Private Sub Workbook_Open()
MsgBox "mancano" & " " & DateDiff("d", Now, Cells(1, 1).value) & " " & "giorni al compleanno"
End Sub

Vuoi Approfondire?