Trasferire contenuto combobox in qualsiasi colonna

Question

Salute a tutti,

Ho una userform con una combo box che carica il contenuto della colonna A del foglio2. Quando la richiamo nel foglio1, mi chiedevo se esiste la possibilità ad esempio selezionando la cella  B3 e fare in modo che scegliendo un qualsiasi nominativo dalla combobox  mi finiscano in successione da B3:B7 i 5 nominativi riportati nella combobox?  Nota che quello che chiedo e che deve  poter eseguire questa operazione a prescindere dalla cella che andrò a selezionare.  Questo perché potrebbe trattarsi di una qualsiasi colonna ad esempio da A2:A6 oppure C5:C9 ecc…

Grazie per la vostra considerazione.

Answer 1

Grazie Mauro per la tempestiva risposta,

Hai centrato in pieno era proprio quello che mi serviva. L'unico problema da superare è quando vado ad inserire l'ultimo valore della combobox. Potrebbe in quel caso ripartire dal primo e a seguire i valori successivi? Esempio se seleziono l'ultimo valore della combobox poi oltre a quel valore deve aggiungere i primi quattro ripartendo dal primo dell'elenco della combobox.

Prova così:

Private Sub ComboBox1_Click()

    Dim lng As Long

    Dim lCont As Long

    Dim lResta As Long

    lCont = 0

    ActiveSheet.Range(ActiveCell.Address, ActiveCell.Offset(5, 0).Address).Clear

    With Me.ComboBox1

        For lng = 0 To 4

            On Error Resume Next

            ActiveCell.Offset(lng, 0).Value = _

                .List(.ListIndex + lng)

            If Err.Number = 0 Then

                lCont = lCont + 1

            End If

        Next

        lResta = 5 - lCont

        For lng = 0 To lResta - 1

            ActiveCell.Offset(lCont, 0).Value = _

                .List(lng)

            lCont = lCont + 1

        Next

    End With

End Sub

Qui trovi il file di esempio:

http://www.maurogsc.eu/esempiforum12/combobox5valori_2.zip

Fai sapere, grazie.

Answer 2

Salute a tutti,

Ho una userform con una combo box che carica il contenuto della colonna A del foglio2. Quando la richiamo nel foglio1, mi chiedevo se esiste la possibilità ad esempio selezionando la cella  B3 e fare in modo che scegliendo un qualsiasi nominativo dalla combobox  mi finiscano in successione da B3:B7 i 5 nominativi riportati nella combobox?  Nota che quello che chiedo e che deve  poter eseguire questa operazione a prescindere dalla cella che andrò a selezionare.  Questo perché potrebbe trattarsi di una qualsiasi colonna ad esempio da A2:A6 oppure C5:C9 ecc…

Grazie per la vostra considerazione.

Se(se) selezionando un valore della ComboBox, vuoi che quello ed i successivi 4 valori della ComboBox siano inseriti in 5 celle a partire da quella selezionata, prova:

Private Sub ComboBox1_Click()

    Dim lng As Long

    With Me.ComboBox1

        For lng = 0 To 4

            On Error Resume Next

            ActiveCell.Offset(lng, 0).Value = _

                .List(.ListIndex + lng)

        Next

    End With

End Sub

Qui trovi il file utilizzato per l'esempio:

http://www.maurogsc.eu/esempiforum12/combobox5valori.zip

Answer 3

Grazie Mauro,

Ancora una volta sei stato eccezionale e molto utile. Riesci a rendere tutto molto, molto semplice.

Grazie a te per il cortrese riscontro e le gentili parole.

Buona serata e buon lavoro.

Answer 4

Grazie Mauro,

Ancora una volta sei stato eccezionale e molto utile. Riesci a rendere tutto molto, molto semplice.

Answer 5

Grazie Mauro per la tempestiva risposta,

Hai centrato in pieno era proprio quello che mi serviva. L'unico problema da superare è quando vado ad inserire l'ultimo valore della combobox. Potrebbe in quel caso ripartire dal primo e a seguire i valori successivi? Esempio se seleziono l'ultimo valore della combobox poi oltre a quel valore deve aggiungere i primi quattro ripartendo dal primo dell'elenco della combobox.