Cambio colore se le giornate lavorative continue sono uguali

[Simo1]

Buon giorno il mio quesito è questo:
In una griglia con NOME dipedndete in A2 e i giorni del mese da A3 a A32, vorrei che se la somma dei giorni lavorativi continuativi, in base i turni che sono 1 2 3 C con le varianti x gli straordinari, siano uguale o maggiore di 6 la cella A2 cambi colore. Ovviamente la variabile che non permette alla cella di camviare colore è un riposo o ferie o malattia.

Spero di non aver fatto troppa confusione nello scrivere e che sia comprensibile. Grazie ancora

[Simo1]

Scusate ho sbagliato a scrivere la condizione della tabella..... A2 NOME DIPENDENTE da C3 a AG3 giorni del mese

Grazie

[zsadist]

Verso le 9.00 ti potrò dare indicazioni più precise, ora sono con il cellulare..
Comunque, se hai modo, per ora, prova da solo: usa la formattazione condizionale...

A dopo..

[zsadist]

Allora
premesso che sono un pò duro nel capire le cose, ti dico ciò che ho capito:
in base alla somma di un tot di range, vuoi che al totale di 6 o maggiore di esso, una cella (A2) cambi colore

se ho capito bene, potresti usare la formattazione condizionale:

selezioni la cella A2



quindi, va su Formattazione condizionale e selezioni "Nuova Regola"



qui selezioni "Utilizza una formula per determinare le celle da formattare"



ora puoi scrivere la formula:

nell'esempio della figura, ho immesso la formula

= (ATTENZIONE, sempre il segno "=" prima)

=SOMMA($C$3:$AG$3)>=6

cioè, se la somma del range C3:AG3 è uguale a 6

poi clicchi su "Formato" e scegli il colore, il carattere, il riempimento che deve variare all'avverarsi della condizione di cui sopra

clicca su OK

ti appare questa maschera



clicca su Applica e poi su OK (o direttamente su OK)

spero sia questo che ti serva, altrimenti non ho capito nulla

[Anthony47]

@Simo: Nell'ipotesi che la cosa difficile sia individuare la formula che serve per la formattazione condizionale devi pero' dirci come vengono popolate le celle C3:AG3 (quali valori, quali sigle, e il loro significato).

Ciao

[zsadist]

@Simo: Nell'ipotesi che la cosa difficile sia individuare la formula che serve per la formattazione condizionale devi pero' dirci come vengono popolate le celle C3:AG3 (quali valori, quali sigle, e il loro significato).

Ciao

vero anche questo..

più che altro gli ho fatto un esempio di come lavora la formattazione condizionale

[Simo1]

Hehehehe avete ragione vi metto un esempio con un file Excel. Perché infatti il procedimento che hai segnato su lo so fare anch io..... E perché mi sono espresso come una gallina nella spiegazione. A breve metto esempio del file e di cosa deve riportare in automatico. Grazie per la pazienza

[zsadist]

Ahhh ecco
Allora attendiamo il file..

Beh.. è anche vero che prima di lunedì non ci potrò lavorare

[Simo1]

http://www.filedropper.com/prova_1

Ecco il file

[Anthony47]

Il contenuto del file non quadra con la richiesta iniziale (colorare una cella se ci fossero >=6 giornate di servizio continuativo). Ora mi pare che vorresti evidenziare direttamente i periodi e non una cella /un nominativo.
Inoltre hai gia' numerose formattazioni condizionali con varie colorazioni.

Dovresti quindi chiarire quale e' la richiesta; inoltre vorrei sapere orientativamente quanti nominativi sono in gioco per avere margine di manovra nella risposta; in particolare io mi sarei orientato a lasciare le formattazioni condizionali esistenti e a creare una seconda area esplicitamente dedicata alla segnalazione di "troppi turni consecutivi".

Ciao

[Simo1]

Ok. tipo sulla cella del nome va bene! I nominativi sono 17

[Anthony47]

Non ho capito bene la risposta...
Guarda, preferisco andare su una macro che si fatica meno.
Inserisci questo codice in un "Modulo Standard del vba":

Codice: Seleziona tutto

Sub Checkout()
Dim pPausa, LNomi As String, LastA As Long, I As Long
Dim WDCnt As Long
'
pPausa = Array("R", "F", "P", "A")          '<<< Le sigle che interrompono la sequenza lavorativa
LNomi = "A5"                                '<<< La cella dove cominciano i nomi
'
mymatch = Application.Match("F", pPausa, False)

LastA = Cells(Rows.Count, 1).End(xlUp).Row
Range(LNomi).Resize(LastA, 32).Interior.Color = xlNone
Range(LNomi).Resize(LastA, 32).Font.Color = RGB(0, 0, 0)

