Home › Forum › Domande su Excel Generale › [RISOLTO] Impostare nomi in base alle date
Tag: Userform Eventi
-
AutoreArticoli
-
#7445 |
Ciao a tutti
ma mi rivolgo direttamente a Sal prendendo spunto dahttps://www.freeforumzone.com/discussione.aspx?idd=10481311
si potrebbe ordinare la turnazione di operatori nelle combobox 2, 3 e 4 in base alla data (combobox1) ed inserirla nelle celle adiacenti b2, c2,d2 come nel foglio “prospetto”, esempio inserendo la data 28/11/2018 andrebbero nelle celle b3,c3,d3 e cosi via . Allego file. Spero in un aiuto. Graziehttp://www.filedropper.com/partiredadata-
Saluti
-
Ciao prova a cambiare i codice del CommandButton con questo:
Private Sub CommandButton1_Click() Dim idx, x idx = ComboBox1.ListIndex + 1 With Sheets("Prospetto") .Cells(idx, 2) = ComboBox2 .Cells(idx, 3) = ComboBox3 .Cells(idx, 4) = ComboBox4 End With For x = 1 To 4 Controls("Combobox" & x) = "" Next x ComboBox1.SetFocus End Sub
se ho compreso bene il problema
Ciao By Sal
-
Ciao a tutti, è ciò che cercavo ma se aggiungiamo un’altra combobox per definire un altro tipo di evento?
Comunque la disquisizione sul topic da cui ho preso spunto è semplicemente fantastica. Allego file
http://www.filedropper.com/partiredadata-2
Ciao e grazie
-
Ciao il discorso è sempre lo stesso, basta aggiungere una riga nel codice con il prossimo elemento.
Private Sub CommandButton1_Click() Dim idx, x idx = ComboBox1.ListIndex + 1 With Sheets("Prospetto") .Cells(idx, 2) = ComboBox2 .Cells(idx, 3) = ComboBox3 .Cells(idx, 4) = ComboBox4 .Cells(idx, 5) = ComboBox5 End With For x = 1 To 5 Controls("Combobox" & x) = "" Next x ComboBox1.SetFocus End Sub
Ciao By Sal
-
Ciao a tutti, Sal non sono riuscito a spiegarmi bene ciò che mi servirebbe è
1°) partire dalla data
2°) con una combobox scegliere il tipo di evento
3°) aggiungere gli operatori sempre con celle adiacenti ma diverse
dalle colonne a,b,c,un pò come era nel topic
https://www.freeforumzone.com/discussione.aspx?idd=10481311
dove c’e settimana (a me data), dimostratrice1,2ecc (a me evento1,2 ecc).
Spero di essere stato chiaro. Grazie Ciao
Allego filehttp://www.filedropper.com/partiredadata-2_1
Saluti
-
Ciao ecco la modifica, non avevo capito il problema degli eventi, non c’era nel tuo file.
questa la modifica del CommandButton
Private Sub CommandButton1_Click() Dim idx, c, x, Ev idx = ComboBox1.ListIndex + 1 Ev = ComboBox5 Select Case Ev Case "Evento1": c = 2 Case "Evento2": c = 5 Case "Evento3": c = 8 End Select With Sheets("Prospetto") .Cells(idx, c) = ComboBox2 .Cells(idx, c + 1) = ComboBox3 .Cells(idx, c + 2) = ComboBox4 End With For x = 1 To 5 Controls("Combobox" & x) = "" Next x ComboBox1.SetFocus End Sub
ti ho modificato anche il rowsource dei combobox2-3-4, perche mi trovavo sempre alla fine della ricerca, anche il nome degli Eventi in maiuscolo.
il link al file
https://mega.nz/#!oNlxhCYY!xmM6YZuzGBeWT4yM6K-agvLbNA3dydTlFx4mhmy0w0M
Ciao By Sal
-
Ciao ti ho riaperto la discussione, ma non è chiara la tua spiegazione, hai il primo elenco con gli eventi, dalla colonna “A”.
poi un altro elenco colonna “P” che chiami “Evento1” a questo Evento1, ci sono di nuovo “Evento1-2-3”, cosa ci andrebbe?.
Ciao By Sal
-
Cia Sal chiedo scusa ieri ero veramente nel pallone, nella colonna P ci sono : Date 2 con i tre eventi. Nelle userform si dovrà scegliere una delle due date , i vari eventi collegati alle date e quindi gli operatori (che fatica, scusami).
http://www.filedropper.com/partiredadatagiuroultimo—-
Ciao e mille grazie
-
Ok, 2 serie di date, prendiamo il 27/11/18, esiste solo nella seconda serie colonna P.
ma quando esiste in entrambe le serie, come il 28/11/18, i tre operatori vanno scritti in entrambe le serie per lo stesso evento?.
come li gestisce poi se gli eventi sono in punti differenti.
oppure ammettendo che siano gli stessi operatori e nella prima serie vedono l’evento1 e nella seconda serie vedrebbero l’evento2, hanno anche un ordine di tempo cioè l’evento1 della prima serie alle 10:00 e l’evento2 della seconda serie alle 15:00.mi sembra che manchi qualcosa, asp… se mi ricordo bene già ho trattato un argomento simile, vedo se trovo il file.
trovato, vedi immagine, questo gestisce gli eventi, per sale, con data ed orario
Comunque fammi sapere la prima parte, di come gestire gli eventi posso anche far scrivere lo stesso evento nelle 2 serie per la stessa data.
Ciao By Sal
-
Ciao, se le due date corrispondono ovviamente gli operatori non possono essere negli stessi eventi, non hanno un ordine di tempo è per tutto l’evento. Si, va bene scrivere lo stesso evento nelle 2 serie per la stessa data.
Grazie, ciao
-
Ciao, ecco il file con la modifica
http://www.filedropper.com/partiredadatagiuroultimo—-_1
Ciao By Sal
-
-
-
Ciao ho commesso un errore nella macro, ecco quella giusta
Private Sub CommandButton1_Click() Dim idx1, idx2, c, cc, x, Ev Ev = ComboBox5 Select Case Ev Case "Evento1": c = 2: cc = 18 Case "Evento2": c = 5: cc = 21 Case "Evento3": c = 8: cc = 24 End Select idx1 = ComboBox1.ListIndex If idx1 = -1 Then GoTo 1 idx1 = idx1 + 2 With Sheets("Prospetto") .Cells(idx1, c) = ComboBox2 .Cells(idx1, c + 1) = ComboBox3 .Cells(idx1, c + 2) = ComboBox4 End With 1: idx2 = ComboBox6.ListIndex If idx2 = -1 Then Exit Sub idx2 = idx2 + 2 With Sheets("Prospetto") .Cells(idx2, cc) = ComboBox2 .Cells(idx2, cc + 1) = ComboBox3 .Cells(idx2, cc + 2) = ComboBox4 End With For x = 1 To 6 Controls("Combobox" & x) = "" Next x ComboBox1.SetFocus End Sub
http://www.filedropper.com/partiredadata2_1
Ciao By Sal
-
Ciao Sal, OK ora è a posto, avevo trovato una soluzione sicuramente meno elegante ma per me (il mio capo) ottima .
Per me andava benissimo quella che mi ha fatto chiudere il topic. La mia (povera ma funzionale)soluzione era quella di unire le due date (col. A e B) in un unica colonna (C) con la matriciale ={MIN(SE($A$1:$B$500>OGGI()-1;$A$1:$B$500))} in C1, ; ={MIN(SE($A$1:$B$500>C1;$A$1:$B$500))} in C2 e tirare giu con il mouse. Che ne pensi?
Ciao
-
Ciao, va bene, il capo ha sempre ragione.
Però se posso dire la mia, l’impostazione credo sia sbagliata, una migliore gestione potrebbe essere l’esempio che ti allego, senza formule, userform o altro.
basta scrivere solo il numero 1-2-3-4-5 dell’evento sotto il nominativo, ho previsto 5 eventi, ma il numero può aumentare.
per cambiare basta modificare o cancellare il numero nella cella.
le date sono Progressive con una formula, se cambi la prima le altre si modificano
In questo modo si ha subito visibile quale persona è assegnata a quell’evento.
http://www.filedropper.com/partiredadata2_2
Ciao By Sal
-
Ciao a tutti, chiedo veramente scusa perché non so se si può riaprire il topic, vi autorizzo a fucilarmi ma al mio capo non va bene niente.
Nel topic risolto stamane (per me era ottimo) si potrebbe inserire un’altra variabile cioè un’altra serie di date.
Quindi si deve tener conto delle due serie di date e gli eventi. E’ sicuramente l’ultima, poi lo mando a quel p…
Allego file
http://www.filedropper.com/partiredadatagiuroultimo
Chiedo di nuovo scusa . Ciao
-
AutoreArticoli
La discussione ‘[RISOLTO] Impostare nomi in base alle date’ è chiusa a nuove risposte.