Buonasera,
Scusatemi per non aver inserito il file Excle di esempio.
Lo inserisco in questo momento.
Non capisco come mettere il codice in TAG CODE.
Comunque, quello che devo fare come avevo già spiegato è questo:
Ogni Setttimana aggiungo una colonna di dati:
- Ricerco nelle WEEK l'ultima settimana inserita.
- Confronto l'ultima colonna inserita con la colonna precedente e se ci sono dei valori uguali, restituire un errore, tipo msgbox oppure colorare le celle con i valori uguali di rosso.
- Il codice che io ho fatto mi fa questo, ma in caso di valori uguali, mi restituisce diverse volte il msgbox.
Spero di essermi spiegato bene.
codice:
Private Sub Trova_WEEK()
'trova l'ultima week disponibile e avvia il processo
Sheets("Foglio1").Range("A1:J500").Interior.Color = xlNone
Worksheets("Foglio1").Activate
If Range("I1").Value = Null Then
MsgBox ("ok")
ElseIf Range("h1").Value <> Null Then
Application.Run ("verifica_h1")
'MsgBox ("no")
ElseIf Range("G1").Value = 0 Then
MsgBox ("ok")
ElseIf Range("F1").Value <> 0 Then
Application.Run ("verifica_h1")
'MsgBox ("no")
End If
End Sub
Private Sub verifica_h1()
'Verifica la colonna ed i valori della colonna,genera errrore
If Range("H3") = Range("G3") Then
Range("g3:H3").Interior.Color = 255
MsgBox "ATTENZIONE CI SONO VALORI UGUALI PER DUE SETTIMANE..", vbExclamation, "VALORI SIMILI ....ATTENZIONE"
End If
If Range("h4") = Range("g4") Then
Range("g4:H4").Interior.Color = 255
MsgBox "ATTENZIONE CI SONO VALORI UGUALI PER DUE SETTIMANE..", vbExclamation, "VALORI SIMILI ....ATTENZIONE"
End If
End Sub
Grazie a tutti per l'aiuto.
P.s.Non riesco ad inserire il file Excel per l'esempio.