Compile Error : Procedure Too Large (for Loop and elseif)

F

fakhru93

New Member
Joined
Dec 30, 2019
Messages
7
Office Version
  1. 2016
Platform
  1. Windows
Hello,
I'm trying to copy paste some data in other workbooks to the main workbook but I got some error saying that the procedure is too long.
Is there any way to simplify this code? Thank you
VBA Code: 
    Sub AAA()
   
    Workbooks("Mating Coco Load Phase 1 Summary xx.xlsm").Activate
    Worksheets("Concomitant").Activate

    For c = 6 To 10  'the looping range

    '4 Seconds
    If Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 0 Then
    Run ("Open_4sS1")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 15 Then
    Run ("Open_4sS1")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 30 Then
    Run ("Open_4sS1")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 45 Then
    Run ("Open_4sS1")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 60 Then
    Run ("Open_4sS1")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 75 Then
    Run ("Open_4sS1")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 90 Then
    Run ("Open_4sS1")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 105 Then
    Run ("Open_4sS1")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 120 Then
    Run ("Open_4sS1")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 135 Then
    Run ("Open_4sS1")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 150 Then
    Run ("Open_4sS1")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 165 Then
    Run ("Open_4sS1")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 180 Then
    Run ("Open_4sS1")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 195 Then
    Run ("Open_4sS1")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 210 Then
    Run ("Open_4sS1")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
    Run ("Open_4sS1")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 240 Then
    Run ("Open_4sS1")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
    Run ("Open_4sS1")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 270 Then
    Run ("Open_4sS1")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 285 Then
    Run ("Open_4sS1")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 300 Then
    Run ("Open_4sS1")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 315 Then
    Run ("Open_4sS1")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 330 Then
    Run ("Open_4sS1")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 345 Then
    Run ("Open_4sS1")
    Worksheets("H345").Activate
   
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 0 Then
    Run ("Open_4sS2")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 15 Then
    Run ("Open_4sS2")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 30 Then
    Run ("Open_4sS2")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 45 Then
    Run ("Open_4sS2")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 60 Then
    Run ("Open_4sS2")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 75 Then
    Run ("Open_4sS2")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 90 Then
    Run ("Open_4sS2")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 105 Then
    Run ("Open_4sS2")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 120 Then
    Run ("Open_4sS2")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 135 Then
    Run ("Open_4sS2")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 150 Then
    Run ("Open_4sS2")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 165 Then
    Run ("Open_4sS2")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 180 Then
    Run ("Open_4sS2")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 195 Then
    Run ("Open_4sS2")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 210 Then
    Run ("Open_4sS2")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
    Run ("Open_4sS2")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 240 Then
    Run ("Open_4sS2")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
    Run ("Open_4sS2")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 270 Then
    Run ("Open_4sS2")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 285 Then
    Run ("Open_4sS2")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 300 Then
    Run ("Open_4sS2")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 315 Then
    Run ("Open_4sS2")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 330 Then
    Run ("Open_4sS2")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 345 Then
    Run ("Open_4sS2")
    Worksheets("H345").Activate
   
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 0 Then
    Run ("Open_4sS3")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 15 Then
    Run ("Open_4sS3")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 30 Then
    Run ("Open_4sS3")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 45 Then
    Run ("Open_4sS3")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 60 Then
    Run ("Open_4sS3")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 75 Then
    Run ("Open_4sS3")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 90 Then
    Run ("Open_4sS3")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 105 Then
    Run ("Open_4sS3")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 120 Then
    Run ("Open_4sS3")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 135 Then
    Run ("Open_4sS3")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 150 Then
    Run ("Open_4sS3")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 165 Then
    Run ("Open_4sS3")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 180 Then
    Run ("Open_4sS3")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 195 Then
    Run ("Open_4sS3")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 210 Then
    Run ("Open_4sS3")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
    Run ("Open_4sS3")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 240 Then
    Run ("Open_4sS3")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
    Run ("Open_4sS3")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 270 Then
    Run ("Open_4sS3")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 285 Then
    Run ("Open_4sS3")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 300 Then
    Run ("Open_4sS3")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 315 Then
    Run ("Open_4sS3")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 330 Then
    Run ("Open_4sS3")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 345 Then
    Run ("Open_4sS3")
    Worksheets("H345").Activate
   
    '5 seconds
   
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 0 Then
    Run ("Open_5sS1")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 15 Then
    Run ("Open_5sS1")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 30 Then
    Run ("Open_5sS1")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 45 Then
    Run ("Open_5sS1")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 60 Then
    Run ("Open_5sS1")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 75 Then
    Run ("Open_5sS1")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 90 Then
    Run ("Open_5sS1")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 105 Then
    Run ("Open_5sS1")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 120 Then
    Run ("Open_5sS1")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 135 Then
    Run ("Open_5sS1")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 150 Then
    Run ("Open_5sS1")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 165 Then
    Run ("Open_5sS1")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 180 Then
    Run ("Open_5sS1")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 195 Then
    Run ("Open_5sS1")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 210 Then
    Run ("Open_5sS1")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
    Run ("Open_5sS1")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 240 Then
    Run ("Open_5sS1")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
    Run ("Open_5sS1")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 270 Then
    Run ("Open_5sS1")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 285 Then
    Run ("Open_5sS1")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 300 Then
    Run ("Open_5sS1")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 315 Then
    Run ("Open_5sS1")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 330 Then
    Run ("Open_5sS1")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 345 Then
    Run ("Open_5sS1")
    Worksheets("H345").Activate
   
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 0 Then
    Run ("Open_5sS2")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 15 Then
    Run ("Open_5sS2")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 30 Then
    Run ("Open_5sS2")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 45 Then
    Run ("Open_5sS2")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 60 Then
    Run ("Open_5sS2")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 75 Then
    Run ("Open_5sS2")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 90 Then
    Run ("Open_5sS2")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 105 Then
    Run ("Open_5sS2")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 120 Then
    Run ("Open_5sS2")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 135 Then
    Run ("Open_5sS2")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 150 Then
    Run ("Open_5sS2")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 165 Then
    Run ("Open_5sS2")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 180 Then
    Run ("Open_5sS2")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 195 Then
    Run ("Open_5sS2")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 210 Then
    Run ("Open_5sS2")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
    Run ("Open_5sS2")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 240 Then
    Run ("Open_5sS2")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
    Run ("Open_5sS2")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 270 Then
    Run ("Open_5sS2")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 285 Then
    Run ("Open_5sS2")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 300 Then
    Run ("Open_5sS2")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 315 Then
    Run ("Open_5sS2")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 330 Then
    Run ("Open_5sS2")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 345 Then
    Run ("Open_5sS2")
    Worksheets("H345").Activate
   
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 0 Then
    Run ("Open_5sS3")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 15 Then
    Run ("Open_5sS3")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 30 Then
    Run ("Open_5sS3")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 45 Then
    Run ("Open_5sS3")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 60 Then
    Run ("Open_5sS3")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 75 Then
    Run ("Open_5sS3")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 90 Then
    Run ("Open_5sS3")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 105 Then
    Run ("Open_5sS3")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 120 Then
    Run ("Open_5sS3")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 135 Then
    Run ("Open_5sS3")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 150 Then
    Run ("Open_5sS3")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 165 Then
    Run ("Open_5sS3")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 180 Then
    Run ("Open_5sS3")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 195 Then
    Run ("Open_5sS3")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 210 Then
    Run ("Open_5sS3")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
    Run ("Open_5sS3")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 240 Then
    Run ("Open_5sS3")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
    Run ("Open_5sS3")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 270 Then
    Run ("Open_5sS3")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 285 Then
    Run ("Open_5sS3")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 300 Then
    Run ("Open_5sS3")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 315 Then
    Run ("Open_5sS3")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 330 Then
    Run ("Open_5sS3")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 345 Then
    Run ("Open_5sS3")
    Worksheets("H345").Activate
   
    '6 Seconds
   
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 0 Then
    Run ("Open_6sS1")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 15 Then
    Run ("Open_6sS1")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 30 Then
    Run ("Open_6sS1")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 45 Then
    Run ("Open_6sS1")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 60 Then
    Run ("Open_6sS1")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 75 Then
    Run ("Open_6sS1")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 90 Then
    Run ("Open_6sS1")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 105 Then
    Run ("Open_6sS1")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 120 Then
    Run ("Open_6sS1")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 135 Then
    Run ("Open_6sS1")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 150 Then
    Run ("Open_6sS1")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 165 Then
    Run ("Open_6sS1")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 180 Then
    Run ("Open_6sS1")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 195 Then
    Run ("Open_6sS1")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 210 Then
    Run ("Open_6sS1")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
    Run ("Open_6sS1")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 240 Then
    Run ("Open_6sS1")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
    Run ("Open_6sS1")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 270 Then
    Run ("Open_6sS1")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 285 Then
    Run ("Open_6sS1")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 300 Then
    Run ("Open_6sS1")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 315 Then
    Run ("Open_6sS1")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 330 Then
    Run ("Open_6sS1")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 345 Then
    Run ("Open_6sS1")
    Worksheets("H345").Activate
   
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 0 Then
    Run ("Open_6sS2")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 15 Then
    Run ("Open_6sS2")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 30 Then
    Run ("Open_6sS2")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 45 Then
    Run ("Open_6sS2")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 60 Then
    Run ("Open_6sS2")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 75 Then
    Run ("Open_6sS2")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 90 Then
    Run ("Open_6sS2")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 105 Then
    Run ("Open_6sS2")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 120 Then
    Run ("Open_6sS2")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 135 Then
    Run ("Open_6sS2")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 150 Then
    Run ("Open_6sS2")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 165 Then
    Run ("Open_6sS2")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 180 Then
    Run ("Open_6sS2")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 195 Then
    Run ("Open_6sS2")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 210 Then
    Run ("Open_6sS2")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
    Run ("Open_6sS2")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 240 Then
    Run ("Open_6sS2")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
    Run ("Open_6sS2")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 270 Then
    Run ("Open_6sS2")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 285 Then
    Run ("Open_6sS2")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 300 Then
    Run ("Open_6sS2")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 315 Then
    Run ("Open_6sS2")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 330 Then
    Run ("Open_6sS2")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 345 Then
    Run ("Open_6sS2")
    Worksheets("H345").Activate
   
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 0 Then
    Run ("Open_6sS3")
    Worksheets("H0").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 15 Then
    Run ("Open_6sS3")
    Worksheets("H15").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 30 Then
    Run ("Open_6sS3")
    Worksheets("H30").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 45 Then
    Run ("Open_6sS3")
    Worksheets("H45").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 60 Then
    Run ("Open_6sS3")
    Worksheets("H60").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 75 Then
    Run ("Open_6sS3")
    Worksheets("H75").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 90 Then
    Run ("Open_6sS3")
    Worksheets("H90").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 105 Then
    Run ("Open_6sS3")
    Worksheets("H105").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 120 Then
    Run ("Open_6sS3")
    Worksheets("H120").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 135 Then
    Run ("Open_6sS3")
    Worksheets("H135").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 150 Then
    Run ("Open_6sS3")
    Worksheets("H150").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 165 Then
    Run ("Open_6sS3")
    Worksheets("H165").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 180 Then
    Run ("Open_6sS3")
    Worksheets("H180").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 195 Then
    Run ("Open_6sS3")
    Worksheets("H195").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 210 Then
    Run ("Open_6sS3")
    Worksheets("H210").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
    Run ("Open_6sS3")
    Worksheets("H225").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 240 Then
    Run ("Open_6sS3")
    Worksheets("H240").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
    Run ("Open_6sS3")
    Worksheets("H255").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 270 Then
    Run ("Open_6sS3")
    Worksheets("H270").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 285 Then
    Run ("Open_6sS3")
    Worksheets("H285").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 300 Then
    Run ("Open_6sS3")
    Worksheets("H300").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 315 Then
    Run ("Open_6sS3")
    Worksheets("H315").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 330 Then
    Run ("Open_6sS3")
    Worksheets("H330").Activate
    ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 345 Then
    Run ("Open_6sS3")
    Worksheets("H345").Activate

    End If
   
    'Copy Value
        Range(Cells(c + 251, 4), Cells(c + 251, 73)).Select
        Selection.Copy
   
    Windows("Mating Coco Load Phase 1 Summary xx.xlsm").Activate
    Sheets("Concomitant").Select
       
    'Paste Value
        Range(Cells(c, 4), Cells(c, 73)).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Windows("Mating Coco Load Phase 1 Moses Output.xlsm").Close savechanges:=False
   
   
    Next
   
    End Sub

