ciao
ti costruisci 2 cicli nidificati for...next uno per le righe e l'altro per le colonne, incrementando un contatore per le quantità.
Una volta che il contatore raggiunge 16, incrementi Z2 di 1 unità e scrivi in AB2 (da incrementare ad ogni passaggio) il numero riga
es:
colRighe = 28 '(colonna AB)
contatore = 0
For r = 1 To 17
For c = 1 To 23
If Cells(r, c).Interior.ColorIndex <> xlNone Then contatore = contatore + 1
Next c
Qui controlli il contatore (if contatore>15...), alimenti i risultati e incrementi ColRighe.
Poi azzeri il contatore
e passi alla successiva riga (next r)
Ovviamente 17 e 23 li valorizzi con due variabili che calcolano il numero delle righe e quello delle colonne.
saluti
[Modificato da dodo47 20/09/2019 12:42]
Domenico
Win 10 - Excel 2016