Risultati da 1 a 23 di 23

Discussione: Formattazione condizionale a scelta per ogni operatore



  1. #1
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1

    Formattazione condizionale a scelta per ogni operatore

    Salve Ragazzi,
    vorrei fornire ai miei colleghi un'agenda un po' particolare, a me piace avere il venerdì ed il sabato con la cella riempita di arancione e la domenica di rosso, ma alcuni potrebbero volere tutti i giorni uguali o solo la domenica colorata magari di verde.
    ho fatto delle prove, ho dato la scelta tra 3 colori, facendo 3 regole, quindi a seconda del numero le celle si colorano del colore corrispondente, ma è sempre limitante....

    Vorrei che venisse fuori una cosa del genere
    un riepilogo a sinistra con i giorni della settimana e la griglia a seconda del giorno prende la formattazione corrispondente, pensate sia fattibile?



    Spero di essere stato chiaro
    Buona giornata a tutti!
    ----------------------------------
    sent from time machine

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Ciao,
    non so se ho capito bene vorresti una cosa così:

    Per il venerdì =GIORNO.SETTIMANA(A1)=6
    Per il sabato =GIORNO.SETTIMANA(A1)=7
    Per la domenica =GIORNO.SETTIMANA(A1)=1
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao,
    non so se ho capito bene vorresti una cosa così:

    Per il venerdì =GIORNO.SETTIMANA(A1)=6
    Per il sabato =GIORNO.SETTIMANA(A1)=7
    Per la domenica =GIORNO.SETTIMANA(A1)=1
    Buongiorno Ges e buongiorno a te Quarta... Ges credo che il nostro amico abbia messo poca roba nel file (è solo come esempio) perciò credo voglia una cosa del genere

    Codice: 
    Sub ColoraLaCella()
    
    On Error GoTo finito
    
    
    Dim valor As String
    Dim d As String
    Dim a As String
    
    
    valor = ActiveCell.Value
    d = valor
    
    
    ActiveCell.Copy
    Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
    Selection.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
        
    a = ActiveCell.Address
    
    
    While d = valor
        ActiveCell.Copy
        Cells.FindNext(After:=ActiveCell).Activate
        If ActiveCell.Address = a Then
            d = ""
        End If
    
    
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    Wend
           
    Exit Sub
            
    finito:
    
    
    MsgBox ("il valore non è stato trovato")
    
    
    End Sub
    Istruzioni per l'uso : seleziona il giorno in colonna "J" e poi clicca sul pulsante 2

    Buon lavoro.

    Ciao

    P.S.
    ho cambiato l'allegato (si vede meglio il lavoro)
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. I seguenti utenti hanno dato un "Like"


  6. #4
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1
    Ciao Ges,
    grazie per la risposta, nel file allegato ho messo un esempio, forse ora è più facile comprenderlo (scusatemi!)
    Grazie!!!!

    File Allegati File Allegati
    ----------------------------------
    sent from time machine

  7. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Ciao Quarta... prova a vedere il mio file che tiene conto di qualunque ampiezza dei dati

    fammi sapere

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  8. I seguenti utenti hanno dato un "Like"


  9. #6
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1
    Ciao Balloon_50
    si è proprio questo che intendevo (chiedo ancora venia!)
    ci sarebbe un modo per farlo anche senza macro (anche se dalle impostazioni della formattazione condizionale credo non sia possibile a meno che non ci sia qualche formula particolare)?
    ho paura che tra abilita macro e premi pulsante, qualche collega potrebbe impicciarsi, altrimenti la tengo così!
    Grazie!!!!!
    ----------------------------------
    sent from time machine

  10. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao a tutti,
    anch'io avevo pensato di usare il VBA (con le formule purtroppo la scelta è limitata a meno di un gran lavoro dietro per predisporre tutti colori).

    @Baloon
    Ho avviato il tuo codice ma sembra che controlli tutto il foglio....

    [EDIT]
    @Quarta
    Ho letto ora la tua risposta....
    Come detto poco fa, secondo me solo con le formule non è fattibile.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  11. I seguenti utenti hanno dato un "Like"


  12. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao a tutti,
    anch'io avevo pensato di usare il VBA (con le formule purtroppo la scelta è limitata a meno di un gran lavoro dietro per predisporre tutti colori).

    @Baloon
    Ho avviato il tuo codice ma sembra che controlli tutto il foglio....

    [EDIT]
    @Quarta
    Ho letto ora la tua risposta....
    Come detto poco fa, secondo me solo con le formule non è fattibile.
    Sì il controllo è su tutto il foglio volendo lo possiamo limitare ad una selezione particolare dipende da cosa vuole Quarta...

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  13. I seguenti utenti hanno dato un "Like"


  14. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da quartafeira Visualizza Messaggio
    Ciao Balloon_50
    si è proprio questo che intendevo (chiedo ancora venia!)
    ci sarebbe un modo per farlo anche senza macro (anche se dalle impostazioni della formattazione condizionale credo non sia possibile a meno che non ci sia qualche formula particolare)?
    ho paura che tra abilita macro e premi pulsante, qualche collega potrebbe impicciarsi, altrimenti la tengo così!
    Grazie!!!!!
    Credo che Cromagno (ciao) ti abbia risposto esaurientemente :269:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #10
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1
    Quindi il mio sospetto delle formule non era legato alla mia conoscenza limitata...
    Se si potesse limitare in un certo range sarebbe fantasticoso (perchè il calendario è solo una parte del foglio, poi ci sono i conteggi per l'orario, i giorni di presenza, malattie....), se non comporta grosse modifiche, altrimenti lo tengo così!:23:
    Grazie!
    ----------------------------------
    sent from time machine

  16. #11

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Sì il controllo è su tutto il foglio volendo lo possiamo limitare ad una selezione particolare dipende da cosa vuole Quarta...
    Ciao Baloon,
    :246:

    @Quarta
    Ho visto che hai messo risolto... quindi ti accontenti?
    Secondo me basterebbe poco per dare qualche istruzione veloce ai tuoi colleghi per non incasinare tutto.

    @ges
    Ciao,
    visti i tuoi ultimi progressi col VBA credo che non avresti problemi a proporre una soluzione con esso :32:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  17. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Ahhhhh ora ho capito! (Meglio tardi che mai )
    Allora serve il vba.
    Quello di Baloon funziona ma cerca su tutte le righe e mi blocca excel.
    Provo anch'io a scrivere qualche riga più semplice giusto per esercizio.
    Devo però trovare il codice per scegliere il giorno
    Codice: 
    Sub colora_celle()
        Dim dati1 As Range, dati2 As Range, dati3 As Range
        
        Set dati1 = Union(Range("a2"), Range("e4"), Range("d6"))
        Set dati2 = Union(Range("b2"), Range("f4"), Range("e6"))
        Set dati3 = Union(Range("c2"), Range("g4"), Range("f6"))
        
        dati1.Interior.Color = Range("J5").Interior.Color
        dati2.Interior.Color = Range("J6").Interior.Color
        dati3.Interior.Color = Range("J7").Interior.Color
        
        Set dati1 = Nothing
        Set dati2 = Nothing
        Set dati3 = Nothing
        
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  18. #13

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Citazione Originariamente Scritto da quartafeira Visualizza Messaggio
    Quindi il mio sospetto delle formule non era legato alla mia conoscenza limitata...
    Se si potesse limitare in un certo range sarebbe fantasticoso (perchè il calendario è solo una parte del foglio, poi ci sono i conteggi per l'orario, i giorni di presenza, malattie....), se non comporta grosse modifiche, altrimenti lo tengo così!:23:
    Grazie!
    Senza avere il file completo, potremmo darti solo un codice di esempio e poi dovrai adattarlo tu in base alle celle interessate.

    [EDIT]

    Ci stiamo accavallando uno sull'altro con le risposte... :258:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  19. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da quartafeira Visualizza Messaggio
    Quindi il mio sospetto delle formule non era legato alla mia conoscenza limitata...
    Se si potesse limitare in un certo range sarebbe fantasticoso (perchè il calendario è solo una parte del foglio, poi ci sono i conteggi per l'orario, i giorni di presenza, malattie....), se non comporta grosse modifiche, altrimenti lo tengo così!:23:
    Grazie!
    Quarta eccoti il file che fa la ricerca solo sulla parte "calendario"

    Codice: 
    Sub ColoraLaCella()
    
    On Error GoTo finito
    
    
    Dim valor As String
    Dim d As String
    Dim a As String
    
    
    valor = ActiveCell.Value
    d = valor
    
    
    ActiveCell.Copy
    
    
    Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
    Selection.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
        
    a = ActiveCell.Address
    
    
    While d = valor
        ActiveCell.Copy
        Cells.FindNext(After:=ActiveCell).Activate
        If ActiveCell.Address = a Then
            d = ""
            Application.CutCopyMode = False
            Exit Sub
        End If
    
    
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    Wend
           
    Exit Sub
            
    finito:
    
    
    MsgBox ("il valore non è stato trovato")
    
    
    End Sub
    In rosso la modifica (avevo dimenticato l'exit sub)

    Ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  20. #15
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1
    Ho messo Risolto perchè le risposte sono state esaurienti e corrette rispetto a quello che cercavo, se ho sbagliato lo rimetto normale (quello che viene dopo sono tutte migliorie).
    il file è composto da più fogli, uno dei due a cui interesserebbe la personalizzazione della formattazione è questo (quello più semplice, l'altro è da completare perchè mancano dei valori, quindi non lo inserisco).

    l'ideale sarebbe, un range di azione come quello di Ges, che pesca la formattazione solo da quella 7 celle e che copi tutta la formattazione della parte di tabella che mi occorre (B4;AF52) come quella di Baloon_50 (ho visto che nell'ultimo file che copia la formattazione non solo dalla legenda ma da qualsiasi cella, es su ven 1/1/16 metto una formattazione e premo il tasto macro cambia anche quello in legenda)

    Grazie a tutti per la disponibilità.
    File Allegati File Allegati
    ----------------------------------
    sent from time machine

  21. #16

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao Quarta,
    adesso non ho molto tempo, comunque vorrei provare a proporti un'alternativa.
    Solo un'informazione.... Utilizzate tutti la versione 2010 di Excel ?

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  22. #17
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1
    Ok, grazie ancora a tutti!
    (la maggior parte, il 2010, alcuni il 2007, ma se dovesse andar bene solo sul 2010 mi va benissimo, tanto lo vedranno sul cel con WPS)
    Simone
    ----------------------------------
    sent from time machine

  23. #18

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Ciao,
    propongo una mia versione.
    Codice: 
    Sub colora()
        Dim giorno As Object
        Dim wks As Worksheet
        Dim dati As Range
        
        Application.ScreenUpdating = False
        
        Set wks = Worksheets("C3")
        Set dati = wks.Range("A3:AF54")
        
        For Each giorno In dati
            If giorno.Text = Range("AH21").Text Then
                giorno.Interior.Color = Range("AH21").Interior.Color
            ElseIf giorno.Text = Range("AH22").Text Then
                giorno.Interior.Color = Range("AH22").Interior.Color
            ElseIf giorno.Text = Range("AH23").Text Then
                giorno.Interior.Color = Range("AH23").Interior.Color
            ElseIf giorno.Text = Range("AH24").Text Then
                giorno.Interior.Color = Range("AH24").Interior.Color
            ElseIf giorno.Text = Range("AH25").Text Then
                giorno.Interior.Color = Range("AH25").Interior.Color
            ElseIf giorno.Text = Range("AH26").Text Then
                giorno.Interior.Color = Range("AH26").Interior.Color
            ElseIf giorno.Text = Range("AH27").Text Then
                giorno.Interior.Color = Range("AH27").Interior.Color
            End If
        Next
        
        Set wks = Nothing
        Set dati = Nothing
        
        Application.ScreenUpdating = True
        
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  24. #19
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1
    Grazie mille Ges!
    penso che alla fine farò ogni foglio con una soluzione diversa:90:
    ----------------------------------
    sent from time machine

  25. #20

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Citazione Originariamente Scritto da quartafeira Visualizza Messaggio
    Grazie mille Ges!
    penso che alla fine farò ogni foglio con una soluzione diversa:90:
    Ok,
    di soluzioni te ne abbiamo proposte, la scelta spetta a te.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  26. #21

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    ...
    @ges
    Ciao,
    visti i tuoi ultimi progressi col VBA credo che non avresti problemi a proporre una soluzione con esso :32:
    Ciao cromagno,
    spero di essere migliorato almeno un pochino, pur rimanendo lontano da te. :90:
    Ho visto che sopra ci siamo accavallati nelle risposte ...
    Un caro saluto. :43:
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  27. #22

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao cromagno,
    spero di essere migliorato almeno un pochino, pur rimanendo lontano da te. :90:
    Ho visto che sopra ci siamo accavallati nelle risposte ...
    Un caro saluto. :43:
    Ciao ges,
    secondo me sei migliorato molto :246:

    @Quarta
    Questo è un esempio di quello che intendevo (ci potrebbe essere qualche errore... non ho avuto modo di testarlo bene):

    In pratica, per le festività ho lasciato solo la colonna AV (le festività si aggiornano in base all'anno).
    Andando tutto sulla destra troverai le varie impostazioni per ogni collega (naturalmente puoi e devi modificarle come vuoi).
    Quello che devi fare è impostare con i colori quella tabella che ti ho detto prima.

    Per modificare il Calendario ti basta modificare o il nome del collega nella cella B1 oppure l'anno nella cella A2.
    In entrambi i casi verranno richiamate le due macro...
    Una per aggiornare la legenda nella colonna AH e quella successiva per aggiornare il calendario (entrambe nello stesso modulo):

    Codice: 
    Option Explicit
    
    
    Sub Colora_Legenda()
    Dim Nome As String, Col_Legenda As Integer
    
    
    Nome = ActiveSheet.Range("B1").Value
    Col_Legenda = Application.WorksheetFunction.Match(Nome, Range("2:2"), 0)
    Range(Cells(3, Col_Legenda), Cells(19, Col_Legenda)).Copy Range("AH11:AH27")
    Application.CutCopyMode = False
    Range("A2").Select
    End Sub
    
    
    Sub Colora_Calendario()
    Dim i As Integer, j As Integer, Giorno As String, Riga_Giorno As Integer
    Dim Cella As Range, Calendario As Range
    
    
    Set Calendario = Range("B3:AF54")
    For Each Cella In Calendario
        Cella.Interior.Pattern = xlNone
        Cella.Font.ColorIndex = xlAutomatic
    Next
    For i = 3 To 51 Step 4
        For j = 2 To 32
            If Cells(i, j).Value <> "" Then
                Giorno = StrConv(Format(Cells(i, j).Value, "ddd"), vbProperCase)
                For Each Cella In Range("AH21:AH27")
                    If Cella.Value = Giorno Then
                        Cells(i, j).Offset(1, 0).Interior.ColorIndex = Cella.Interior.ColorIndex
                        Cells(i, j).Offset(1, 0).Font.ColorIndex = Cella.Font.ColorIndex
                    End If
                Next
                If Cells(i, j).Offset(3, 0).Value = "Festa" Then
                    Cells(i, j).Offset(3, 0).Interior.ColorIndex = Range("AH15").Interior.ColorIndex
                    Cells(i, j).Offset(3, 0).Font.ColorIndex = Range("AH15").Font.ColorIndex
                End If
                If Cells(i, j).Offset(2, 0).Value = "RIP" Then
                    Cells(i, j).Offset(2, 0).Interior.ColorIndex = Range("AH12").Interior.ColorIndex
                    Cells(i, j).Offset(2, 0).Font.ColorIndex = Range("AH12").Font.ColorIndex
                End If
                If Format(Cells(i, j).Value, "dd/mm/yyyy") = Format(Range("AH18").Value, "dd/mm/yyyy") Then
                    Cells(i, j).Interior.ColorIndex = Range("AH18").Interior.ColorIndex
                    Cells(i, j).Font.ColorIndex = Range("AH18").Font.ColorIndex
                    Cells(i, j).Offset(1, 0).Interior.ColorIndex = Range("AH18").Interior.ColorIndex
                    Cells(i, j).Offset(1, 0).Font.ColorIndex = Range("AH18").Font.ColorIndex
                End If
            End If
        Next j
    Next i
    Set Calendario = Nothing
    End Sub
    Mentre per verificare i cambiamenti nelle celle B1 e A2, il codice è nel modulo di classe del Foglio:

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1:F1", "A2")) Is Nothing Then
        Application.ScreenUpdating = False
        Call Colora_Legenda
        Call Colora_Calendario
        Application.ScreenUpdating = True
    End If
    End Sub
    N.B.
    Non tutti i colori potranno essere presi (c'è un limite anche per il VBA) comunque ti riporterà il colore più simile (es. il rosso scuro e il rosso chiaro).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  28. I seguenti utenti hanno dato un "Like"


  29. #23
    L'avatar di quartafeira
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Italia
    Età
    35
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    1
    Che SPETTACOLO! :93:
    GRAZIE A TUTTI!!!!!
    ----------------------------------
    sent from time machine

Discussioni Simili

  1. [Risolto] formattazione condizionale
    Di homer75 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 07/01/17, 16:20
  2. [Risolto] Formattazione condizionale
    Di BETWEB nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 01/01/17, 23:38
  3. Formattazione Condizionale
    Di RUGANT54 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 30/12/16, 16:04
  4. [Risolto] formattazione condizionale
    Di para siempre nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 03/12/16, 19:01
  5. Formattazione condizionale
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 07/02/16, 15:39

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •