Pre-populate a User Form based on current row

[AlInVegas2]

I'm trying to prepopulate a userform I created with the data from the Active Cell Row. After performing the userform.show, I am having difficulty populating the various text boxes with the values in the given row. It may have to do with the way I'm activating the form or something. Any suggestions?

 

[Misca]

Try something like:

Private Sub UserForm_Initialize()

Dim c As Range

Set c = Intersect(ActiveCell.EntireRow, Columns(1)) 'Column A

    With Me
        .TextBox1.Value = c.Value
        .TextBox2.Value = c.Offset(, 1).Value
        .TextBox3.Value = c.Offset(, 2).Value
    End With

End Sub

 

[AlInVegas2]

Thanks for your response.

So the name of the form is EngUpdate. The Private Sub EngUpdate_Initialize() opens the form, but the first text field named EClient is blank when the form opens. The Active Row on Sheet 5 (Engagement Completion) has a client name. It's just not showing up on the form. Here's the code I wrote:

Private Sub EngUpdate_Initialize()

Dim c As Range
Set c = Intersect(ActiveCell.EntireRow, Columns(1))
With Me
.EClient.Value = c.Value
End With
End Sub

Any suggestions as to where I went wrong? My objective is to pull the key field values currently and subsequently update them with any changes I make when submitting.

 

[Fluff]

You should not change the name of the initialize event, it should always be

Private Sub UserForm_Initialize()

 

[AlInVegas2]

I knew it had to be a simple case of grammar... thanks.

 

[Fluff]

Glad we could help & thanks for the feedback.