You are here:Home-Domande su Excel VBA e MACRO-Collegare riga listbox alla combobox
Collegare riga listbox alla combobox2020-09-23T10:15:15+02:00

Home Forum Domande su Excel VBA e MACRO Collegare riga listbox alla combobox

Visualizzazione 4 filoni di risposte
  • Autore
    Post
    • AvatarMisterExcel
      Partecipante
        Post totali: 37

        Buongiorno,

        oggi voglio proporvi questo problema che non riesco a risolvere con il codice vba.

        Ho una listbox che si popola automaticamente all’apertura della form.

        Sulla stessa form ho una combobox popolata degli stessi dati della listbox.

        Quello che vorrei ottenere è che evidenziando una riga della listbox, quel dato venga visualizzato sulla combobox.

        Grazie a chi potrà aiutarmi. :yahoo:

      • AvatarMisterExcel
        Partecipante
          Post totali: 37

          Risolto!

          Basta utilizzare semplicemente l’evento Click:

           

          Private Sub ListBox1_Click()

          ComboBox1.Value = ListBox1.Value

          End Sub

           

        • AvatarKris_9951
          Partecipante
            Post totali: 178
          • AvatarMisterExcel
            Partecipante
              Post totali: 37

              Buongiorno. Scusatemi se ritorno ancora sull’argomento. Utilizzando il codice:

              Listbox1.Value = Combobox1.Value,

              il suddetto codice funziona su tutte le righe della listbox, tranne che per l’ultima riga.

              Cioè, se tramite combobox voglio evidenziare un dato che si trova nell’ultima riga della listbox, quest’ultima riga non viene evidenziata.

              Grazie a chi mi sa dare una dritta :unsure:

              • AvatarKris_9951
                Partecipante
                  Post totali: 178

                  Ciao MisterExcel!

                  Vedi se questo file di esempio potrebbe fare al caso tuo.
                  https://www.dropbox.com/s/g937ho9bxh3ykt0/ListBox%26ComboBox.xlsm?dl=0

                  Fai sapere (se vuoi) :bye: :bye:

                  Riporto il codice:

                  Option Explicit
                  Dim bCh As Boolean
                  
                  Private Sub ComboBox1_Change()
                      If Not bCh Then Me.ListBox1.Selected(Me.ComboBox1.ListIndex) = True
                  End Sub
                  
                  Private Sub ListBox1_Click()
                      bCh = True
                      Me.ComboBox1.Value = Me.ListBox1.Value
                      bCh = False
                  End Sub
                  
                  Private Sub UserForm_Initialize()
                      Dim matrice As Variant
                      matrice = Foglio1.Range("A1:A20").Value
                      With Me
                          .ListBox1.List = matrice
                          .ComboBox1.List = matrice
                      End With
                  End Sub
              • AvatarMisterExcel
                Partecipante
                  Post totali: 37

                  Perfetto!

                  Grazie Kris_9951!

              Visualizzazione 4 filoni di risposte
              • Devi essere connesso per rispondere a questo topic.