Populate Multiple Textboxes from a Range of Cells

[Denny57]

I appraciate that the syntax in the below code is probably incorrect, however, I was wondering if there is a simpler way to create code to popualte multiple cells with a value from a range oc cells.

If cboTest1.Value = "Test 1" Then
    texttBox1.Value - Sheets("Sheet1").Range(B2)
    texttBox2.Value - Sheets("Sheet1").Range(B3)
    texttBox3.Value - Sheets("Sheet1").Range(B4)
    texttBox4.Value - Sheets("Sheet1").Range(B5)
    texttBox5.Value - Sheets("Sheet1").Range(B6)
    
    End If

Typically I will be pulling values from different ranges for different values in CBOTest1

Example

If cboTest1.Value = "Test 2" Then
    texttBox1.Value - Sheets("Sheet1").Range(D2)
    texttBox2.Value - Sheets("Sheet1").Range(D3)
    texttBox3.Value - Sheets("Sheet1").Range(D4)
    texttBox4.Value - Sheets("Sheet1").Range(D5)
    texttBox5.Value - Sheets("Sheet1").Range(D6)
    
    End If

As there will be multiple values in cboTest1 I am looking for to reduce the number of lines of code

 

[Gokhan Aycan]

Just an example looking at the values and ranges in your code. Can be modified in more than one way, i.e., use Cells() and column numbers etc.

Dim i as Long
Dim col as String

Select Case cboTest1.Value
    Case "Test 1"
        col = "B"
    Case "Test 2"
        col = "D"
End Select

For i = 1 to 5
    Me.Controls("texttBox" & i).Text = Sheets("Sheet1").Range(col & i + 1).Value
Next i

Edit: I assumed controls are on a userform. May not follow through due to time constraints.

 

[Denny57]

Just an example looking at the values and ranges in your code. Can be modified in more than one way, i.e., use Cells() and column numbers etc.

Dim i as Long
Dim col as String

Select Case cboTest1.Value
    Case "Test 1"
        col = "B"
    Case "Test 2"
        col = "D"
End Select

For i = 1 to 5
    Me.Controls("texttBox" & i).Text = Sheets("Sheet1").Range(col & i + 1).Value
Next i

Edit: I assumed controls are on a userform. May not follow through due to time constraints.

Thank you I will apply this to a file I am working on and revert