Saltare sabati e domeniche
Hai un problema con Excel? 
Saltare sabati e domeniche
di Nena88 (utente non iscritto) data: 03/08/2015 15:31:17
Ciao a tutti...Ho un problema... data ad esempio la data 1/06/2015 ho due giorni tempo per compiere un'attività. Se ci impiego più di due giorni l'attività è eseguita Overtime, viceversa sarà On time. Se la data di start dell'attività è di venerdi la data di scadenza ultima sarebbe il martedì successivo (ovvero l'attività è on time fino a martedi e overtime dal mercoledi in poi). Non riesco a scrivere il codice.
Io sono nuovissima con VBA, spippolando sul forum ho trovato dei codici che girano, ma facendo dei test non mi danno il risultato corretto.
Potete aiutarmi...non capisco dove sbaglio!!! Sono solo due settimana che ho iniziato con VBA!!!!
Grazie a chi risponderà!!!!!!!!!!!
Public
Data = Sheets("Operativo").Cells(KP, 9) 'imposta come data di partenza la MO date
LT = 2 'imposta lead time
Num_Giorni = LT 'definisce variabile di incremento dei giorni LT
Do While Num_Giorni > 0
If Weekday(Data, 2) < 6 Then 'calcola se è un giorno lavorativo o weekend
Festività = False
If Not Festività Then Num_Giorni = Num_Giorni - 1 ' se non è festivo mi scala di 1 giorno il LT
End If
Data = Data + 1 'Incrementa la data di 1 e guarda se è festivo o no
Loop
If Data - Sheets("Operativo").Cells(K, 9) <= LT Then
Sheets("Operativo").Cells(KP, 4).Value = "On Time"
Else
Sheets("Operativo").Cells(KP, 4).Value = "Overtime"
End If |
di Vecchio Frac data: 03/08/2015 15:52:37
@nena88
Gentilmente inizia una nuova discussione. Questa purtroppo è finita come risposta a una discussione già iniziata da frankmac.
di alfrimpa data: 03/08/2015 15:57:07
Ciao Nena e benvenuta.
Ti sei accodata, probabilmente non volendo, ad una discussione preesistente.
Per avere maggiore visibilità ti consiglio di aprirne una nuova "tua" e di allegare un file di esempio dove illustri la situazione di partenza ed il risultato che vuoi ottenere (riporta anche l'intero codice che eventualmente hai scritto).
Alfredo
Vuoi Approfondire?