Copy test to form

[SMERTZ]

What is the best way to copy data from a row, lets say row 2 cells 1 thru 15
to 15 text boxes on a form?

txt1= activeRow column 1
txt2=activeRow column 2
txt3 = active row column 3

You get the idea: Most of the data is Text, but there are a few dates in
the cells

 

[Guest]

one way:

For i= 1 to 15
me.controls("txt" & i).value=Cells(activerow,i)
next i

if text boxes are TXT1 to TXT15

HTH

 

[Guest]

Private Sub UserForm_Initialize()
Dim myCtrl As Control
For Each myCtrl In Me.Controls
If Left(myCtrl.Name, 3) = "txt" Then myCtrl.Value = Cells(2,
Val(Mid(myCtrl.Name, 4))).Value
Next
End Sub

 

[SMERTZ]

OK, what if the test boxes actually have names?

I could rename them I guess.

 

[Guest]

If they have names without a constant prefix e.g TXT...., then have any array
of text box names and compare with "control names". nth element in array
corresponds to nth column . You could use MATCH function to compare.