Thank you. I hope someone can help me.
 
Last edited by a moderator:

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.
Sort by date Sort by votes
Does this work:
VBA Code: 
Sub AAA()
Workbooks("Mating Coco Load Phase 1 Summary xx.xlsm").Activate
Worksheets("Concomitant").Activate

For c = 6 To 10 'the looping range

    ' create pointers
    Open_part_1 = Cells(c, 74).Value
    Open_part_2 = Cells(c, 75).Value
    Worksheet_Num = Cells(c, 76).Value
    Open_String = "Open_" & Open_part_1 & "sS" & Open_part_2
    
    ' perform actions
    Run (Open_String)
    Worksheets("H" & Worksheet_Num).Activate
    
    'Copy Value
    Range(Cells(c + 251, 4), Cells(c + 251, 73)).Select
    Selection.Copy
    
    Windows("Mating Coco Load Phase 1 Summary xx.xlsm").Activate
    Sheets("Concomitant").Select
    
    'Paste Value
    Range(Cells(c, 4), Cells(c, 73)).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Windows("Mating Coco Load Phase 1 Moses Output.xlsm").Close savechanges:=False


Next

End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Question
After User Enters A Value (Validation List), Not Automatically Advancing To Next Cell As Per "Select"
Replies
1
Views
177
Ark68
A
T
  • Question
Copy values from one workbook to a another specific workbook based off a cell value
Replies
1
Views
417
thechad
T
J
  • Question
Which formula can I use to automatically generate a new invoice number?
Replies
9
Views
401
mumps
mumps
S
  • Question
New record from multi sheets to one sheet
Replies
0
Views
205
spmatrix
S
J
  • Question
Copy row from Workbook to another when Checkbox is checked
Replies
0
Views
542
JohnTester
J

Forum statistics

Threads
1,214,979
Messages
6,122,551
Members
449,088
Latest member
davidcom

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top