Selezionare tutte le celle senza riempimento

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
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! =)
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 20:19.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com