Sheet to form values

[DarkOwl]

Basically, i want to show a "record" in a table, upon the user selecting a code on the form. Heres the sub im having problems with.

Private Sub CommandButton1_Click()


Dim Searchkey As String


Searchkey = Code.Text

Sheets("Shipping and Payment").Select
Range("D5").Select

Do While ActiveCell <> ""
If ActiveCell.Text = Searchkey Then

ActiveCell.Offset(0, 1).Value = Telephone.Text
'Where "telephone" is the name of the textbox
ActiveCell.Offset(0, 1) = Invoicedate.Text
ActiveCell.Offset(0, 1) = CurrentPaymentstatus.Text
ActiveCell.Offset(0, 1) = Currentshippingstatus.Text
GoTo Lastline
End If
ActiveCell.Offset(1, 0).Activate
Loop
Lastline:





End Sub




Can anyone help as to how i can get cell values to show in textboxes on an userform?

 

[DarkOwl]

bttt

 

[DarkOwl]

can anyone help?

 

[Cbrine]

DarkOwl,
To take a cell value and add it to a form control, just do this.

Userfrom1.textbox1 = Activecell.value

textbox1 will need to be equal to your controls correct name.

HTH
Cal

 

[DarkOwl]

Thankyou, i tired

ActiveCell.Offset(0, 1).Activate
Orderstatus.Telephone = ActiveCell.Value

but when i try, it still wont work

Can anyone else help?

 

[Cbrine]

DarkOwl,
The code I gave you was to load a value from the worksheet to a userform with the worksheet is active. If you want to populate the userform field while the form is active(GotFocus), you need to do it like this.(A full worksheet reference)

TextBox1.Value = Sheets("Sheet1").Range("A1").Value

HTH
Cal