Ciao,
eccomi ancora con un nuovo quesito...
In QUESTO 3d a10n11 mi ha come sempre risolto un bel problema con una splendida macro. Ora con l'aiuto di alcune immagini vorrei potere applicare quella meraviglia di creatura ad una situazione particolare:

In questa tabella filtrata sul cod.55 di col.AA e su FREQ.10 di col.AH



seleziono l'intervallo delle celle visibili di col.K e faccio girare la macro di cui al 3d del link, ottenendo





Ora, supponendo di volere processare tutto uno specifico intervallo di celle visibili, supponiamo quello della col.H (celle H25,H215,H1385,H1475,H1825,H3345,H4365 dell'immagine) che variazioni devo apportare alle istruzioni della macro? In altre parole: fare lavorare la macro in una sola colonna di celle visibili (tutte) anziché su una selezione. A "intuito" devo lavorare in quest'area
miorange = Selection.Address
Set Area = Range(miorange).SpecialCells(xlCellTypeVisible)
For Each sel In Area
righe = righe + sel.Rows.Count
Next
ma l'intuito è una cosa, mentre la Sapienza è ben altra cosa!!
Grazie assai, buona giornata
eZio

salve
la risposta alla domanda era celata nella prima macro poi corretta del post precedente.
Modificata perchè analazziva tutte le celle visibili e non solo quelle selezionate.

la porzione del codice che segue è quello da sostituire alla macro Coloraselezione()

Set rng = Range("B3", Range("B3").End(xlDown))
col = Selection.Column
RRiga = Selection.Row
Ur = Cells(Cells.Rows.Count, col).End(xlUp).Row ' Nuova riga
counter = 0
'--------------------------------------
' Definisce l'area di selezione e conta le righe della selezione
Set Area = Range(Cells(RRiga, col), Cells(Ur, col)).SpecialCells(xlCellTypeVisible) ' nuova riga
For Each sel In Area
righe = righe + sel.Rows.Count
Next
'-------------------------------------------

saluti
Giap

---