Private Workbook_Open()
Application.ScreenUpdating = False
Worksheets("attivita").Select
Dim data
Dim avviso As Object
Dim Lem As String
Set data = Worksheets("attivita").Range([V1], [V1].End(xlDown))
For Each avviso In data
Cliente = avviso.Offset(1, -19).Value
Polizza = avviso.Offset(1, -14).Value
Compagnia = avviso.Offset(0, -21).Value
If avviso = Date > 30 Then
MsgBox " nessuna polizza in scadenza "
End If
If avviso = Date + 30 Then
MsgBox " Sono in scadenza a 30 gg " & vbCrLf & _
"Cliente : " & Cliente & " Polizza n° : " & Polizza & " Compagnia : " & Compagnia
' pippo = MsgBox("Mancano 30 gg alla scadenza. Vuoi inviare gli avvisi ?", vbYesNo)
' Else
' Call macro
End If
Application.ScreenUpdating = True
Next
End Sub
Adattato alle mie esigenze,provato ,funziona.
1-E' possibile evitare che apra a video il foglio dove verifica i dati (vorrei che rimanesse la maschera iniziale del file)?
2-Sarebbe possibile ,anziche' piu msgbox in sequenza ,che comparisse un unico messaggio a piu "righe" dei dati trovati?
Grazie anticipate.