Trasferire contenuto combobox in qualsiasi colonna

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.

 

Informazioni domanda


Ultimo aggiornamento febbraio 21, 2018 Visualizzazioni 698 Si applica a:
Risposta
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.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

Risposta

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


 

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.