se optionbutton1 true Combobox1 con range



  • se optionbutton1 = true Combobox1 con range di ffante data: 07/01/2017 23:34:31

    buonasera ho una userform con quattro optionbutton e una combobox,vorrei che

    se seleziono la optionbutton1 nella combobox1 me la dovrà popolare con il range q2:q5,

    se seleziono la optionbutton2 nella combobox1 me la dovrà popolare con il range r2:r3,

    se seleziono la optionbutton3 nella combobox1 me la dovrà popolare con il range s2,

    se seleziono la optionbutton4 nella combobox1 me la dovrà popolare con il range t2 non

    so se sia una cosa che si possa realizzare.

    ho allegato un file bozza, un ringraziamento anticipato a chi mi voglia aiutare.

    franco


  • di ges (utente non iscritto) data: 08/01/2017 01:05:15

    Ciao prova con questo listato:

     
    Option Explicit
    Private Sub OptionButton1_Click()
    Dim j As Integer
    ComboBox1.Clear
        With Sheets("Foglio1")
            For j = 2 To 5
                If OptionButton1 = True Then
                    ComboBox1.AddItem .Range("Q" & j)
                End If
            Next
        End With
    End Sub
    Private Sub OptionButton2_Click()
    Dim j As Integer
    ComboBox1.Clear
        With Sheets("Foglio1")
            For j = 2 To 5
                If OptionButton2 = True Then
                    ComboBox1.AddItem .Range("R" & j)
                End If
            Next
        End With
    End Sub
    Private Sub OptionButton3_Click()
    Dim j As Integer
    ComboBox1.Clear
        With Sheets("Foglio1")
            For j = 2 To 5
                If OptionButton3 = True Then
                    ComboBox1.AddItem .Range("S" & j)
                End If
            Next
        End With
    End Sub
    Private Sub OptionButton4_Click()
    Dim j As Integer
    ComboBox1.Clear
        With Sheets("Foglio1")
            For j = 2 To 5
                If OptionButton4 = True Then
                    ComboBox1.AddItem .Range("T" & j)
                End If
            Next
        End With
    End Sub


  • di Gianfranco data: 08/01/2017 01:10:53

    ciao
    dovrebbe bastarti  

    Ges chi sei ringo?
     
    Private Sub OptionButton1_Click()
    ComboBox1.RowSource = "Q2:Q11"
    End Sub
    
    Private Sub OptionButton2_Click()
    ComboBox1.RowSource = "r2:r11"
    End Sub
    
    Private Sub OptionButton3_Click()
    ComboBox1.RowSource = "S2:S11"
    End Sub
    
    Private Sub OptionButton4_Click()
    ComboBox1.RowSource = "t2:T11"
    End Sub
    
    


  • di alfrimpa data: 08/01/2017 11:19:44

    Ciao Gianfranco

    Sappiamo bene chi è Ges

    Solo una cosa: credo che dopo la prima virgoletta ci voglia il segno di uguale se non ricordo male.

    Alfredo


  • di ffante data: 08/01/2017 16:29:34

    grazie ges per la tua soluzione l'ho adattata alla mia userform e funziona perfettamente.

    un grazie anche a gianfranco per l'altra soluzione.

    in questo forum ogni giorno si imparano cose nuove grazie a tutti.

    franco