Creazione di un menù a tendina con selezione multipla

Question

Buon giorno,

come faccio a creare un menù a tendina che mi permetta di selezionare più elementi contemporaneamente, e che dopo la selezione mi restituisca in un'unica cella gli elementi selezionati separati da virgole?

Ad esempio, nell'immagine in allegato, selezionando Torino e Milano contemporaneamente, mi piacerebbe che excel potesse restituirmi in un'unica cella la seguente dicitura: Torino, Milano.

Se ci fosse un modo per effettuare quanto appena detto, sarei molto grata a chiunque riesca a fornirmi una spiegazione approfondita.

Answer 1

Saluto Norman che mi ha preceduto, un altro modo, visto che l'ho scritta:

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim strDelimiter As String, rngValidation As Range, strOld As String, strNew As String 

    strDelimiter = ", " 

    If Target.Count > 1 Then Exit Sub 

    On Error Resume Next 

    Set rngValidation = Cells.SpecialCells(xlCellTypeAllValidation) 

    On Error GoTo Esci 

    If rngValidation Is Nothing Then GoTo Esci 

    If Not Intersect(Target, rngValidation) Is Nothing Then 

        Application.EnableEvents = False 

        strNew = Target.Value 

        Application.Undo 

        strOld = Target.Value 

        Target.Value = strNew 

        If strOld <> "" Then 

            If strNew <> "" Then 

                Target.Value = strOld & strDelimiter & strNew 

            End If 

        End If 

    End If 

Esci: 

    Application.EnableEvents = True 

End Sub

Da mettere nel codice del foglio e non nel modulo generale,

ciao.

Answer 2

Ciao GB,

Prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'<<--------

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range 

Dim sOld As String, sNew As String 

Const sCellaConvalida As String = **"D2"                            '<<=== M**odifica 

Set Rng = Intersect(Me.Range(sCellaConvalida), Target) 

On Error GoTo XIT 

If Not Rng Is Nothing Then 

    With Rng 

        If .SpecialCells(xlCellTypeAllValidation) Is Nothing Or .Value = vbNullString Then 

            GoTo XIT 

        End If 

        Application.EnableEvents = False 

        sNew = .Value 

        Application.Undo 

        sOld = .Value 

        If sOld = "" Then 

            .Value = sNew 

        Else 

            If InStr(1, sOld, sNew) = 0 Then 

                .Value = sOld & "," & sNew 

            Else 

                .Value = sOld 

            End If 

        End If 

    End With 

End If 

XIT:

Application.EnableEvents = True 

End Sub

'<<========  

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

Potresti scaricare il mio file di prova GB20230724.xlsm

===

Regards,

Norman