Populate a UserForm

I have some textboxs and some comboboxs, on a user form I want them to populate according to the row the cell is selected on.

Example:

cell c15 is selected,

UserForm1 Textbox2 populates with value of A15
UserForm1 Textbox1 populates with value of D15
UserForm1 Combobox2 populates with value of F15

And is the user changes a value I need it to update the cell.

Thank You for the help.

they are achieved like this

Textbox1.Value = Range("A" & Activecell.row).value

Ok, thank you this is what I have.

Private Sub FormButton1_Click()
UserForm1.Show
End Sub

Private Sub Worksheet_Activate()
    If UserForm1.Visible = True Then
      userform_data
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If UserForm1.Visible = True Then
      userform_data
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If UserForm1.Visible = True Then
      userform_data
    End If
End Sub

Module is

Sub userform_data()
    UserForm1.mfg.Value = Range("C" & ActiveCell.Row).Value
    UserForm1.qty.Value = Range("D" & ActiveCell.Row).Value
    UserForm1.part.Value = Range("E" & ActiveCell.Row).Value
    UserForm1.Description.Value = Range("F" & ActiveCell.Row).Value
    UserForm1.vendor.Value = Range("G" & ActiveCell.Row).Value
    UserForm1.po.Value = Range("H" & ActiveCell.Row).Value
    UserForm1.poDate.Value = Range("I" & ActiveCell.Row).Value
    UserForm1.ngCost.Value = Range("J" & ActiveCell.Row).Text
    UserForm1.ngTotal.Caption = Range("K" & ActiveCell.Row).Text
    UserForm1.custCost.Caption = Range("L" & ActiveCell.Row).Text
    UserForm1.custTotal.Caption = Range("M" & ActiveCell.Row).Text
End Sub

Which seems to work good, But what do I need to do to also make it change the cell value If they change the data on the form.?

they are achieved like this

Range("C" & ActiveCell.Row).Value = UserForm1.mfg.Value

For the form to change the data on the sheet try:

if UserForm1.mfg.Value <> Range("C" & ActiveCell.Row).Value Then
Range("C" & ActiveCell.Row).Value = Userform1.mfg.value
end if

One other question and thank you for all your help that worked great.

If the user selects rows 10 - 15 How can I make it change all of them, and display only common info.
Example

if mfg = A-B on 10-15 display the manufacturer and if I change cost it would change on all 5 rows.

Thank you so much.

Ok how can I make this work?

Private Sub lead_Change()
If Selection.Rows.Count >= 2 Then
    Range("B" & ActiveCell.Rows).Value = UserForm1.lead.Value ' Global range fault
Else
    If UserForm1.lead.Value <> Range("B" & ActiveCell.Row).Value Then
        Range("B" & ActiveCell.Row).Value = UserForm1.lead.Value
    End If
End If
End Sub

Ok this what I have thus far. But now it changes the column of rows that is selected, I need it to change column B when multiply rows are selected. Thanks for the help.

Private Sub lead_Change()
Dim c As Range
Set c = Selection.Rows
If UserForm1.lead.Value <> Range("B" & ActiveCell.Row).Value Then
    If Selection.Rows.Count > 1 Then
            c = UserForm1.lead.Value
    Else
        Range("B" & ActiveCell.Row).Value = UserForm1.lead.Value
    End If
End If
End Sub

This will put the userform's value from Contol "lead" into cell B of every selected row.

Private Sub lead_Change()
    Selection.EntireRow.Range("B1").Value = Me.lead.Value
End Sub

Originally Posted by mikerickson

This will put the userform's value from Contol "lead" into cell B of every selected row.

Private Sub lead_Change()
    Selection.EntireRow.Range("B1").Value = Me.lead.Value
End Sub

the whole rows a not selected just a range of rows like C1:C15 or E13:E53


Thanxs

Heres what I got it works but does not look like it was the best way.

Private Sub lead_Change()
If UserForm1.lead.Value <> Range("B" & ActiveCell.Row).Value Then
    If Selection.Rows.Count > 1 Then
            Range("B" & ActiveCell.Row, "B" & ActiveCell.Row + Selection.Rows.Count).Value = Me.lead.Value
    Else
        Range("B" & ActiveCell.Row).Value = UserForm1.lead.Value
    End If
End If
End Sub