Loop text value for each combobox

[akaseto]

hello,
i've an example 4 combobox will linked to 4 cells, for example : combobox1 linked with cell B6 and so on.

Sub tryout()
Dim i As Integer, j As Integer
Dim ws As Worksheet

Set ws = ActiveSheet

For i = 1 To 4
For j = 6 To 9
With ws.OLEObjects("Combobox" & i)
.Value = range("B" & j).Value
End With
Next
Next
End Sub

i know my code is funny, and yes its only add the last value (9) into evey combobox from 1 - 4.
what i want is
-combobox1 is linked with B6 text value
-combobox2 with B7 text value
-combobox3 with B8 text value
-combobox4 with B9 text value

pls help me, thanks before

 

[shknbk2]

Try this:

Sub tryout()
    Dim i As Integer, j As Integer
    Dim ws As Worksheet
    Dim vCombo As Variant
    Dim vRange As Variant
    Dim sCombo As String
    Dim sRange As String
    
    sCombo = "1,2,3,4"
    sRange = "6,7,8,9"
    
    vCombo = Split(sCombo, ",")
    vRange = Split(sRange, ",")
    
    Set ws = ActiveSheet
    
    For i = LBound(vCombo) To UBound(vCombo)
        With ws.OLEObjects("Combobox" & vCombo(i))
            .Value = Range("B" & vRange(i)).Value
        End With
    Next
End Sub

 

[akaseto]

Try this:

Sub tryout()
    Dim i As Integer, j As Integer
    Dim ws As Worksheet
    Dim vCombo As Variant
    Dim vRange As Variant
    Dim sCombo As String
    Dim sRange As String
  
    sCombo = "1,2,3,4"
    sRange = "6,7,8,9"
  
    vCombo = Split(sCombo, ",")
    vRange = Split(sRange, ",")
  
    Set ws = ActiveSheet
  
    For i = LBound(vCombo) To UBound(vCombo)
        With ws.OLEObjects("Combobox" & vCombo(i))
            .Value = Range("B" & vRange(i)).Value
        End With
    Next
End Sub

thanks for the help, i really appreciated it
its work but when i merged to my main code it crashed with another code, i found the simplest way for me is renaming combobox1 start from combobox6 and using this code :

Sub tryout()

    Dim i As Integer

    Dim ws As Worksheet

  

    Set ws = ActiveSheet

  

    For i = 6 To 20

        With ws.OLEObjects("Combobox" & i)

            Object.Value = ws.Range("B" & i).Value

        End With

    Next

End Sub