Ciao,
in una tabella filtrata come QUESTA devo selezionare (Ctrl+sin.mouse) SOLO le celle visibili bordate di rosso, per poi applicare una macro.
La tabella ha un'altezza variabile, le celle contengono dei codici che però non sono oggetto di questo problema (nella tabella dell'esempio li ho cancellati per non appesantire il file), le colonne interessate dalla tabella sono da col.A a col.AH, da riga 3 a fine tabella (non vi sono righe vuote).
Ora svolgo il lavoro manualmente, ma sicuramente è possibile fare eseguire questo compito da una macro.
Grazie assai, buona giornata
eZio

salve
una soluzione che ritengo molto casalinga potrebbe essere questa:

Sub prova()
Dim cl As Range
Uriga = Cells(Rows.Count, 1).End(xlUp).Row
Set area = Range("H2", Range("AG" & Uriga)).SpecialCells(xlCellTypeVisible)
For Each cl In area
If cl.Borders.Weight = 4 Then
If cl.Borders.LineStyle = 1 Then
If cl.Borders.Color = 255 Then
Set rngsel = cl
rngsel.Select
Exit For
End If
End If
End If
Next
For Each cl In area
If cl.Borders.Weight = 4 Then
If cl.Borders.LineStyle = 1 Then
If cl.Borders.Color = 255 Then
Set rngsel = Application.Union(rngsel, cl)
End If
End If
End If
Next cl
rngsel.Select
Set rngsel = Nothing
End Sub

saluti
Giap

---

salve
con le istruzioni che seguono, si controlla il tipo di bordo, lo spessore del bordo ed il colore:

If cl.Borders.Weight = 4 Then equivale ad un bordo Xlmedium
si poteva scrivere If cl.Borders.Weight = Xlmedium Then

If cl.Borders.LineStyle = 1 Then equivale ad un bordo linea continua
si poteva scrivere If cl.Borders.LineStyle =xlContinuous Then


If cl.Borders.Color = 255 Then il colore 255 è quello che ho estratto dal tuo file

L'istruzione che segue, serve ad aggregare alla variabile Rngsel tutte le celle bordate di rosso
che trova nella scansione della tabella. Il metodo Union unisce in una unica variabile intervalli di range
Set rngsel = Application.Union(rngsel, cl)

saluti
Giap

---

Salve
la premessa è questa:
Colorindex utilizza l'indice (da 1 a 56) della paletta dei colori standard di excel
Color Utilizza la gamma RGB dei colori
nel caso sopra : il valore 255 della proprità Color è equivalante a 3 della proprietà colorindex.

se fai girare la macro che segue (mutuata in rete con una m ia piccola modifica) avrai la lista dei Colorindex con l'equivalente
del valore Color


Sub ShowColors()
'Based on fact that
'RGB(R, G, B) = 65536 * B + 256 * G + R
Dim i As Long, C As Long

Dim R As Long, G As Long, B As Long
Range("A1").Value = "Index"
Range("B1").Value = "Color"
Range("C1").Value = "R"
Range("D1").Value = "G"
Range("E1").Value = "B"
Range("F1").Value = "Check"
Range("G1").Value = "Color"
For i = 1 To 56
Range("A1").Offset(i, 0).Value = i
Range("B1").Offset(i, 0).Interior.ColorIndex = i
C = Range("B1").Offset(i, 0).Interior.Color
Range("G1").Offset(i, 0) = C
R = C Mod 256
G = ((C - R) Mod 65536) / 256
B = (C - 256 * G - R) / 65536
Range("C1").Offset(i, 0).Value = R
Range("D1").Offset(i, 0).Value = G
Range("E1").Offset(i, 0).Value = B
Range("F1").Offset(i, 0).Interior.Color = RGB(R, G, B)
Next i
End Sub

saluti
Giap

---