aiuto Excel

[mincio10]

mio zio mi ha chiesto di farli su excel un piccolo programmino, ma sto avendo piu difficolta del previsto..cerco di spiegare in breve l'obbiettivo di questo lavoretto..

Ogni giorno ci sono N dipendenti che lavorano,il loro turno cambia giorno x giorno in successione ( cioè se oggi io faccio il turno 1, domani farò il 2, dopodomani il 3 ecc..fino ad arrivare a N e poi ricominciare con il primo), in breve vorrebbe un programma nel quale vede i suoi colleghi che turno fanno in automatico il giorno stesso..
esempio:

DATA TURNO DIPENDENTE
21/05 1 LUIGI
21/05 2 CARLO
21/05 3 MARIO
21/05 4 GIACOMO
21/05 5 CLAUDIO

ECCO, MIO ZIO VORREBBE CHE IN AUTOMATICO IL GIORNO DOPO APRENDO EXCEL VEDA QUESTA COSA CHE SCRIVO QUI DI SEGUITO:

DATA TURNO DIPENDENTE
22/05 1 CLAUDIO
22/05 2 LUIGI
22/05 3 CARLO
22/05 4 MARIO
22/05 5 GIACOMO

E COSI VIA PER GLI ALTRI GIORNI

è POSSIBILE?? GRAZIE MILLEEEE

[Avatar3]

In un Modulo inserisci questo codice

Codice: Seleziona tutto

Sub Turni()
Dim Dip(100) As String
UR = Worksheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
For NDip = 2 To UR
Dip(NDip - 1) = Worksheets("Foglio1").Range("C" & NDip).Value
Next NDip

Sposta = Date - Worksheets("Foglio1").Range("A2").Value
Worksheets("Foglio1").Range("A2:A" & UR).Value = Date
For NDip = 2 To UR - Sposta
Worksheets("Foglio1").Range("C" & NDip + Sposta).Value = Dip(NDip - 1)
Next NDip
Riga = 1
For NDip = Sposta To 1 Step -1
Riga = Riga + 1
Worksheets("Foglio1").Range("C" & Riga).Value = Dip(UR - NDip)
Next NDip
End Sub


Nel codice di apertura file "ThisWorkbook" inserisci la chiamata alla macro "Turni" così

Codice: Seleziona tutto

Private Sub Workbook_Open()
Call Turni
End Sub

All'apertura del file l'elenco si sposterà di una riga per ogni giorno di differenza dalla data esistente nell'elenco stesso
Di una riga in caso di un giorno
di due righe in caso di due giorni
etc

ciao

Allego il file
https://rapidshare.com/files/885657698/Turni.xls

[mincio10]

Grazie avatar gentilissimo..adesso sono collegato con il cellulare e non posso vedere, ma il file excel che mi hai allegato, è gia compreso di macro ecc..e quindi non devo fare niente..oppure devo inserirle io..grazie mille intanto

[Avatar3]

Il file inviato contiene la macro ed è funzionante

[mincio10]

a ok perfetto..grandissimo
quindi quando io domani andrò ad aprire il file..vedrò i turni cambiati? sbaglio o ho capito male?

grazie veramente

[mincio10]

OK PERFETTO..FA PROPRIO QUELLO CHE VOLEVO FACESSE

HO UN ULTIMISSIMA COSA DA CHIEDERTI POI TI RINGRAZIO E TI LASCIO IN PACE

se i dipendenti fossero piu di 5 e quindi i turni piu di 5..devo cambiare qualcosa nella macro..oppure basta inserire una riga in piu con il rispettivo turno e il dipendente?

grazie mille

[Avatar3]

Puoi mettere quanti dipendenti vuoi
io ne ho previsti 100, se ti occorre un numero maggiore puoi modificare questa riga

Codice: Seleziona tutto

Dim Dip(100) As String

per i turni non ci dovrebbero essere problemi

Ciao

[mincio10]

PERFETTOOOOOOOOOOO

SEI UN GRANDE