Fill txtbox on userform with value from worksheet

[Bandito1]

Hi all,

I'm trying to fill the textbox txtStDate with a value from the worksheet;

Private Sub UserForm_Initialize()
txtStDate = Cells(Target.Row, "A")
End Sub

It doesn't work. The userform won't run.
When i try to look into the error it says; txtStDate = ""

Someone knows what is going wrong?

 

[davesexcel]

In your userform module

Public MyTarget As Range

Private Sub UserForm_Activate()
    If Not MyTarget Is Nothing Then
       Me.TextBox1 = MyTarget
    Else
        MsgBox "something went wrong with assigning rngTarget variable"
    End If
End Sub

In the worksheet module, assuming you are using worksheet_change event

Private Sub Worksheet_Change(ByVal Target As Range)

    With UserForm1
        Set .MyTarget = Target
        .Show
    End With

End Sub

 

[Bandito1]

Thanks for your reply.

I have problems understanding your answer.

The case is like this;

Someone places "x" in column N on my worksheet.
When this is done the userform Returns pops up.

This userform contains the textbox txtStDate.
The value in this textbox should be the value that is in column A of the same row where the "x" is placed in.

When i use

Private Sub UserForm_Initialize()
txtStDate = "Hi"
End Sub

it works.
The textbox shows "hi" when the userform runs.

But when i use

Private Sub UserForm_Initialize()
txtStDate = Cells(Target.Row, "A")
End Sub

The userform doesn't run

 

[davesexcel]

And what happened when you used my sample?

 

[Bandito1]

I get; Compile error; Invalid outside procedure