For I = Range(LNomi).Row To LastA
    WDCnt = 0
    For j = 2 To 31
   mymatch = Application.Match(Cells(I, j), pPausa, False)
        If IsError(Application.Match(Cells(I, j), pPausa, False)) Then
            WDCnt = WDCnt + 1
            If WDCnt >= 6 Then
                Cells(I, 1).Interior.Color = RGB(255, 0, 0)
                Cells(I, j).Offset(0, -WDCnt + 1).Resize(1, WDCnt).Font.Color = RGB(255, 0, 0)
            End If
        Else
            WDCnt = 0
        End If
    Next j
   
Next I
End Sub


Le righe marcate <<< vanno personalizzate come da commento

Quando hai i turni pronti allora manda in esecuzione la Sub Checkout: i nominativi che hanno 6 giorni consecutivi di turni lavorativi avranno lo sfondo colorato di Rosso, e le giornate che creano questa situazione avranno le scritte in caratteri Rossi (non ho usato lo Sfondo perche' gia' ampiamente manipolato con la formattazione condizionale)

Per inserire la macro nel posto giusto, vedi viewtopic.php?f=26&t=103893&p=647675#p647675
Per le opzioni per mandare in esecuzione una macro, viewtopic.php?f=26&t=103893&p=647678#p647678

Dopo l'inserimento della macro il file va salvato nel formato .xlsm (macro enabled)

Fai sapere...

[Simo1]

Nn succede niente... :-(

[Anthony47]

Nn succede niente... :-(

Devi prima accendere il computer...
Poi prova sul file che hai pubblicato; se hai difficolta' con le istruzioni spiega dove non ti trovi...

Ciao

[Simo1]

Ho provato a copiare la macro nel foglio excel che ho postato salvandolo come xlsm ma non accade nulla. Inserendo 6 o 7 giorni lavorativi continui la cella di riferimento del nome nn cambia. Cosa posso aver sbagliato?

[Anthony47]

Pubblica il file su cui stai provando, con la macro gia' inserita, e vedremo di trovare la gabola...

[Simo1]

http://www.filedropper.com/69633

Ecco
Grazie mille

[Anthony47]

Confermo la validita' del codice. Per gestire meglio eventuali tabelle con righe vuote possiamo aggiungere un If Cells(I, 1) <> "" Then /End If, come evidenziato nel codice sottostante; ho inoltre aggiunto un messaggio a fine macro per confermarne l'esecuzione:

Codice: Seleziona tutto

Sub Checkout()
Dim pPausa, LNomi As String, LastA As Long, I As Long
Dim WDCnt As Long, RepCnt As Long
'
pPausa = Array("R", "F", "P", "A")          '<<< Le sigle che interrompono la sequenza lavorativa
LNomi = "A5"                                '<<< La cella dove cominciano i nomi
'
mymatch = Application.Match("F", pPausa, False)

LastA = Cells(Rows.Count, 1).End(xlUp).Row
Range(LNomi).Resize(LastA, 32).Interior.Color = xlNone
Range(LNomi).Resize(LastA, 32).Font.Color = RGB(0, 0, 0)

For I = Range(LNomi).Row To LastA
If Cells(I, 1) <> "" Then
    WDCnt = 0
    For j = 2 To 31
   mymatch = Application.Match(Cells(I, j), pPausa, False)
        If IsError(Application.Match(Cells(I, j), pPausa, False)) Then
            WDCnt = WDCnt + 1
            If WDCnt >= 6 Then
                RepCnt = RepCnt + 1
                Cells(I, 1).Interior.Color = RGB(255, 0, 0)
                Cells(I, j).Offset(0, -WDCnt + 1).Resize(1, WDCnt).Font.Color = RGB(255, 0, 0)
            End If
        Else
            WDCnt = 0
        End If
    Next j
End If
Next I
MsgBox ("Completato, " & RepCnt)
End Sub


Ti ricordo cosa fa la macro:

Quando hai i turni pronti allora manda in esecuzione la Sub Checkout: i nominativi che hanno 6 giorni consecutivi di turni lavorativi avranno lo sfondo colorato di Rosso, e le giornate che creano questa situazione avranno le scritte in caratteri Rossi (non ho usato lo Sfondo perche' gia' ampiamente manipolato con la formattazione condizionale)

Se non ti funziona dovresti dire
-il metodo che usi per attivare la macro
-che cosa succede sul tuo elenco
-cosa dice il messaggio di chiusura

Ciao

[Simo1]

Ok la riprovo per aggiungere la macro faccio alt f11 seleziono il vba project che mi interessa e faccio inserisci modulo.... Copio questa macro salvo, il file è già in xlsm e dovrebbe essere tutto ok no?

[zsadist]

Si, ma poi la devi richiamare per avviarla.. non si attiva da sola