Ciao,
riprendo la sub di QUESTO thread perché restituisce Errore di run-time '1004' - Errore definito dall'applicazione o dall'oggetto
solo in un file che nella struttura è identico agli altri, in cui si esegue senza problemi. La riga in cui dà errore è quella evidenziata in rosso... Non riesco a capire quale possa essere la causa che genera quell'errore.

Sub vuote18()
riga = 10
ctr = False
For n = 1 To 5
rigatabella = Cells(riga, 2).End(xlDown).Row
colonnaTabella = Cells(riga - 1, 2).End(xlToRight).Column
For x = 3 To colonnaTabella
Set area = Range(Cells(riga, x), Cells(rigatabella, x))
For Each cl In area
If cl.Value = "" Then
cont = cont + 1
ctr = True
Else
ctr = False
End If
If Not ctr Then
If cont >= 18 Then
Range(Cells(cl.Row - 1, cl.Column), Cells(cl.Row - 1 - (cont - 1), cl.Column)).Interior.ColorIndex = 3
cont = 0
Else: cont = 0
End If
End If
Next cl
Next x
ctr = False
riga = rigatabella + 6
Next n
Set area = Nothing
End Sub

Grazie assai, anche per l'infinita pazienza ;-)
Buona giornata
eZio

salve
per poter dare una risposta serve vedere il file.
quasi sicuramente una delle variabili utilizzate viene valorizzata erroneamente.
saluti
Giap

---

salve
ho verificato il file e l'errore era proprio come immaginavo nella valorizzazione errata della variabile Cont.
Infatti al termine della scansione della colonna non veniva azzerato il valore della variabile Cont.
Ha sempre funzionato fintanto che le ultime righe vuote della colonna aggiunte alle prime righe vuote della colonna
successiva fossero minori di 18.
Una svista non rilevata in fase di prova della macro perchè non si era pensato ad un caso del genere.
questa è la modifica da fare:


Next cl
cont = 0 ' riga da aggiungere
Next x

chiedo venia.
saluti
Giap

---