Macro con riporto del veicolo nella riga successiva alle presenze
Ma ho forti dubbi riguardo alla possibilità di avere più auto su giorni che si accavallano es.:
CAMPER 06-apr-12 9-apr-12
BARCA 06-apr-12 9-apr-12
In un camping ci sono più posti auto, camper, barca ma nello schema di excel così impostato si ha un solo posto (una sola cella) per giorno quindi prevarrà l'ultima riga processata, in questo caso risulterà solo la Barca.
- Codice: Seleziona tutto
Sub CalcolaPresenze()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Set Ws1 = Worksheets("Arrivi-Partenza")
Set Ws2 = Worksheets("Calendario")
Ws2.Range("B3:AF4,B6:AF7,B9:AF10,B12:AF13,B15:AF16,B18:AF19,B21:AF22,B24:AF25,B27:AF28,B30:AF31,B33:AF34,B36:AF37").ClearContents
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
DataA = Ws1.Range("B" & RR1).Value
DataP = Ws1.Range("C" & RR1).Value
NP = Val(Replace(Ws1.Range("D" & RR1).Value, "+CANE", ""))
Veic = Ws1.Range("A" & RR1).Value
For Pre = DataA To DataP
MP = Month(Pre)
GP = Day(Pre)
Ws2.Cells(MP * 3, GP + 1).Value = Ws2.Cells(MP * 3, GP + 1).Value + NP
Ws2.Cells(1 + MP * 3, GP + 1).Value = Veic
Next Pre
Next RR1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Chiaramente dovrai aggiungere una riga ad ogni mese e formattarla coerentemente al mese di appartenenza.
E' sicuramente possibile controllare l'orario di uscita e assegnare o no il giorno di presenza (questa è una cosa più sensata rispetto al veicolo)
ciao