[RISOLTO] Impostare nomi in base alle date

[tenace55Partecipante 26 Novembre 2018 alle 18:43 Post totali: 26]

#7445 |

Ciao  a tutti
ma mi rivolgo direttamente a Sal prendendo spunto da

https://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. Grazie

http://www.filedropper.com/partiredadata-

Saluti

 

• Questo argomento è stato modificato 2 mesi, 3 settimane fa da  tenace55.
• Questo argomento è stato modificato 2 mesi, 3 settimane fa da  BySalv.

[BySalvAmministratore del forum 27 Novembre 2018 alle 11:25 Post totali: 386]

#7450

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

[tenace55Partecipante 27 Novembre 2018 alle 17:17 Post totali: 26]

#7451

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

[BySalvAmministratore del forum 28 Novembre 2018 alle 8:21 Post totali: 386]

#7458

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

[tenace55Partecipante 28 Novembre 2018 alle 17:48 Post totali: 26]

#7466

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 file

http://www.filedropper.com/partiredadata-2_1

Saluti

[BySalvAmministratore del forum 29 Novembre 2018 alle 7:43 Post totali: 386]

#7476

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

[tenace55Partecipante 29 Novembre 2018 alle 9:51 Post totali: 26]

#7477

Ciao, Sal OK risoltissimo,  potete mettere  [Risolto], a  me non lo fa fare

Saluti

[BySalvAmministratore del forum 30 Novembre 2018 alle 8:21 Post totali: 386]

#7491

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

[tenace55Partecipante 30 Novembre 2018 alle 8:36 Post totali: 26]

#7492

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

 

[BySalvAmministratore del forum 30 Novembre 2018 alle 9:45 Post totali: 386]

#7495

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

online image host
.

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

[tenace55Partecipante 30 Novembre 2018 alle 10:25 Post totali: 26]

#7498

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

[BySalvAmministratore del forum 30 Novembre 2018 alle 12:35 Post totali: 386]

#7499

Ciao, allora le posizioni sono quelle del file?, faccio scrivere i dati in quelle posizioni?

fai sapere, non vorrei fare altre correzioni, Ciao By Sal

[tenace55Partecipante 30 Novembre 2018 alle 12:44 Post totali: 26]

#7500

Ciao, confermo tutto

 

[BySalvAmministratore del forum 30 Novembre 2018 alle 15:24 Post totali: 386]

#7501

Ciao, ecco il file con la modifica

http://www.filedropper.com/partiredadatagiuroultimo—-_1

Ciao By Sal

[tenace55Partecipante 30 Novembre 2018 alle 15:47 Post totali: 26]

#7505

Ciao, scusa Sal   sicuramente mi spiego male.  Provando a cliccare la prima data—>evento(1,2 o 3) più gli operatori va tutto bene vengono nelle colonne predisposte.

Se però prendi solo data2 (colonnap)  –>evento(1,2 o 3)—>operatori mi viene errore.

[/url]

Ciao

[BySalvAmministratore del forum 30 Novembre 2018 alle 16:20 Post totali: 386]

#7506

Ciao ecco la modifica

http://www.filedropper.com/partiredadata2

Ciao By Sal

[tenace55Partecipante 30 Novembre 2018 alle 16:29 Post totali: 26]

#7507

Ciao, non va

Comunque credo di aver dato moltissimo fastidio, chiedo ancora scusa.

Ciao

[BySalvAmministratore del forum 30 Novembre 2018 alle 18:10 Post totali: 386]

#7508

Ciao Cosa non va?, fai sapere

Ciao By Sal

[tenace55Partecipante 30 Novembre 2018 alle 18:39 Post totali: 26]

#7509

Ciao,  mettendo solo la seconda data–>eventi(qualsiasi dei 3)–>operatori viene l’errore di cui sopra

[BySalvAmministratore del forum 1 Dicembre 2018 alle 7:45 Post totali: 386]

#7512

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

[tenace55Partecipante 1 Dicembre 2018 alle 8:55 Post totali: 26]

#7513

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

[BySalvAmministratore del forum 2 Dicembre 2018 alle 8:42 Post totali: 386]

#7516

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.

image upload

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

[tenace55Partecipante 2 Dicembre 2018 alle 9:34 Post totali: 26]

#7517

Ciao Sal , è l’uovo di Colombo semplice e funzionale. Grazie ancora stavolta è [Risoltissimo] giuro.

Ciao

[tenace55Partecipante 29 Novembre 2018 alle 19:38 Post totali: 26]

#7479

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

[Autore]

Articoli