CODEWITHSUNDEEP
excelvba
mike
mike

Reputation: 1

Limit macro to set a range for textbox

I am trying to link a range of cells to a text box, the only problem is if I edit the text box, it will write in any cell. I want to limit that ability to a specific range ("C4 to C11"). Here is my code:

Dim PreviousCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Target.Column = 3 Then ActiveSheet.TextBox1.Text = Target



       If Not PreviousCell Is Nothing Then
       Debug.Print PreviousCell.Address
       End If

       Set PreviousCell = Target ' This needs to be the last line of code.

End Sub



Private Sub TextBox1_Change()

ActiveCell.Value = TextBox1

End Sub

Upvotes: 0

Views: 114

Answers (1)

Foxfire And Burns And Burns
Foxfire And Burns And Burns

Reputation: 11978

Private Sub TextBox1_Change()

If ActiveCell.Column = 3 Then ActiveCell.Value = TextBox1

End Sub

Upvotes: 1

Related Questions