Populate cells from a drop list or combo box

[phillipclark]

Good Afternoon All,

Question? How can I fill in cells from a named group that is selected from either a drop list or combo box.

Here is the code. I tried using the Macro record function but was not successful.
I have 7 different names that can be selected from the list.
Also there are 7 different named groups that based on selection need to be copied and pasted in the Sheet 2 range R50:V62

Any help would be greatly appreciated as I have not been successful on my own

Thank you

Private Sub ListBox1_Click()
 ActiveSheet.Shapes.Range(Array("ListBox1")).Select
    Sheets("Sheet3").Select
    Range("Finger_Weight").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("R50:V62").Select
    ActiveSheet.Paste
End Sub

 

[phillipclark]

Good Morning All,
Since no one has replied is this an indicator that what i am looking to be done is not possible?

 

[phillipclark]

Greetings Everyone,
So I have my code running from a Button and Macro now. This is ok but i would prefer not having 7 buttons across the top of my sheet.
How do I run this code from the ComboBox1.

Sub Group4_Click()
     Sheets("Sheet3").Select
    Range("B3:F15").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("R50:V62").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("B3:F15").Select
    Sheets("Sheet2").Select
    Range("R68:V80").Select
       ActiveSheet.Paste
End Sub

Thank You in Advance for your help

 

[MrIfOnly]

You can try this after populating your combobox with the names of the named ranges:

Private Sub ComboBox1_Change()

    Range(ComboBox1.Value).Copy Destination:=Sheets("Sheet2").Range("R50:V62")


End Sub

Regards,

CJ