Trying to enter into Text activecell value

[Eric Penfold]

Active cell in column A into a form text code. When I click on a active cell I need it to fill form Textbox. The code below does not work? Click on the cell but nothing happens.

Private Sub Enter_Number_SheetClick(ByVal Sh As Object, ByVal Target As Range)

    Dim ws     As Worksheet
    Set ws = ActiveSheet
  
    With ws
    If ActiveCell.Column > 1 Then
        Me.Enter_Number = ActiveCell.Value
        End If
    End With
  
End Sub

 

[Herakles]

By selecting a cell the following procedure is triggered. This goes into the worksheet code module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Target is a range object representing the cell selected.

It is into this procedure that you put the code that populates the textbox on the Userform.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

UserForm1.Enter_Number.Value = Target.Value

End Sub

You will need to substitute UserForm1 for your form name.

 

[Eric Penfold]

I have put the code into sheet module code.
When you click into a cell in column A I need that event to fire up the code.

 

[Herakles]

Have you got the userform loaded?

Use this code and a message will pop up to check that it is running.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    MsgBox Target.Value

    UserForm1.Enter_Number.Value = Target.Value

End Sub

You can delete this line later.

MsgBox Target.Value