Ogni persona deve poter scegliere uno slot e poi NON modificare niente delle altre prenotazioni e non segnarsi in due sullo stesso slot.
Ho pensato di risolvere il problema impostando due fogli di lavoro di cui uno nascosto (foglio 2)
Nel foglio 1 inserisco 3 colonne: Colonna A data; Colonna B slot orario; Colonna C da compilare con nome
Appena uno compila qualunque cella (colonna C)
Si attiva la macro che
- Codice: Seleziona tutto
a) Cerco la prima cella scritta da C2 a C80
b) Seleziono la cella situata in colonna A in corrispondenza della cella trovata
c) Taglio la cella
d) Mi posiziono in E1 e incollo la cella tagliata
e) Ripeto a
f) Seleziono la cella situata in colonna B in corrispondenza della cella trovata
g) Taglio la cella
h) Mi posiziono in F1 e incollo la cella tagliata
i) Ripeto a
j) Seleziono la cella trovata (colonna C)
k) Taglio la cella
l) Mi posiziono in G1 e incollo la cella tagliata
m) Seleziono l’intervallo E1 G1 e lo taglio
n) Attivo (scopro) il foglio 2
o) Cerco la prima casella vuota in colonna A del foglio 2
p) Seleziono la casella vuota
q) Incollo la selezione tagliata
r) Nascondo il foglio 2 e attivo il foglio 1
s) Esco dalla routine.
Per Excel sono riuscito a fare questo script
- Codice: Seleziona tutto
Sub Prova()
Sheets("foglio1").Select
Range("C1").End(xlDown).Offset(0, -2).Select
Application.CutCopyMode = False
Selection.Cut
Range("E1").Select
ActiveSheet.Paste
Range("C1").End(xlDown).Offset(0, -1).Select
Application.CutCopyMode = False
Selection.Cut
Range("F1").Select
ActiveSheet.Paste
Range("C1").End(xlDown).Offset(0, 0).Select
Application.CutCopyMode = False
Selection.Cut
Range("G1").Select
ActiveSheet.Paste
Range("E1:G1").Select
Selection.Cut
Sheets("Foglio2").Visible = True
Sheets("foglio2").Select
Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.Visible = False
Sheets("foglio1").Select
End Sub
Che funziona anche se non ero riuscito a triggerarlo su cambia valore di qualunque cella.
Però il problema è che lo devo condividere con google sheets e non ho idea di come si scriva il relativo script.
