I metodi possono essere diversi inoltre dovresti specificare meglio quante e quali sono le celle da "controllare", comunque...
Se devi controllare una sola cella puoi utilizzare questo codice:
- Codice: Seleziona tutto
Private Sub Workbook_Open()
If Worksheets("Foglio1").Range("A3").Text = "" Then
MsgBox "Compilare la cella A3"
Cancel = True
End If
End Sub
Che dovrai inserire in Thisworkbook e non nel modulo
Se invece hai una serie contigua di celle puoi determinare l'area con numero colonna e numero riga e risolvere con questa macro (da inserire sempre in Thisworkbook ):
- Codice: Seleziona tutto
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ColI = 1
ColF = 4
RigaI = 2
RigaF = 5
For CC = ColI To ColF
For RR = RigaI To RigaF
If Worksheets("Foglio1").Cells(RR, CC).Text = "" Then
Set mc = Worksheets("Foglio1").Cells(RR, CC)
Worksheets("Foglio1").Cells(RR, CC).Select
MsgBox "Compilare la cella " & mc.Address(RowAbsolute:=False, ColumnAbsolute:=False)
Cancel = True
End If
Next RR
Next CC
End Sub
In ambedue il messaggio avverte quale cella deve essere compilata e nel caso di area seleziona anche la cella
Fai sapere
Ciao