Hello Kristen
Here is one way, TxtSearch is a textbox where you would input your criteria
(please amend accordingly)
HTH
Cordially
Pascal

Private Sub CommandButton1_Click()
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A2:A5"), 0)
For i = 2 To 5
With Me.Controls("Textbox" & i)
..Value = WorksheetFunction.Index(Range("A2:A5").Offset(0, i - 1), ToFind, 1)
End With
Next i
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"
End Sub


"Kristen" a écrit
dans le message de news:
...

I would like to know how to populate data into a userform from a
worksheet.

I have data in columns B through AE, with a header column in A.
I want the user to fill in the box at the top of the form, have the
code search down column A of the spreadsheet and then return the data
from columns B through AE into their respective textboxes on the form.

Anyone??

Kristen


--
Kristen
------------------------------------------------------------------------
Kristen's Profile:
http://www.excelforum.com/member.php...o&userid=33199
View this thread: http://www.excelforum.com/showthread...hreadid=531686