[RISOLTO] Impostare nomi in base alle date

[tenace55]

#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 topic è stato modificato 1 anno, 7 mesi fa da tenace55.
• Questo topic è stato modificato 1 anno, 7 mesi fa da BySalv.

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#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

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#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

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#7477

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

Saluti

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#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

 

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#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

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#7500

Ciao, confermo tutto

 

[BySalv]

#7501

Ciao, ecco il file con la modifica

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

Ciao By Sal

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#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

[BySalv]

#7506

Ciao ecco la modifica

http://www.filedropper.com/partiredadata2

Ciao By Sal

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#7507

Ciao, non va

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

Ciao

[BySalv]

#7508

Ciao Cosa non va?, fai sapere

Ciao By Sal

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#7509

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

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#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

[BySalv]

#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

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

[tenace55]

#7517

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

Ciao

[tenace55]

#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]

Post