Ciao a tutti, sto per porre un quesito non di facile
soluzione (almeno per me). E' da anni che faccio scrivo su
una griglia fatta in excel, la programmazione dei turni
per 17 lavoratori. Mi chiedevo se ci fosse la possibilità
di automatizzare il tutto con il VBA.
In pratica nei turni notturni feriali vengono utilizzate 3
persone, nei prefestivi e festivi diurni 5 persone e nei
prefestivi e festivi notturni 4 persone.
Faccio un esempio solo con 5 lavoratori per non complicare
troppo le cose
1)rossi
2)verdi
3)neri
4)bianchi
5)gialli
Nella colonna A ho i nominativi dei 5 lavoratori ripetuti
su una cinquantina di righe
In pratica se nella colonna C scrivo 1/4/2004 che è un
notturno feriale (quindi solo 3 lav. in servizio), vorrei
che nella colonna B, ripetuto in b1,b2,b3 venisse scritto
1N
Se nella colonna C scrivo 2/4/2004 che è un notturno
feriale (quindi solo 3 lav in servizio), vorrei che nella
colonna B, ripetuto in b3,b4,b5 venisse scritto 2N
Se invece nella colonna C scrivo 3/4/2004 che è un
prefestivo (quindi 9 lav. in servizio di cui 5 la matt. e
4 la notte), vorrei che nella colonna B, ripetuto in
b6,b7,b8,b9,b10, venisse scritto 3P ed in b11,b12,b13,b14
venisse scritto 3PN.
E cosi via.fino al 30 o 31 del mese
Col. A Col. B Col. C
1 1 rossi 1n gio 01/04
2 2 verdi 1n gio 01/04
3 3 neri 1n gio 01/04
4 4 bianchi 2n ven 02/04
5 5 gialli 2n ven 02/04
6 1 rossi 2n ven 02/04
7 2 verdi 3p sab 03/04
8 3 neri 3p sab 03/04
9 4 bianchi 3p sab 03/04
10 5 gialli 3p sab 03/04
11 1 rossi 3p sab 03/04
12 2 verdi 3pn sab 03/04
13 3 neri 3pn sab 03/04
14 4 bianchi 3pn sab 03/04
15 5 gialli 3pn sab 03/04
16 1 rossi 4f dom 04/04
17 2 verdi 4f dom 04/04
18 3 neri 4f dom 04/04
.......
Capisco che non è facile trovare una soluzione al
problema, ma se qualcuno potesse avviarmi alla soluzione e
darmi un aiuto, ve ne sarei grato.
Ciao e grazie mille
l'unica cosa che posso fare è indicarti il percorso di un
file Excel (freeware), impostato in VBA che puoi cercare di
adattare alle tue esigenze.
Facci sapere se il lavoro è buono, anche perché si tratta di
un quesito ricorrente su questo NG.
Clicca su questo link
Arrivi su una pagina blu e clicca su ENTRA.
Ti appare un messaggio con scritto "Attenzione": clicca in
fondo al messaggio su "procedo".
Ti appare la Home page di Ennius: in alto a destra c'è il
link "I vostri lavori".
Clicca su questo link ed entri nella sezione: infine clicca
su "Michele 1947 (3)".
Questo è tutto, non è difficile, provaci e andrà tutto bene,
ok?
Ciao
Alfonso
****************
Perché con il VBA?
Prova questa in C1:
=SE(O(GIORNO.SETTIMANA($C$1;2)=6;GIORNO.SETTIMANA($C$1;2)=7)
;"";"1N")
La scrivi in B1, B2, B3.
Per giorni feriali ho inteso sia il sabato sia la domenica.
Se invece hai un elenco, puoi utilizzare un CERCA.VERT
--
Ciao, facci sapere se risolvi:-)
Alfonso Spagnuolo