Coding my CommandButton to select data

[Big Lar]

WS(COURSE)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
A1:A6 contains data (a list of names)<o></o>
B6:T9 is related data for A1<o></o>
B11:T14 is related data for A2<o></o>
B16:T19 is related data for A3<o></o>
Etc…<o></o>
<o></o>
My UserForm includes a ComboxBox populated with the data from A1:A6<o></o>
<o></o>
I am attempting (without success) to code UserForm's CommandButton1 to select the related data and copy it to B1:T4.

Greatly appreciate any help

<o></o>

 

[rs2k]

Not tested, but try on a copy of your workbook;

Select Case ComboBox1.Value
Case Is = A1
    Range("B6:T9").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
Case Is = A2
    Range("B11:T14").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
Case Is = A3
    Range("B16:T19").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
Case Is = A4
    Range("Your Range").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    
Case Else
    
    
End Select

HTH
Colin

 

[Big Lar]

Thanks, Colin.

 

[Norie]

Is it always 4 rows of data separated by 2 rows?

Option Explicit
 
Private Sub CommandButton1_Click()
Dim rngSrc As Range
        
    If ComboBox1.ListIndex <> -1 Then
              Set rngSrc = Range("B4:T7").Offset(5 * ComboBox1.ListIndex + 2)
              rngSrc.Copy Range("B2")
    End If
 
End Sub