Eccomi qui chiedendo, come al solito, il vostro aiuto....
Oggi stavo provando e riprovando ma... alla fine se qualcuno mi può dare uno spunto non riesco a procedere.
Allora...
File excel con più fogli... su ogni foglio devo fare un confronto fra più celle e una adiacente se è presente un testo (preciso che quest'ultima cella risulta essere l'unione di più celle).
Questo è il codice che sono riuscito a fare....
- Codice: Seleziona tutto
Sub controllo_note()
Application.ScreenUpdating = False
Dim WS_Count As Integer
Dim X As Integer
Dim K As Integer
Dim Note As Integer
Dim Inse As Long
WS_Count = ActiveWorkbook.Worksheets.Count
For X = 5 To WS_Count
For K = 8 To 38
Note = Sheets(X).Cells(K, 17).Value
Inse = Sheets(X).Range(Cells(K, 12), Cells(K, 16))
If Inse <> "" And Note = "" Then
MsgBox ("Ricorda che devi compilare le NOTE.")
Cells(K, 17).Select
Exit For
End If
Next K
Next X
Application.ScreenUpdating = True
End Sub
Eseguendo il codice l'errore mi evidenzia la riga dove viene indicata cosa mettere nella variabile "Inse" e mi appare la scritta "Tipo non corrispondente".
La variabile "Note" è quella come indicavo prima prende il valore da una cella unita fra più colonne (Q R S).
Come al solito ringrazio anticipatamente e rimango in attesa di vostre suggerimenti!