colora parte di frase/ Parola in stessa cella

[raimea]

ciao

nella colonna M di fgl X_Copia+incolla ho una lunga frase
che si autocostruisce tramite formule , che prendono dati da altri fgl.

con una macro vorrei colorare di rosso solo una frase all interno di M
colorare di ROSSO SOLO >>> Esito = P

vi allego il file

https://www.dropbox.com/scl/fi/wfrvqh3jcvu892bv5y53j/colora_di_rosso.xlsx?rlkey=hveulgegnrbga2nevjjsskut2&dl=0

grazie ciao

[Anthony47]

Se vuoi colorare tutta la cella di col M qualora al suo interno sia presente la stringa "Esito = P" allora puoi usare la formattazione condizionale:
-seleziona l'area da formattare (es M8:M1000)
-avvia la formattazione condizionale con la clausola "Usa una formula"
-come formula inserisci

Codice: Seleziona tutto

=SE.ERRORE(TROVA("Esito = P/";$M8);FALSO)

-imposti il formato desiderato e chiudi la formattazione condizionale

Se vuoi una cosa diversa allora spiega ulteriormente

[raimea]

ciao
con format. cond. ho inserito la formula

Codice: Seleziona tutto

=SE.ERRORE(TROVA("Esito = P/";$M8);FALSO)

ma questa nel caso trova Esito=P mi colora tutta la scritta nella cella

mentre io sto cercando di far colorare di rosso SOLO la scritta Esito = P

ciao

[Anthony47]

Per quanto ne so, non e' possibile formattare parte del testo generato da una formula

Secondo me la cosa piu' semplice e' splittare la colonna M in tante colonne, ognuna con un segmento del messaggio finale.
Oppure calcolare colonna M solo da vba, nel qual caso si puo' formattare una parte

[raimea]

ciao
infatti la -frase - in col M e' generata da formule
ed avevo il dubbio fosse possibile diversamente da vba

se possibile vorrei provare la solozione 2

Oppure calcolare colonna M solo da vba, nel qual caso si puo' formattare una parte

grazie

ciao

[Anthony47]

Non conosco la formula con cui calcoli il contenuto di colonna M, quindi non posso tradurlo in codice vba; comunque penso che questo avverra' all'interno di un loop che lavora da riga 8 all'ultima riga di colonna D.
Nel loop calcoli la variabile MString e ne scrivi il valore in colonna M; dovrai aggiungere in questo loop la verifica di presenza della stringa e l'eventuale formattazione.

Gli ingredienti per ottenere ciò:

Codice: Seleziona tutto

For I = 8 To Cells(Rows.Count, "D").End(xlUp).Row
    '
    '    Qui: Calcolo di MString, secondo criteri che tu conosci
    '
    Cells(I, "M").Value = MString                               'Scrive in colonna M
    If Len(MString) > 0 Then
        posKey = InStr(1, MString, strKey, vbTextCompare)       'Verifica la presenza della stringa...
        If posKey > 0 Then                                      '...ed eventualmente formatta
            With Cells(I, "M").Characters(Start:=posKey, Length:=Len(strKey)).Font
                .Color = RGB(255, 0, 0)                         'Rosso..
                .Bold = True                                    '..e Bold
                ' altri formati??
            End With
        End If
    End If
Next I

Vedi se riesci ad adattare, altrimenti indica la formula usata

[raimea]

ciao
ho fatto delle prove
ma vista la lunghezza e casistica della formula in col M

Codice: Seleziona tutto

=SE(E9=0;"-";SE(O(N8="V";N8="P");SE(O(AG9="S";AG9="d");CONCATENA(H9;" ";B9;" : ";F9;" => ";J9;" ";"  / Punta ";Q9;"€  /  Quota @";AC9;" / Ore ";AF9;" / Puntata del gg N° ";C9;" / Set: ";AE9;" In: ";AG9;"  / M.llo: ";AI9;" / la Cassa e': ";S8;"€ "; "/ Esito = ";N9; "/ Ris. = ";AH9;);SE(AG9="D";CONCATENA(H9;" ";B9;" : ";F9;" => ";J9;" ";"  / Punta ";Q9;"€  A  Quota @";AC9;" / Ore ";AF9;" / Puntata del gg N° ";C9;" / Tipo: ";AE9;" => ";AG9;" / la Cassa e': ";S8;"€ ";)))))

(dove nel fgl utilizzo molte col d'appoggio con dati provenienti da altri fogli ! )

ho optato per tenere la soluzione 1 della format cond.

ancora grazie

ciao