FlavioPietro
00mercoledì 10 agosto 2016 11:42
Ciao,
qualcuno conosce un metodo per selezionare, in un foglio, tutte le celle (con o senza dati al loro interno) che abbiano un determinato tipo di riempimento?
Ad esempio per selezionare tutte le celle con riempimento rosso, oppure trasparente, ecc.?
patel45
00mercoledì 10 agosto 2016 12:24
Sub seleziona()
Dim Selezione As Range, cell As Range
Set Rng = Range("A1:D10") ' <<<< da modificare
c = 1
For Each cell In Rng
If cell.Interior.ColorIndex = 3 Then 'rosso, -4142 per trasparente
If c = 1 Then
Set Selezione = cell
Else
Set Selezione = Uni0n(cell, Selezione)
End If
c = c + 1
End If
Next
If Not Selezione Is Nothing Then Selezione.Select
End Sub
attenzione scrivere UNION, l'editor cambia la o con lo zero
FlavioPietro
00mercoledì 10 agosto 2016 13:36
Grazie mille! =)