Risultati da 1 a 23 di 23

Discussione: Gestione ferie e permessi con grafico di gannt



  1. #1
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Gestione ferie e permessi con grafico di gannt

    Salve a tutti. Mi sto dannando a creare un programma che mi permetta di gestire ferie e permessi su diverse persone.
    Il programma sembrava concluso. Mi sono imbattuto su una o più formula che non riesco a gestire.
    Il programma dovrebbe essere così gestito:
    Il file è composto da un foglio principale con i nominativi ed il grafico e tanti fogli per ogni operatore (ora risulta un solo un operatore).
    I dati di inizio ferie/permessi e fine ferie/permessi vengono inseriti sul foglio personale.
    Il problema è nato nella gestione di queste tabelle(ferie e permessi) senza creare formule estremamente lunghe e gestibili.
    Ringrazio anticipatamente a chi volesse aiutarmi.
    Allego file rar
    File Allegati File Allegati

  2. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao Karlo, benvenuto in forumexcel.it
    La tua richiesta rischia di non essere vista perchè non è molto chiara, specifica bene in quale foglio e in quale celle vuoi le formule o codici VBA, poi ti consiglio di fare una domanda alla volta cosi da comletare passo passo il tuo progetto e quindi non ti aspettare un pacchetto chiavi in mano perchè questo è un forum di amatori e non di consulenti
    Aiutaci ad aiutarti!
    Ciao

  3. #3
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Buon giorno.
    Non mi sono reso conto che la richiesta era alquanto incomprensibile per chi la leggeva.
    Riprovo a rimodularla.
    Sul foglio principale ci devono essere i nominativi con i rispettivi giorni dell'anno. Caselle blu per i giorni in licenza e rossi per i giorni in permesso.
    Su questo foglio ci dovrebbero essere le formule collegate con i rispettivi fogli di ogni persona.
    I dati rispettivi ai giorni di permesso o ferie vengono inseriti nei fogli personali.
    Grazie

    ----------Post unito in automatico----------

    Mi sembra che la risposta inviata non abbia avuto successo, non la vedo. La riformulo.
    Grazie Gerardo.
    Sarò più chiaro.
    Mi servirebbe un foglio ecxcel in cui gestire le ferie e i permessi e visualizzarli in un grafico di gannt. Il grafico mi deve far vedere le caselle blu le ferie, quelle rosse i permessi.
    Inoltre mi deve far vedere nel giorno quante persone sono assenti per permessi e ferie.
    Speriamo di aver posto il problema più chiaro.
    Ti ringrazio Ciao

  4. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao Karlo
    Sono molto a favore dei grafici di Gannt (calendari Attività) ma visto che poi alla fine vuoi il conteggio di
    Inoltre mi deve far vedere nel giorno quante persone sono assenti per permessi e ferie
    ti consiglio di fare qualcosa di diverso perchè è difficile contare per colore e quindi con delle forumule molto semplici e la formattazione condizionale potreti raggiungere l'obbiettivo
    Adesso faccio un bozza e poi mi dirai

    ----------Post unito in automatico----------

    Questo è un esempio che ho creato, se va bene ti dico come fare
    Fammi sapere
    Ciao


    Excel 2013 32 bit
    A
    B
    C
    D
    E
    F
    G
    H
    1
    Lun Mar Mer Gio Ven Sab Dom
    2
    Tizio R R F F F
    3
    Caio PR PR F F R
    4
    Semprognio R R F
    5
    Rossi F F F
    6
    Verdi R R PR PR
    7
    Bianchi PR PR
    8
    Brambilla PR PR
    9
    Esposito PR PR F F
    10
    11
    12
    13
    14
    Legenda
    15
    Riposo R
    3
    3
    0
    0
    0
    0
    1
    16
    Ferie F
    1
    1
    1
    2
    3
    2
    1
    17
    Permessi PR
    1
    3
    2
    1
    1
    1
    1
    Sheet: Foglio1

  5. I seguenti 2 utenti hanno dato un "Like" a Gerardo Zuccalà per questo post:


  6. #5
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2134

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao CARLO16, se ho capito bene, copia la seguente nella finestra della formattazione condizionale, dopo aver selezionato l'intervallo B16:NC16 del foglio "CALENDARIO LICENZE"


    =MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore1&"'!$C20:$C29")<=B$3);--(INDIRETTO("'"&operatore1&"'!$D20:$D29")>=B$3))>0
    Inoltre copia in foglio "operatore1" la seguente:

    In E20:
    =SE(E(C20>0;D20>0);DATA.DIFF(C20;D20;"D")+1;"")
    e tira giù.
    Va precisato che la formula da copiare nella finestra della formattazione condizionale riguarda le feri, per cui va estesa anche ai permessi ed eventuali riposi adattandola ai rispettivi intervalli.
    Spero di aver capito bene, fammi sapere.
    Allego il file di prova.
    Ciao.

    ----------Post unito in automatico----------

    Ciao a tutti, in questo post, faccio un'integrazione al post#5 adattando la formula anche ai permessi, pertanto la formula sarà:

    =MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore1&"'!$G20:$G38")<=B$3);--(INDIRETTO("'"&operatore1&"'!$H20:$H38")>=B$3))>0

    Allego il file di prova, fa sapere se va bene.
    Ciao.
    File Allegati File Allegati

  7. I seguenti 3 utenti hanno dato un "Like" a pkrome59 per questo post:


  8. #6
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Grazie pkroma59.
    La programmazione che proponi è stupenda. Perchè non vedo la formula in B16 C16 e......... oltre?
    Altro piccolo particolare avere il conteggio del giorno di tutti i permessi e ferie distinti.

    Gerardo, anche la tua soluzione non è malvaggia.
    Mi piacere sperimentare tale soluzione. Ogni persona però dovrà avere un proprio foglio per inserire dati personali.

    Vi ringrazio di cuore ad entrambi. E' vero l'unione fa la forza.

    ----------Post unito in automatico----------

    Grazie pkroma59.
    La programmazione che proponi è stupenda. Perchè non vedo la formula in B16 C16 e......... oltre?
    Altro piccolo particolare avere il conteggio del giorno di tutti i permessi e ferie distinti.

    Gerardo, anche la tua soluzione non è malvagia.
    Mi piacere sperimentare tale soluzione. Ogni persona però dovrà avere un proprio foglio per inserire dati personali.

    Vi ringrazio di cuore ad entrambi. E' vero l'unione fa la forza.

    pkroma59 un chiarimento, devo inserire circa 50 nominativi, come fare?

  9. #7
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2134

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao KAROL16, basta nominare ogni foglio che aggiungi, rispettando l'impostazione, (tutti i fogli devono avere la medesima impostazione) e adattare le due formule cambiando il nome del foglio di riferimento.
    Nell'allegato ti ho aggiunto un altro foglio come esempio guida.
    Se trovi difficoltà fa sapere, che rimango a disposizione.
    Non copio le formule, perché uguali a quelle del post precedente, col solo cambio dei riferimenti.
    Allego il file di prova, fa sapere.
    Ciao.
    File Allegati File Allegati

  10. #8
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Grazie pkrome59. Ora ho capito il funzionamento. Veramente geniale. Ultima richiesta era se si riusciva ad avere un conteggio rispettivamente di ferie e permessi nell'arco di quel determinato giorno. Cercavo qualche formula che mi conteggiasse le celle di un determinato colore.
    Ho trovato una ipotesi con VSB ma non è nelle mie portate.
    Grazie

    Ti allego file dove ho inserito anche i rispettivi giorni della settimana

    ----------Post unito in automatico----------

    pkrome59 or ora riguardavo il file. Devo fare la formattazione condizionata per ogni nominativo. Non era possibile dare un valore alle celle (tipo "x" "y" ecc) e formattare ogni qual volta trovava quel valore? Così facendo si riusciva a fare anche un conteggio delle celle con "x" o "y".
    In tutti i modi grazie infinite per il tempo che mi stai dedicando
    File Allegati File Allegati

  11. #9
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2134

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao, credo che le seguenti dovrebbero andar bene:

    In B5:
    =SOMMA(MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore1&"'!$C20:$C29")<=B$3);--(INDIRETTO("'"&operatore1&"'!$D20:$D29")>=B$3));MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore2&"'!$C20:$C29")<=B$3);--(INDIRETTO("'"&operatore2&"'!$D20:$D29")>=B$3)))

    In B6:
    =SOMMA(MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore1&"'!$G20:$G38")<=B$3);--(INDIRETTO("'"&operatore1&"'!$H20:$H38")>=B$3)*(--(INDIRETTO("'"&operatore1&"'!$I20:$I38"))));MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore2&"'!$G20:$G38")<=B$3);--(INDIRETTO("'"&operatore2&"'!$H20:$H38")>=B$3)*(--(INDIRETTO("'"&operatore1&"'!$I20:$I38")))))
    entrambe da trascinare verso destra fino al 31 Dicembre.
    Fa sapere se vanno bene, allego il file di prova.
    Ciao.
    P.S La formula in B6 nel file e errata e va sostituita con questa nel post che ho provveduto a correggere.
    Ciao.

    ----------Post unito in automatico----------

    Ciao a tutti, la fretta gioca brutti scherzi, la formula in B6 presenta un altro errore, per cui va corretta nel seguente modo:

    In B6:
    =SOMMA(MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore1&"'!$G20:$G38")<=B$3);--(INDIRETTO("'"&operatore1&"'!$H20:$H38")>=B$3)*(--(INDIRETTO("'"&operatore1&"'!$I20:$I38"))));MATR.SOMMA.PRODOTTO(--(INDIRETTO("'"&operatore2&"'!$G20:$G38")<=B$3);--(INDIRETTO("'"&operatore2&"'!$H20:$H38")>=B$3)*(--(INDIRETTO("'"&operatore2&"'!$I20:$I38")))))
    da tirare verso destra fino al 31 Dicembre.
    Mi scuso, comunque adesso va bene rispetto al file allegato.
    Fa sapere se ti è utile.
    Ciao.
    File Allegati File Allegati

  12. I seguenti utenti hanno dato un "Like"

    ges

  13. #10
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao pkrome59 ho provato ad inserite i reali 50 nomi. Un disastro. A quello mandato ho provato ad aggiungere "operatore3" non visualizza i colori.
    Ho aggiornato anche la formattazione condizionale, nulla da fare. Mi rendo conto delle mie basse conoscenze. Neanche a copiare riesco.
    Nel terzo "operatore3" invece di dare VERO mi da errore "#nome?" proprio dove vado a cambiare "operatore3".
    Scusami per questa mia deficienza.

  14. #11
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2134

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao KAROL16, procedi in questo modo:
    1) Scheda formule>Definisci nome> e assegni A9>operatore1, A10>operatore2; A11>operatore3; ecc..........
    2) Le formule in B17 e in B18 Vanno adattate rispetto al riferimento operatore1, operatore2, operatore3, ecc...... dopo l'adattamento, vanno incollate nella finestra di formattazione, dopo aver selezionato l'intervallo d'interesse e il relativo colore.
    3) Le formule in B17 e in B18 adattate rispetto al riferimento operatore1, operatore2, operatore3, ecc...... vanno aggiunte nelle somme nelle celle B5 e B6 e trascinate fino al 31 dicembre.
    Spero di essere stato chiaro, se ancora hai dei dubbi, allega il file senza dati sensibili col numero di fogli che ti occorrono e ti aiuto ad adattarli.
    Ti allego il file con un terzo operatore sperando di possa essere d'aiuto.
    Fammi sapere ciao.
    File Allegati File Allegati

  15. I seguenti utenti hanno dato un "Like"


  16. #12
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao grazie pkrome59. Così dovrebbe essere ideale per il mio problema. Ora penso solo di inserire quella marea di dati per 50 persone. Queste persone molte volte lavorano per 1 o 2 anni. Quindi ogni volta devo modificare il rispettivo nominativo in tutte le formule (Fogli, calcolo ore, formattazione condizionata ecc.) Sarà dura.

  17. #13
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Gerardo salve.
    La tua bozza di esempio potrebbe andare bene. Solamente che devo creare tanti fogli per ogni nominativo ed al massimo cliccando sul nominativo mi apra il foglio dove inserisco i dati. E' fattibile?
    Grazie

  18. #14
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao pkrome59, dopo nottate perse la soluzione era alle porte per un numero fino a 32 persone.
    Dopo di ciò entra in crash. La mia paura sono l'eccesso di formule.
    Ero arrivato anche a fare un collegamento ipertestuale in modo che cliccando sul nominativo si aprisse il rispettivo foglio. Da qui cliccando su "indietro" ritornasse al foglio principale con il grafico.
    Esiste qualche altra soluzione più dinamica?
    Scusami ancora.

  19. #15
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao Karlo, l'ottima soluzione di Pkrome59 (Che saluto) con ò'iserimento di nuovi diendenti diventa un po pesante come tu stesso hai affermato, sono sicuro che una soluzione con il VBA potrebbe essere l'alternativa migliore, oppure dovresti cambiare approccio al tuo progetto, esempio come ti ho espresso nel post #4
    Un saluto

  20. I seguenti utenti hanno dato un "Like"


  21. #16
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Salve Gerardo.
    Con VBA non sono all'altezza di portare a termine il progetto.(se è per questo, neanche quello che con tanta cura e dedizione mi ha seguito, pkrome59 che saluto con affetto)
    Una prova la vorrei fare con l'esempio che hai postato.
    Puoi spiegarmi l'approccio?
    Saluti

  22. #17
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Gestione ferie e permessi con grafico di gannt

    Per contare le persone assenti, e difficile sommare per colore anche se si potrebbero costruire con il VBA delle funzioni che contano appunto per colore

    Ma io ti consiglio di di inserire le lettere e poi eventalmente mettere la formattazione condizonale
    Comunque per contare le persone assenti (dopo aver messo le lettere)
    in B15 metti questa formula e copiala a estra

    =MATR.SOMMA.PRODOTTO(CONTA.SE(B16:B23;{"PR"."F"."R"}))

    poi per archiviare dati nei fogli degli operatori devi per forza passare al VBA

    A
    B
    C
    D
    E
    F
    G
    H
    I
    J
    3
    NOMI
    01-gen-16
    02-gen-16
    03-gen-16
    04-gen-16
    05-gen-16
    06-gen-16
    07-gen-16
    08-gen-16
    09-gen-16
    4
    Ven
    Sab
    Dom
    Lun
    Mar
    Mer
    Gio
    Ven
    Sab
    14
    15
    2
    2
    4
    4
    5
    3
    6
    6
    2
    16
    operatore1 R R PR PR
    17
    operatore2 F F F F PR PR
    18
    operatore3 R F F F F R
    19
    operatore4 R R PR PR
    20
    operatore5 F F F F
    21
    operatore6 R R PR PR
    22
    operatore7 F F F F
    23
    operatore8 PR PR

  23. I seguenti 2 utenti hanno dato un "Like" a Gerardo Zuccalà per questo post:


  24. #18
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao Gerardo, buona giornata.
    Non è che sia il caso di postare questo progetto in"Domande su Excel VBA e MACRO

    " o puoi allegarmi un file di esempio?

  25. #19
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao a tutti, premesso che non conosco "grafico di gannt"
    Posso sapere cosa succede a fine anno?
    Si cancella tutto oppure si ricomincia con un file vuoto?

    Potrei sapere cosa significano questi dati nei vari fogli:
    RINNOVO 01/05/2016 30/04/2019 15
    AUMENTO 01/06/2016 31/08/2016 40

    Ps, La mentalità del file si può modicare? Non sono daccordo nel creare tanti fogli "operatoreX".

  26. #20
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Ciao Raffaele_53 ben arrivato.
    Ti rispondo alle domande che mi fai:
    -a fine anno per intento dovrebbe ripartire con nuovo anno con le ferie e permessi ancora da usufruire, ripeto intento, tutto da definire ;
    -il dato "RINNOVO" sta a significare che gli è stato rinnovato il contratto a tot ore settimanali;
    -il dato "AUMENTO" sta a significare che da quella data le ore lavorative sono passate da 15 precedentemente a 40 ore settimanali;
    -i relativi fogli personali servono per inserire tutti i dati utili e sensibili per ogni dipendente;

    Tutto si può modificare se si arriva all'intento.

    A proposito, ti ho risposto questa mattina ma non vedo la mia risposta e per questo ti ho nuovamente risposto.
    Salve a sentirci

  27. #21
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Gestione ferie e permessi con grafico di gannt

    Premesso che il progetto è complesso + di natura molto delicato (in caso d'errori manuali e sia nel progetto)
    Il mio intento era farti notare altre "possibilità" (tenendo presente che ACCESS sia meglio ed un'aiuto fisico lo può dare solo una persona vicina od una conoscenza della procedura stessa)

    Solo l'esempio del mio pensiero:
    Premesso che in "MENSIlE" se premi A1 =cambia anno e viene riproposto sotto i permessi & ferie
    Premesso che in "MENSIlE" se premi A4 =cambia mese e viene riproposto sotto i permessi & ferie
    Mensile = visualizza il mese attuale, se inserisi valori (F = ferie, numero = permessi inferiore a 8) ed premi archivia salva nell'annata scritta in A1.
    NB non esiste un controllo che blocchi eventuali altri caratteri e numeri maggiori di 7
    Esiste anche il doppio click sul "operatore" per eventualmente controllare/complettare i dati (attualmente non conosco)

    Un OperativoX va vià?
    Basta cancellare la riga in "MENSIlE"
    Un OperativoX arriva, basta aggiungere una riga alla fine (quando premi archivia verrà salvato)

    Come creare nuova Annata?
    Basta selezionare la riga1 di un DB e copiarla in nuovo foglio
    Copiare "TUTTO" il DB precedente ed incollare/speciale solo i Formatti nel nuovo & rinominare il foglio con DB_ANNO (Ex DB_2017).
    Il codice provederà ad inserire in nomi in base alle scritte in "MENSIlE"
    NB in tutti DB le colonne B:AD serviranno per dati personali

    Il Foglio "Operatori" è un'altro modo d'agire, si potrebbe usarlo come riepilogo UNIVOCO (attualmente nessun codice ci lavora, anche eliminare mensile se si desidera).
    Nel Range (A4:A18) = potrebbero essere i dati personali che finiranno nel DB nelle prime colonne
    Non conoscendo altri dati, mi sono limitato solo alle celle C20:AG31
    Attento da 28 febbraio al 29 febbraio cambia la formula
    Codice: 
    Public Riga As Long
    Option Explicit
    Sub Archivia()
    Dim sh1 As Worksheet: Set sh1 = Worksheets("MENSILE")
    Dim Nome As String: Nome = "DB_" & sh1.Cells(1, 1).Value
    Dim sh2 As Worksheet: Set sh2 = Worksheets(Nome)
    Dim X, Y, Rr, Col, Cc, GG, Ur1, Ur2, Area As Range, Rg As Object
    Col = sh1.Cells(1, 3) - DateSerial(sh1.Cells(1, 1), 1, 1) + 31
    GG = Day(DateSerial(sh1.Cells(1, 1), sh1.Cells(1, 2) + 1, 0))
    Cc = Col
    Ur1 = sh1.Range("A" & Rows.Count).End(xlUp).Row
    Ur2 = sh2.Range("A" & Rows.Count).End(xlUp).Row
    Application.Calculation = xlCalculationManual
        For X = 8 To Ur1
    Inizia:
        Set Area = sh2.Range("A1:A" & Ur2)
        Set Rg = Area.Find(sh1.Cells(X, 1), LookIn:=xlValues, LookAt:=xlWhole)
            If Rg Is Nothing Then
                Ur2 = sh2.Range("A" & Rows.Count).End(xlUp).Row + 1
                sh2.Range("A" & Ur2) = sh1.Cells(X, 1)
                sh2.Range("OH" & Ur2).FormulaR1C1 = "=COUNTIF(RC[-367]:RC[-2],""F"")"
                sh2.Range("OI" & Ur2).FormulaR1C1 = "=SUMIF(RC[-368]:RC[-3],"">0"")"
                GoTo Inizia
            Else
                Rr = Rg.Row
                For Y = 3 To GG + 2
                    sh2.Cells(Rr, Cc) = sh1.Cells(X, Y)
                    If Y = GG + 2 Then Cc = Col Else Cc = Cc + 1
                Next Y
            End If
        Next X
    Set sh1 = Nothing
    Set sh2 = Nothing
    Set Area = Nothing
    Set Rg = Nothing
    Application.Calculation = xlCalculationAutomatic
    MsgBox "fatto"
    End Sub
    Option Explicit
    Sub Riempi()
    Dim sh1 As Worksheet: Set sh1 = Worksheets("MENSILE")
    Dim Nome As String: Nome = "DB_" & sh1.Cells(1, 1).Value
    Dim sh2 As Worksheet: Set sh2 = Worksheets(Nome)
    Dim X, Y, Rr, Col, Cc, GG, Ur1, Ur2, Area As Range, Rg As Object
    Col = sh1.Cells(1, 3) - DateSerial(sh1.Cells(1, 1), 1, 1) + 31
    GG = Day(DateSerial(sh1.Cells(1, 1), sh1.Cells(1, 2) + 1, 0))
    Cc = Col
    Ur1 = sh1.Range("A" & Rows.Count).End(xlUp).Row
    Ur2 = sh2.Range("A" & Rows.Count).End(xlUp).Row
    Application.Calculation = xlCalculationManual
    sh1.Range("C8:AG" & Ur1) = ""
        For X = 8 To Ur1
        Set Area = sh2.Range("A1:A" & Ur2)
        Set Rg = Area.Find(sh1.Cells(X, 1), LookIn:=xlValues, LookAt:=xlWhole)
            If Rg Is Nothing Then
            Else
                Rr = Rg.Row
                For Y = 3 To GG + 2
                    sh1.Cells(X, Y) = sh2.Cells(Rr, Cc)
                    If Y = GG + 2 Then Cc = Col Else Cc = Cc + 1
                Next Y
                sh1.Cells(X, 35) = sh2.Cells(Rr, 398)
                sh1.Cells(X, 36) = sh2.Cells(Rr, 399)
                sh1.Cells(X, 37) = sh2.Cells(Rr, 400)
            End If
        Next X
    Set sh1 = Nothing
    Set sh2 = Nothing
    Set Area = Nothing
    Set Rg = Nothing
    Application.Calculation = xlCalculationAutomatic
    MsgBox "fatto"
    End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:Raffaele_53; 24/06/16 alle 14:21

  28. I seguenti 2 utenti hanno dato un "Like" a Raffaele_53 per questo post:


  29. #22
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Gestione ferie e permessi con grafico di gannt

    Ho aggiornato il post
    Ps Gli zeri nel foglio Operatori sono brutti da vedere, ho preferito non allungare le formule per toglierli.
    Ex =SE(CERCA.VERT($C$1;INDIRETTO($AB$1);RIF.COLONNA()+28;FALSO)="";"";CERCA.VERT($C$1;INDIRETTO($AB$1);RIF.COLONNA()+28;FALSO))
    So che esiste la possibilità in Excel di non visualizzarli, mà non saprei come

  30. I seguenti utenti hanno dato un "Like"


  31. #23
    L'avatar di KARLO16
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Cagliari
    Messaggi
    193
    Versione Office
    excel 2013
    Likes ricevuti
    0
    Likes dati
    16

    Re: Gestione ferie e permessi con grafico di gannt

    Perfetto è quello che avevo in mente. Complimenti sono molto soddisfatto del risultato. Ora lo incremento delle ulteriori voci sensibili. RISOLTO

Discussioni Simili

  1. [Risolto] gestione ferie fase due
    Di marco71 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 19/12/16, 17:31
  2. gestione ferie
    Di marco71 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 17/12/16, 16:26
  3. Diagramma di Gannt con errore #VALORE
    Di ieda72 nel forum Domande sui Grafici di Excel
    Risposte: 5
    Ultimo Messaggio: 06/06/16, 16:52
  4. Diagramma di Gannt con errore #VALORE
    Di ieda72 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 06/06/16, 16:52
  5. Limitazione permessi file sola lettura
    Di Diegus nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 07/03/16, 18:06

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
  •