Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

[Excel 2007]-Somma solo valori in riga, celle colorate, eccetto celle colore 6 Opzioni
aetio
Inviato: Friday, June 24, 2011 12:09:21 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
il questio precedente, simile, l'ho risolto con la ricerca nel web... (alla fine di tutto l'ambaradan la soluzione era in Aiutamici... e dove altro poteva essere??) stavolta non ho trovato niente di risolutivo.
Partendo dall'immagine



vorrei poter sommare i valori di parte di una data riga, supponiamo da B20 a X20, contenuti SOLO in celle colorate, ECCETTO quelle colorate di giallo ColorIndex6 che NON andrebbero considerate come pure eventuali valori scritti in celle senza colore...
le somme andrebbero scritte in colonna Y, in ciascuna riga di competenza (in Y18 la somma di B18:X18, in Y19 la somma di B19:X19 etc.)
Non so proprio che pesce pigliare, ma so di certo che qui si risolvono anche problemi impossibili... :)))))
Grazie assai e buona giornata
eZio
Sponsor
Inviato: Friday, June 24, 2011 12:09:21 PM

 
a10n11
Inviato: Friday, June 24, 2011 12:47:47 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
non mi dire che ti sei perso in questa quisquiglia??

basta una semplice modifica alla funzione che hai riesumato nel vecchio post..

Function SommaAlcuniColori(Rrange As Range)
Application.Volatile
Dim Cl As Range
Dim Ttot
For Each Cl In Rrange
If Cl.Interior.ColorIndex <> 6 And Cl.Interior.ColorIndex <> xlNone Then
Ttot = Ttot + Cl.Value
End If
Next Cl
SommaAlcuniColori = Ttot
End Function

saluti
Giap

aetio
Inviato: Friday, June 24, 2011 2:49:47 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,

a10n11 ha scritto:
salve
non mi dire che ti sei perso in questa quisquiglia??


.. e che cippaZZa patentata sarei, sennò?? ahahahah

A parte gli scherzi: avevo il fortissimo sentore che l'arcano si sarebbe risolto tutto in quella splendida creatura , ma come al solito i miei limiti nella conoscenza della giusta sintassi mi hanno fatto naufragare...
{[(ho sottolineato splendida anche perché durante le mie ricerche in rete ho visto di quelle porcherie, ma di quelle piorcherie...!! avete presente quei rovi incolti che non lasciano quasi filtrare la luce da tanto che sono aggrovigliati su loro stessi?? ecco, ho reso l'idea...)]}

Non riuscivo a capire come concatenare le condizioni nel codice
If Cl.Interior.ColorIndex <> 6 And Cl.Interior.ColorIndex <> xlNone Then
e per dirla proprio tutta con grande sincerità mi sarei comunque, alla fine, perso in un piccolissimo bicchier d'acqua... :))))))))
Grazie infinite e buon pomeriggio,
eZio
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.