Formattazione condizionale su formato "barrato" contenuto in altra cella

Question

Salve,

è possibile creare regola per formattazione condizionale basata su formattazione (testo barrato/testonon barrato) di altra cella in altro foglio elettronico della stessa cartella?

Si forse non sono stato molto cristallino,  scusate!

grazie a tutti

MF

Answer 1

allego il link:

https://www.dropbox.com/s/nyk2nfstzvsudbg/FormattazioneCondizionale.xlsx?dl=0

• Alt+F11 per aprire l'editor di VBA
• Alt+IMper inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'========>>

Option Explicit

'-------->>

Public Function Strikethrough(rCell As Range) As Boolean

    Dim srcSH As Worksheet

    Dim searchRng As Range, foundRng As Range

    Const sFoglio As String = "Complessivo"

    Application.Volatile

    Set srcSH = ThisWorkbook.Sheets(sFoglio)

    Set searchRng = srcSH.Columns(1)

    Set foundRng = searchRng.Find( _

        What:=rCell.Value, _

        After:=searchRng.Cells(1), _

        LookIn:=xlValues, _

        LookAt:=xlWhole, _

        SearchOrder:=xlByRows, _

        SearchDirection:=xlNext, _

        MatchCase:=xlNo)

    If Not foundRng Is Nothing Then

        Strikethrough = foundRng.Font.Strikethrough = True

    End If

End Function

'<<========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensionexlsm

Seleziona l'intervallo da evidenziare, ad esemp;io A1:C100, e crea la formattazione condizionale utilizzando la formula:

          =Strikethrough($A1)

Potresti scaricare il mio file di prova MecFala20210331.xlsm

====

Regards,

Norman

Answer 2

Ciao MF,

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Public Function StrikeThrough(rCell As Range) As Boolean

    Application.Volatile

    StrikeThrough = rCell.Font.StrikeThrough

End Function

'<<======== 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm

Seleziona l'intervallo da evidenziare  e crei la formattazione condizionale utilizzando la formula:

          =Strikethrough(Foglio2!$A$1)

Sostituisci Foglio2!$A$1 con l'indirizzo del foglio di interesse e la cella barrata.

Potresti scaricare il mio file di prova MecFala20210330.xlsm

In questo file le celle da evidenziare sono le celle A2:B2 sul primo foglio e la cella barata e'  la cella A1 sul Foglio2.

===

Regards,

Norman

![Immagine](https://learn-attachment.microsoft.com/api/attachments/63b3c924-b87b-4404-ba7b-9fac00eeaed8?platform=QnA

Answer 3

Grazie,

allego il link:

https://www.dropbox.com/s/nyk2nfstzvsudbg/FormattazioneCondizionale.xlsx?dl=0

saluti

Answer 4

Norman ti ringrazio molto, funziona tutto ma ho questo problema:  la cella da verificare (se barrata o meno) non ha un riferimento fisso purtroppo (della serie gli incontentabili!).

La cella da verificare sarebbe da ricercare nella colonna di un foglio contenete dei nomi e il nome da cercare è quello contenuto nella cella da sottoporre a formattazione condizionale.

Ciao MF,

Per meglio comprendere la tua esigenza, ti chiederei di caricare un file di esempio, privo di dati sensibili, e di indicare la cella da evidenziare e la colonna da ricercare.

===

Regards,

No9rman

Answer 5

Norman ti ringrazio molto, funziona tutto ma ho questo problema:  la cella da verificare (se barrata o meno) non ha un riferimento fisso purtroppo (della serie gli incontentabili!).

La cella da verificare sarebbe da ricercare nella colonna di un foglio contenete dei nomi e il nome da cercare è quello contenuto nella cella da sottoporre a formattazione condizionale.

Grazie di nuovo!

MF