Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

aiuto Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

aiuto Excel

Postdi mincio10 » 21/05/11 16:55

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
mincio10
Newbie
 
Post: 7
Iscritto il: 18/07/10 18:08

Sponsor
 

Re: aiuto Excel

Postdi Avatar3 » 21/05/11 23:32

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
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: aiuto Excel

Postdi mincio10 » 22/05/11 09:12

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 :lol:
mincio10
Newbie
 
Post: 7
Iscritto il: 18/07/10 18:08

Re: aiuto Excel

Postdi Avatar3 » 22/05/11 11:08

Il file inviato contiene la macro ed è funzionante
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: aiuto Excel

Postdi mincio10 » 22/05/11 19:15

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

grazie veramente :)
mincio10
Newbie
 
Post: 7
Iscritto il: 18/07/10 18:08

Re: aiuto Excel

Postdi mincio10 » 22/05/11 23:00

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
mincio10
Newbie
 
Post: 7
Iscritto il: 18/07/10 18:08

Re: aiuto Excel

Postdi Avatar3 » 23/05/11 00:07

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
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: aiuto Excel

Postdi mincio10 » 23/05/11 18:18

PERFETTOOOOOOOOOOO

SEI UN GRANDE 8)
mincio10
Newbie
 
Post: 7
Iscritto il: 18/07/10 18:08


Torna a Applicazioni Office Windows


Topic correlati a "aiuto Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti