[excel 2007] quante celle colorate?

[freetom]

Ho 6 colonne (C:H)
con celle colorate o meno...
mi servirebbe di sapere nella cella di colonna K rispettiva il numero di celle colorate...

Qualcuno/a in mio soccorso...?

Thanks!

[luck]

ho capito bene? per ogni riga, giusto?
inserisci un pulsantino e assegnagli questa macro

Private Sub CommandButton1_Click()

    PrimaRiga = 2
    UltimaRiga = 1000

    For riga = PrimaRiga To UltimaRiga
        numero = 0
        For colonna = 3 To 8
            If ActiveSheet.Cells(riga, colonna).Interior.ColorIndex > 0 Then
                'aggiungi
                numero = numero + 1
            End If
        Next colonna
        ActiveSheet.Cells(riga, 11) = numero
    Next
    
End Sub

non so che struttura abbia il tuo foglio, ho impostato da variabile la prima e l'ultima riga delle celle da analizzare

ciao ciao

[freetom]

La struttura.. è pressappoco questa:

colonne: A.B.C.D.E.F.G.H...I,J,K
RIGHE : DA 1 A 1300
LE CELLE COLORATE SONO COMPRESE TRA LE COLONNE C E H
E IL NUMERO DI CELLE COLORATE RISULTANTI DOVREBBE RISULTARE
PER OGNI RIGA ALLA RISPETTIVA CELLA IN COLONNA K

[luck]

che errore ti dà?

[luck]

e soprattutto: in che riga?

[freetom]

ma non mi funzia...
mi mette solo alla riga 9 colonna 11 (K) uno 0 non richiesto anche se provo a colorare
qualche cella della riga relativa mi segna sempre 0

[luck]

e le altre righe sono apposto?

[freetom]

le altre righe non me le considera.. proprio!

[nicola75ss]

La macro di luck funziona perfettamente.

[luck]

Originariamente inviato da freetom
le altre righe non me le considera.. proprio!

grazie Nicola del generoso sostegno

freetom, non riesco a capire come mai, dovrebbe funzionare.
controlla di non aver associato al tasto un altra macro, o che il tasto non si chiami CommandButton1...

al limite sostituisci ActiveSheet. con Sheets("nomefoglio").

boh, fai sapere, se ci stai lavorando ancora
fai sapere anche se ce l'hai data su, così pure noi facciamo altrettanto

ciao ciao