- Codice: Seleziona tutto
Sub checkdate()
Dim I As Long, myMess As String
'
myMess = "Fogli contenente data diversa da foglio4:"
For I = 4 To Worksheets.Count
If data0 = "" Then data0 = Right(Sheets(I).Range("C1"), 10)
If Right(Sheets(I).Range("C1"), 10) <> data0 Then
myMess = myMess & vbCrLf & Sheets(I).Name & " - " & Right(Sheets(I).Range("C1"), 10)
End If
Next I
MsgBox myMess
End Sub
Nel messagebox finale compariranno i nomi dei fogli che hanno una data difforme da quella del "foglio N° 4"
Ciao