Combobox in foglio di excel

Salve, ho un problema con la combobox. In un foglio ho inserito delle combobox attraverso la quale inserisco un'informazione. Usando la combobox scelgo la materia e la visualizzo nella cella stessa della combobox, nella cella a sinistra vorrei vedere il docente corrispondente. Tenendo a mente che più docenti svolgono la stessa materia. E' possibile? Allego il file d'esempio
Grazie

Ciao llucia era meglio se postavi in domande e risposte.

La combobox è controllo modulo o ActiveX?

Comunque allega un file spiegando su questo cosa vuoi fare.

Scusami se ho postato male. Anzi pensavo di avere allegato il file!

Allora Lucia innanzi tutto cancella una delle due combobox (ne serve una sola) e tra le proprietà di quella rimasta cancella la LinkedCell.

Inserisci questo codice nel modulo del foglio1



e questo associato alla combobox



Ogni volta che selezionerai una cella delle colonne D, F, H, J, L ed N alla sua destra compare la combobox dove potrai sceglie la voce e questa verrà inserita nella cella precedentemente selezionata.

Ti allego il file e fai sapere.

Perfetto! Grazie mille Alfredo!! L'unica cosa, siccome alcune colonne saranno nascoste (D,F, ecc), la combo si dovrebbe attivare nelle colonne dove compare il giorno della settimana e visualizzare la materia e non il docente.

Quindi le colonne saranno la E, G, H, I, K M ed O?

La materia in quale cella va inserita? in corrispondenza dell'orario?

O preferisci che la combo sia fissa al di fuori della tabella?

Ciao Alfredo. Nella colonna E (per esempio) la materia e, nella cella a fianco il docente. Le combo vanno bene in ogni cella. Ti allego una immagine di esempio.

Scusa Lucia ma ripensandoci (tu mi hai portato fuori strada😁) ma a cosa ti servono le combobox?

Non bastano delle convalide dati per i docenti e dei CERCA.VERT() per pescare la materia?

Che utilità ti danno in più le combobox?

Scusa Alfredo se ti ho portato fuori strada. Non ho usato la convalida perchè riesco a vedere una sola colonna, di conseguenza ho la possibilità di mettere la materia ma non so quale docente la svolge. Per il cerca.vert non l'ho usato perchè più docenti hanno la stessa materia e ho bisogno di fare anche il conteggio delle ore anche per singolo docente oltre che per la materia relativa. Se c'è una soluzione più pratica accetto proposte! So di essere un po' contorta!

Ma nella convalida vedresti solo il docente qual è il problema?

Devi vedere contemporaneamente docente e materia?

Si dovrei vedere contemporaneamente docente e materia in modo da scegliere quale docente deve svolgere quella materia.

Ok a domani

Buongiorno Lucia

Ti allego nuovo file fammi sapere cosa ne pensi.

Ciao Alfredo, non so se lo hai provato. Con la funzione cerca.vert non funziona perchè mi trova la prima occorrenza. Per esempio se pluto deve fare italiano non mi permette di impostarlo perchè mi trova prima storia, quindi mi inserisce per pluto storia.
Vorrei fare la scelta della materia e del docente nelle colonne dove sono i giorni della settimana, perchè le altre, successivamente le dovrò nascondere.

Ma un docente può fare più materie?

Se pippo fa italiano e storia tu scegli prima pippo e poi italiano o storia?

Si stessi docenti possono svolgere più materie e più materie possono essere fatte da diversi docenti. Ecco perchè la combo. Perchè in questa maniera posso scegliere la materia ed il docente specifico che compare dall'elenco. Poi le colonne dove compaiono i nomi dei docenti verrebbero nascoste in modo che , in un altro foglio calcoli le ore di lezione per materia e per docente.

Buongiorno Lucia

Prova a vedere il file allegato.

Clicca sul pulsante Maschera e fammi sapere.

Ciao Alfredo, ho risolto così:

In Foglio1

Option Explicit

Dim ur As Long
Dim i As Long

Private Sub ComboBox1_Change()
With ComboBox1
If .ListIndex >= 0 Then
ActiveCell.Offset(0, 0) = .List(.ListIndex, 0)
ActiveCell.Offset(0, -1) = .List(.ListIndex, 1)
End If
End With
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E:E,G:G,I:I,K:K,M:M,O:O")) Is Nothing Then
cmbOrario.Top = Target.Top
cmbOrario.Left = Target.Left
ur = Worksheets("DocentiMaterie").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Foglio1").ComboBox1
.Clear
.ColumnCount = 2
For i = 2 To ur
.AddItem Worksheets("DocentiMaterie").Cells(i, 2)
.List(i - 2, 1) = Worksheets("DocentiMaterie").Cells(i, 1)
Next i
End With
End If
End Sub

in Questa cartella di lavoro:

Option Explicit

Private Sub Workbook_Open()
Dim ur As Long
Dim i As Long


ur = Worksheets("DocentiMaterie").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Foglio1").cmbOrario
.Clear
.ColumnCount = 2
For i = 2 To ur
.AddItem Worksheets("DocentiMaterie").Cells(i, 2)
.List(i - 2, 1) = Worksheets("DocentiMaterie").Cells(i, 1)
Next i
End With
End Sub

Complimenti!

L’importante è che hai risolto

Solo per curiosità l’ultimo mio file lo hai provato? Che ne pensi?

Purtroppo per le mie necessità non era funzionale.

Non c'è problema.

Alla prossima.