Trova e cancella celle colorate

[gikeleva]

Ciao a tutti, sto cercando un modo per trovare tutte le celle del foglio colorate di verde, range a1:I190 (o anche oltre).
La macro che ho trovato, funziona solo sulle celle a1:a10, chi mi aiuta, un grazie infinito.


Sub Cancella_Verde()
Dim A As Long
B = [A1].Value
For A = 1 To 100
If Cells(A, 1).Interior.ColorIndex = 10 Then
Cells(A, 1).ClearContents
Cells(A, 1).Interior.Pattern = xlNone
End If
Next A
End Sub

[Raffaele53]

Con la 1° devi prima selezionare l'area, nella seconda ci devi scrivere l'area esatta

Codice: Seleziona tutto

Sub Cancella_Verde2()
Dim Cella As Range
For Each Cella In Selection
    If Cella.Interior.ColorIndex = 10 Then Cella.Interior.ColorIndex = xlNon
Next
End Sub
Sub Cancella_Verde3()
Dim Area As Range
Dim Cella As Range
Set Area = Range("A1:I190")
For Each Cella In Area
    If Cella.Interior.ColorIndex = 10 Then Cella.Interior.ColorIndex = xlNon
Next
Set Area = Nothing
End Sub

[gikeleva]

Grazie, funziona perfettamente....ma dovrebbe anche cancellare il contenuto della cella. (nel post non era specificato)
Un ulteriore grazie per il resto.

[Raffaele53]

Codice: Seleziona tutto

If Cella.Interior.ColorIndex = 10 Then Cella.Interior.ColorIndex = xlNone : Cella =""

Ho corretto xlNon in xlNone, la corretta enumerazione da usare; lo stesso refuso e' presente nel codice precedente che non ho modificato
Anthony

[gikeleva]

Ok, grazie. Funziona perfettamente.