Slow response to execute VBA code using buttons

[PPriest]

Due to the complexity of a data entry page, I scrapped my userform and went to an excel sheet for data entry. It has over 200 buttons so that the user can click and go. All of the buttons are linked to code this simple:

Sub Mcn1()
ActiveSheet.Range("AR2").Value = ActiveSheet.Range("Q5").Value
End Sub

The first few buttons worked super fast and snappy but as I continue to add buttons, the slower it gets to respond when a button is pressed (several seconds each). If I open the developer and screen (Alt+F11), and run the code, it's nearly instantaneous. I am assuming that the more macros I add, the slower it takes to find and run the macro assigned to each button. Would I be incorrect in that assumption? If so - how do I fix that? Any other suggestions on creating a user form where the user only has to select what they want and the code populates to the data entry section?

 

[offthelip]

The way I would do that is to use the Worksheet_BeforeDoubleClick event, so the user just double clicks on each cell that they want to copy, you then create a mapping table which maps the address of the double clicked cell to where you want to put it. I would put mapping on a another Veryhidden worksheet which I would load into a variant array when you select the sheet, this would mean no buttons ie more space on the worksheet, only one very simple macro, and easily modified by changing the mapping table without needing to change the macro at all.

 

[PPriest]

The way I would do that is to use the Worksheet_BeforeDoubleClick event, so the user just double clicks on each cell that they want to copy, you then create a mapping table which maps the address of the double clicked cell to where you want to put it. I would put mapping on a another Veryhidden worksheet which I would load into a variant array when you select the sheet, this would mean no buttons ie more space on the worksheet, only one very simple macro, and easily modified by changing the mapping table without needing to change the macro at all.

Thank you for your response. This solves my issue on speed - thank you! I hadn't used this method before so it was a great lesson learned. Appreciate it!

Due to my desire to reduce the number of required inputs from the users, I wanted to do the same thing without the required second click. I did some further digging based upon what you presented and have chosen to use this method:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then

If Not Intersect(Target, Range("P5")) Is Nothing Then
ActiveSheet.Range("AR2").Value = ActiveSheet.Range("Q5").Value
GoTo Finish
End If

End If

Finish:
End Sub

Found at: How to trigger or run a Macro by clicking a specific cell in Excel?