Worksheet value entered into userform textbox

[ipbr21054]

Hi,
As per title i wish to get worksheet cell value to userform textbox.

The code below is in use.
I get no RTE but textboxes remain blanl.

Some info for you.
Worksheet is called HONDA SHEET
Values are in cells Z21:Z57
Userform Textboxes are Textbox 1 through to Textbox39

    Dim x As Integer
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("HONDA SHEET")
    
    x = 1
    For x = 1 To 39
        Controls("TextBox" & x).Value = ws.Range("Z21" & x).Value
    Next x

 

[mohadin]

For x = 1 To 39
        Controls("TextBox" & x).Value = ws.Range("Z" & 20+ x).Value
    Next x

 

[ipbr21054]

Many thanks worked a treat

 

[mohadin]

You are very welcome
And thank you for the feedback
Be happy and safe

 

[ipbr21054]

Hi,
May i ask another question please regarding the same thing

For x = 1 To 39
        Controls("TextBox" & x).Value = ws.Range("Z" & 20+ x).Value
    Next x

The above would enter the values to Textboxes 1 - 39 from column Z

How would i also do the same BUT also enter values to Textboxes 40-78 from column Y

Thanks

 

[mohadin]

Try

  For x = 1 To 39
        Controls("TextBox" & x).Value = ws.Range("Z" & 20 + x).Value
        Controls("TextBox" & x + 39).Value = ws.Range("Y" & 20 + x).Value
    Next x

 

[ipbr21054]

Perfect thanks

 

[mohadin]