How to apply code to entire sheet instead of one column and removing error on multiple selection?

[mikedevt]

I set up a spreadsheet so that you could edit a cell through a text box, the only problem is that it is limited to one column and when you select more than one cell, there is an error message. I have tried changing traget.column = 7 to target.range = ("A1:CA300") and target.adress = ("A:CA"), but nothing works.

Here is my working code:


Code:

<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Dim PreviousCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 7 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</code>

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...ve-error-multiple-selections.html#post5001956

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing and not to bump a thread more than once a day.