Ciao,

In un foglio di lavoro sono presenti 5 tabelle di altezza e larghezza variabili [ma la larghezza max. è fino a col.90 (CL)] , SEMPRE impostate come ho evidenziato in giallo: i dati di ciascuna tabella distano dalla fine della precedente tabella 6 righe, compresa la prima tabella che dista 6 righe dall'intestazione del foglio di lavoro.
In queste tabelle attualmente devo cercare ed evidenziare manualmente le celle che NON hanno dati (celle vuote) che incolonnate hanno un'altezza di incolonnamento >= a 18, ma solo quelle che iniziano, a scendere, dalla 1^riga successiva a quella dell'intestazione. Nell'esempio in tabella 2 e 3 rispettivamente quelle delle colonne classificate T6 e H2.
per facilitare la comprensione ho preparato QUESTO Esempio.
E' possibile scrivere una macro che con le appropriate istruzioni svolga questo ingrato compito?
Grazie infinite per tutto. Buona giornata
eZio

salve
prova questa

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
saluti
Giap

---