INSERIRE IN UNA CELLA SENZA FORMULE IL RISULTATO DELLA FORMULA PRESENTE IN UN'ALTRA CELLA

ciao

con la formattazione condizionale è semplice usi lo stesso parametro

=CONTA.SE(D5:W5;"ITALIA")

per i colori messi a mano

devi usare delle funzioni

nelle celle scriverai

=contaColorate(D9:W9)

=contagrassetto(D9:W9)

sfortunatamente le funzioni non si adeguano da sole

devi se cambi cliccare sulla cella con F2 e poi invio

Function contagrassetto(range As range)

Dim Rng As range

For Each Rng In range
    If Rng.Font.Bold Then
       contagrassetto = contagrassetto + 1
    End If
Next

End Function

Function contaColorate(range As range) As Long
Dim cell As range

For Each cell In range
If cell.Interior.ColorIndex = 6 Then
contaColorate = contaColorate + 1
End If
Next cell
End Function

@gianfranco55 con la f. condizionale il parametro non è "Italia", ma "cella verde". Con una stringa di testo lo so fare pure io. Voglio contare quante celle, di volta in volta, diventano verdi. Per quella manuale dopo aggiungo il modulo e le dico se mi funziona.

simone

ti ho fatto due esempi

formula e macro

excel non intercetta il colore fatto con formattazione condizionale.

Però se hai una formattazione condizionale hai una formula

e da quella si fa il conteggio

@gianfranco55 Ok, il fatto che non intercettasse il colore fatto con la formattazione condizionale non lo sapevo. Appena accendo il computer provo le soluzioni da lei proposte. Grazie mille.

Salve a tutti

Ho inserito l'elenco delle nazioni in AA1:AA8; ho inserito una Convalida dati in A2; ho modificato la tua formula di Formattazione condizionale come formula così (ma guarda meglio nel file) =D$5=$A$2

Quindi ho inserito in B4 la seguente formula =CONTA.SE(D5:W5;A2)

Il risultato le vedi selezionando la nazione in A2

Per quanto riguarda il resto credo che sia necessario il ricorso a VBA

Ciao,

Mario

Grazie a tutti per i suggerimenti. Il file su cui sto lavorando è quello in allegato. Tutto si svolge nella scheda "PRINCIPALE". Per scoprire e nascondere i numeri identificativi che mi interessano ci sono i tasti rossi in altro a sinistra "SCOPRI/NASCONDI", associati a due macro. Ho bisogno che mi venga il totale di quante celle verdi ci sono, chiaramente riga per riga, nell'intervallo F-CG partendo dalla riga 5 fino alla 25 (parlo dei numeri da novemila e qualcosa, fino a diecimila, della riga 5)

. L'intervallo è un elenco di numeri identificativi di una certa cosa. Il totale di quanti sono è già nella colonna E ma mi serve sapere quante sono quelle che di volta in volta io vado a colorare di verde. Le formule si potrebbero mettere nella colonna D. Quando saranno tutte colorate i numeri della colonna D ed E saranno uguali, chiaramente. 

Ho provato a inserire le formule suggerite da "gianfranco55" ma non mi funzionano in questo file. Magari lui potrebbe inserirle anche quì. Mi serve solo la formula "trova celle colorate". Per l'altra il procedimento l'ho capito.

La soluzione proposta da "Marius44", invece mi sarebbe comoda con l'elenco di Nazioni, come avevo messo nel file precedente, ma cercando quante nazioni ci sono nell'elenco, ma non è quello evidentemente che mi serve.

Grazie ancora per le prossime eventuali soluzioni.

ciao

metti sul modulo 1 la macro sotto

e nella cella E4

=contaColorate(F5:CG25)

Function contaColorate(range As range) As Long
Dim cell As range
For Each cell In range
If cell.Interior.Color = RGB(146, 208, 80) Then
contaColorate = contaColorate + 1
End If
Next cell
End Function

ciao

metti questa nel foglio1 (principale)

così ricalcola ogni volta senza dover fare F9

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("F5:CG25")) Is Nothing Then
    Calculate
    End If
 
End Sub

@gianfranco55 Serve che inserisco le parentesi graffe prima e dopo la formula:

=contaColorate(F5:CG25)

?

@gianfranco55 questo codice da inserire nella scheda "principale" devo inserire un nuovo modello oltre a quello nell'altra risposta? Non riesce a farmelo lei? Non ho ben capito e non mi funziona nemmeno la formula precedente. 🙁

ciao

solo con F2 invio o con ricalcola

@gianfranco55 Le modifiche che mi avete suggerito funzionano. Io ho visto che le macro dei due tasti "nascondi" e "scopri" erano disattivate e le ho ripristinate così possiamo vedere le celle da colorare. Mi riesce quindi a modificare il file allegato con il ricalcolo automatico riga per riga?

ciao

se vuoi il ricalcolo automatico

non colorare la cella a mano ma fai copia formato

nel frattempo

vedo se capisco come fare

@gianfranco55 OK per ora farò così, poi se lei riesce a inserire anche quel modulo per l'automazione mi sarebbe utile. Se no, anche così mi va bene, grazie mille.

ciao

fai così

metti questa nel foglio PRINCIPALE

ora se fai doppio click su una cella verde questa diventerà bianca

se fai doppio click su una cella bianca diventerà verde

e si attiverà il ricalcolo

funziona solo da F56 a CG25

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean)
    If Not Intersect(Target, range("F5:CG25")) Is Nothing Then
        If Target.Interior.Color = RGB(146, 208, 80) Then
            Target.Interior.ColorIndex = xlNone
            Else
            
           Target.Interior.Color = RGB(146, 208, 80)
           
        End If
    End If
End Sub