using a command button from a macro

[jkmclean]

When I use a macro to open a userform and I click a command button on the form to load some data into the form, the code stops after the end sub of the command_click routine. It doesn't return to the original calling marco.

Public Sub CmdLoadTeams_Click()

Dim x As Long
Dim lane As Double
Dim tblroster As ListObject
Dim tbllanes As ListObject
Dim teamid As Double, team2id As Double
Worksheets("sheet1").Activate

Set tblroster = ActiveSheet.ListObjects("TeamRoster")
Worksheets("schedule").Activate

'For x = 2 To 36
Worksheets("sheet1").Activate
teamid = Sheet3.Range("m12") 'This is the row number
team2id = Sheet3.Range("m13")
id = Sheet3.Range("m10")
id2 = Sheet3.Range("m11")


On Error Resume Next
' Enter Players
ScoreSheet.T1P1 = tblroster.DataBodyRange(teamid, 4).Value
ScoreSheet.T1P1Hcp = tblroster.DataBodyRange(teamid, 3).Value
teamid = teamid + 1
ScoreSheet.T1P2 = tblroster.DataBodyRange(teamid, 4).Value
ScoreSheet.T1P2Hcp = tblroster.DataBodyRange(teamid, 3).Value
teamid = teamid + 1
ScoreSheet.T1P3 = tblroster.DataBodyRange(teamid, 4).Value
ScoreSheet.T1P3Hcp = tblroster.DataBodyRange(teamid, 3).Value
teamid = teamid + 1
ScoreSheet.T1P4 = tblroster.DataBodyRange(teamid, 4).Value
ScoreSheet.T1P4Hcp = tblroster.DataBodyRange(teamid, 3).Value

' Enter Players of opposing team

ScoreSheet.T2P1 = tblroster.DataBodyRange(team2id, 4).Value
ScoreSheet.T2P1Hcp = tblroster.DataBodyRange(team2id, 3).Value
team2id = team2id + 1
ScoreSheet.T2P2 = tblroster.DataBodyRange(team2id, 4).Value
ScoreSheet.T2P2Hcp = tblroster.DataBodyRange(team2id, 3).Value
team2id = team2id + 1
ScoreSheet.T2P3 = tblroster.DataBodyRange(team2id, 4).Value
ScoreSheet.T2P3Hcp = tblroster.DataBodyRange(team2id, 3).Value
team2id = team2id + 1
ScoreSheet.T2P4 = tblroster.DataBodyRange(team2id, 4).Value
ScoreSheet.T2P4Hcp = tblroster.DataBodyRange(team2id, 3).Value

MsgBox "PLEASE ENTER ALL THE SCORES FOR THESE TEAMS"

End Sub

 

[Logit]

.
Place a call back to the original macro at the end of the sub you have listed above.

 

[jkmclean]

Thanks very much. Nice to learn.

 

[Logit]