[VBA] Confronto date e unione fogli

[Anthony47]

Se ti riferisci al controllo che le "date" siano tutte allineate (stesso giorno), allora dovresti risolvere con questa macro:

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