Populate userform from active cell row values

[ipbr21054]

Hi,
Not sure if I’ve worded it correctly as I’m not sure what the procedure is called but will advise what I’m looking to do.

I have a worksheet of which the range of values are in column A to column J then down the page.

The user will double click a customers name of which is in column A & Userform1 will then be shown.

The userform will have Textboxes 1 to 10 where Textbox 1 will be the value on worksheet in column A then the following values on that same row will populate the form.
Textbox 2 = Column B
Textbox 3 = Column C
Textbox 4 = Column D
And so on until
Textbox 10 = Column J

Please can you assist thanks.

 

[DanteAmor]

The user will double click a customers name of which is in column A & Userform1 will then be shown.

To open the Userform1 you must have a code like the following in the events of your sheet where you want it to occur.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Cancel = True
    UserForm1.Show
  End If
End Sub

Note Sheet Event:

Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.​

----- --
Now put the following code inside your userform1:

Private Sub UserForm_Activate()
  Dim i As Long
  For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(ActiveCell.Row, i).Value
  Next
End Sub

Note:

if you already have an Activate event in userform1, you must replace it with the code above.​

I hope it helps you.

 

[ipbr21054]

Thanks, will take a look

 

[ipbr21054]

Thanks for the reply but i had to make a change so the above wasnt required in the end.

Thanks