[Risolto]Somma con macro di celle colorate

[Guido2016]

[Risolto] Salve a tutti, sono iscritto fresco fresco e ho un problema che illustro e spero che qualcuno mi aiuti, ho cercato e provato altre soluzioni ma non faccio altro che perdere tempo senza risolvere, ottengo solo risultati parziali e pasticci vari, premetto che non sono certo esperto di programmazione. Allora, cercherò di spiegarmi nel migliore dei modi se ci riesco. Con un pulsante di lancio Macro dovrei sommare i numeri nelle celle da me colorate (di giallo) contenenti anche negativi e formule nelle colonne E+H+K+N dalla 4 alla 20 e riportarlo in cella E23 poi con colore Rosa altro risultato in cella H23. Non finisce qui nella cella K23 il risultato dei numeri nelle celle colore Rosso delle colonne F+I+L+O sempre da 4 a 20. Tutti i numeri una volta cambiati col clik del pulsante di lancio devono rimanere e non cancellarsi. Allego il file di esempio che forse si capisce meglio..... aiutatemi che mi sta venendo mal di testa, GRAZIE

[charlie]

Ciao, probabilmente qualcuno che ti scriva la macro lo troverai. Ma perchè non risolvi da solo con delle semplici formule di somme fra celle diverse? Potresti anche ricavare più soddisfazione ...

[Guido2016]

Una buona proposta la tua, però non devo usare questo calcolo solo io, e vorrei rendere la vita facile agli altri che devono usarlo (senza complicarmela molto io ovviamente), poi il file dovrei bloccarlo in parte, le celle con formule ovviamente, mentre le celle colorate restano libere. Ora ho un foglio che funziona.... ma non bene, l'ho modificato, era con altra estensione ma come sai non funziona bene con OpenOffice e io non essendo esperto, senza nessuna preparazione teorica e poca pratica.... = "cattivo risultato". Grazie

[patel]

La penso come Charlie, puoi risolvere con le formule senza badare al colore delle celle da sommare, è più immediato e sicuro. Inoltre non c'è bisogno di attivare le macro sui pc sul quale viene usato il file

[Guido2016]

Ma io fino a pochi mesi fa usavo questo file con excel...tutto perfetto, il file come dite voi con le formule non serve a niente purtroppo, perchè i numeri inseriti nel file di esempio non sono sempre gli stessi ma variano continuamente, sia di numero che di cella e con il colore risolvo, con la formula, dovrei (e non solo io anche altri) cambiare continuamente indirizzo della cella interessata. Scusa ma forse questo non sono riuscito a spiegarlo bene prima.... anzi proprio non l'ho detto. poi, vista la tua risposta io ti chiedo altra cosetta....ma le macro non possono essere personali e proprietà esclusiva di questo file e si attiva solo quando apro il file interessato? scusa la mia poca conoscenza del programma

[patel]

le macro sono esclusive del file, ma devono essere abilitate da Strumenti, opzioni, Sicurezza.
Se hai già un file excel con macro funzionanti potresti provare ad utilizzarlo in questo modo
1) inserisci all'inizio prima delle sub la riga Option VBASupport 1
2) All'inizio di ogni sub la riga CompatibilityMode(True)
3) dopo queste modifiche salva in ods

[Gaetanopr]

Assegna la seguente macro al pulsante presente sul file, ho indicato un range unico per tutti e tre i colori

Codice: Seleziona tutto

Sub sommaColore
Rng = "D4:O20"
CellRif = Array("E23", "H23", "K23")
Sh = ThisComponent.sheets.getByName("Foglio1")
Addr = Sh.getCellRangeByName(Rng).RangeAddress
ci = Addr.StartColumn
cf = Addr.EndColumn
ri = Addr.StartRow
rf = Addr.EndRow

For n = 0 To Ubound(CellRif)
  Colore = Sh.getCellRangeByName(CellRif(n)).CellBackColor
  Importo = 0
  for c = ci To cf
    for r = ri To rf
       if Sh.getCellByPosition(c, r).CellBackColor = Colore Then 
          Importo = Importo + Sh.getCellByPosition(c, r).Value
       End if
    Next r
  Next c
  Sh.getCellRangeByName(CellRif(n)).Value = Importo
Next n          

End sub

[Guido2016]

Ti ringrazio prima di tutto della tua disponibilità ad aiutarmi, però sicuramente ho sbagliato qualcosa io, nella fretta ho fatto copia e incolla della macro nel modulo 1 poi ho evidenziato il pulsante e ho fatto "Assegna macro"........ penso manchi qualcosa perchè dopo lancio macro e non succede nulla, provo a studiarmi la guida e vedere se risolvo e ti faccio sapere

[Gaetanopr]

Forse non hai abilitato le macro.
Segui queste istruzioni per abilitare OpenOffice all'uso delle macro :
Strumenti - OpenOffice - Sicurezza - Sicurezza delle macro, ti basta impostare a medio.

[Guido2016]

Si certo che le ho abilitate, quando apro il file infatti esce la finestra che mi chiede di abilitarle

[Gaetanopr]

Ti allego il file

[Guido2016]

Ok grazie ora lo provo..... molto gentile

[Guido2016]

Grazieeeeeee Funziona....

[Gaetanopr]

Di nulla
Ciao

[Guido2016]

Ciao, devo mettere risolto??

[Gaetanopr]

Si

viewtopic.php?f=2&t=5661