Loop through rows and paste content to text boxes

[snoh8r]

 Sheets("Job Tools").TextBox1.Value = Sheets("Analysis Update").Range("A2").Value
    Sheets("Job Tools").TextBox2.Value = Sheets("Analysis Update").Range("B2").Value
    Sheets("Job Tools").TextBox3.Value = Sheets("Analysis Update").Range("C2").Value
    Sheets("Job Tools").TextBox4.Value = Sheets("Analysis Update").Range("D2").Value
    Sheets("Job Tools").TextBox5.Value = Sheets("Analysis Update").Range("E2").Value
    Sheets("Job Tools").TextBox6.Value = Sheets("Analysis Update").Range("F2").Value
    Sheets("Job Tools").TextBox7.Value = Sheets("Analysis Update").Range("G2").Value
    Sheets("Job Tools").TextBox8.Value = Sheets("Analysis Update").Range("H2").Value

The above works great for copying everything from row 2 to the selected textbox. I'm trying to figure out how to loop through every following row until done. These text boxes are used by another macro and that's why I need to loop through. Any help is greatly appreciated.

 

[dmt32]

Hi,

to return values to your ActiveX Textboxes from a variable row try this:

         Dim r As Long, c As Long
        r = 10
        For c = 2 To 8
            Worksheets("Job Tools").OLEObjects("TextBox" & c).Object.Value = _
            Worksheets("Analysis Update").Cells(r, c).Value
        Next c

where r is a variable your code determines which row to return (row 10 in this example)

Dave