Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Splitting Procedures
When I run the code below I get a compile error message
that states procedure to large. The knowledge base tells me to split the procedure. How do i do this? Here is the procedure below. Any suggestions or help is extremely appreciated. This code is repeated until Case 14 where only the Worksheet name changes "QA1"-"QA15". How can I split it and still update the cells when the Up1 command button is clicked? Private Sub Up1_Click() Select Case LB1.ListIndex Case 0 'First item in list Range("C5").Value = Worksheets("QA1").Range ("B4").Value Range("C6").Value = Worksheets("QA1").Range ("E4").Value Range("C13").Value = Worksheets("QA1").Range ("D6").Value Range("D13").Value = Worksheets("QA1").Range ("E6").Value Range("E13").Value = Worksheets("QA1").Range ("F6").Value Range("F13").Value = Worksheets("QA1").Range ("G6").Value Range("G13").Value = Worksheets("QA1").Range ("H6").Value Range("H13").Value = Worksheets("QA1").Range ("I6").Value Range("I13").Value = Worksheets("QA1").Range ("J6").Value Range("J13").Value = Worksheets("QA1").Range ("K6").Value Range("K13").Value = Worksheets("QA1").Range ("L6").Value Range("L13").Value = Worksheets("QA1").Range ("M6").Value Range("M13").Value = Worksheets("QA1").Range ("N6").Value Range("N13").Value = Worksheets("QA1").Range ("O6").Value Range("C14").Value = Worksheets("QA1").Range ("D9").Value Range("D14").Value = Worksheets("QA1").Range ("E9").Value Range("E14").Value = Worksheets("QA1").Range ("F9").Value Range("F14").Value = Worksheets("QA1").Range ("G9").Value Range("G14").Value = Worksheets("QA1").Range ("H9").Value Range("H14").Value = Worksheets("QA1").Range ("I9").Value Range("I14").Value = Worksheets("QA1").Range ("J9").Value Range("J14").Value = Worksheets("QA1").Range ("K9").Value Range("K14").Value = Worksheets("QA1").Range ("L9").Value Range("L14").Value = Worksheets("QA1").Range ("M9").Value Range("M14").Value = Worksheets("QA1").Range ("N9").Value Range("N14").Value = Worksheets("QA1").Range ("O9").Value Range("C31").Value = Worksheets("QA1").Range ("D11").Value Range("D31").Value = Worksheets("QA1").Range ("E11").Value Range("E31").Value = Worksheets("QA1").Range ("F11").Value Range("F31").Value = Worksheets("QA1").Range ("G11").Value Range("G31").Value = Worksheets("QA1").Range ("H11").Value Range("H31").Value = Worksheets("QA1").Range ("I11").Value Range("I31").Value = Worksheets("QA1").Range ("J11").Value Range("J31").Value = Worksheets("QA1").Range ("K11").Value Range("K31").Value = Worksheets("QA1").Range ("L11").Value Range("L31").Value = Worksheets("QA1").Range ("M11").Value Range("M31").Value = Worksheets("QA1").Range ("N11").Value Range("N31").Value = Worksheets("QA1").Range ("O11").Value Range("C49").Value = Worksheets("QA1").Range ("D12").Value Range("D49").Value = Worksheets("QA1").Range ("E12").Value Range("E49").Value = Worksheets("QA1").Range ("F12").Value Range("F49").Value = Worksheets("QA1").Range ("G12").Value Range("G49").Value = Worksheets("QA1").Range ("H12").Value Range("H49").Value = Worksheets("QA1").Range ("I12").Value Range("I49").Value = Worksheets("QA1").Range ("J12").Value Range("J49").Value = Worksheets("QA1").Range ("K12").Value Range("K49").Value = Worksheets("QA1").Range ("L12").Value Range("L49").Value = Worksheets("QA1").Range ("M12").Value Range("M49").Value = Worksheets("QA1").Range ("N12").Value Range("N49").Value = Worksheets("QA1").Range ("O12").Value Range("C78").Value = Worksheets("QA1").Range ("D13").Value Range("D78").Value = Worksheets("QA1").Range ("E13").Value Range("E78").Value = Worksheets("QA1").Range ("F13").Value Range("F78").Value = Worksheets("QA1").Range ("G13").Value Range("G78").Value = Worksheets("QA1").Range ("H13").Value Range("H78").Value = Worksheets("QA1").Range ("I13").Value Range("I78").Value = Worksheets("QA1").Range ("J13").Value Range("J78").Value = Worksheets("QA1").Range ("K13").Value Range("K78").Value = Worksheets("QA1").Range ("L13").Value Range("L78").Value = Worksheets("QA1").Range ("M13").Value Range("M78").Value = Worksheets("QA1").Range ("N13").Value Range("N78").Value = Worksheets("QA1").Range ("O13").Value Range("C96").Value = Worksheets("QA1").Range ("D14").Value Range("D96").Value = Worksheets("QA1").Range ("E14").Value Range("E96").Value = Worksheets("QA1").Range ("F14").Value Range("F96").Value = Worksheets("QA1").Range ("G14").Value Range("G96").Value = Worksheets("QA1").Range ("H14").Value Range("H96").Value = Worksheets("QA1").Range ("I14").Value Range("I96").Value = Worksheets("QA1").Range ("J14").Value Range("J96").Value = Worksheets("QA1").Range ("K14").Value Range("K96").Value = Worksheets("QA1").Range ("L14").Value Range("L96").Value = Worksheets("QA1").Range ("M14").Value Range("M96").Value = Worksheets("QA1").Range ("N14").Value Range("N96").Value = Worksheets("QA1").Range ("O14").Value Range("C114").Value = Worksheets("QA1").Range ("D16").Value Range("D114").Value = Worksheets("QA1").Range ("E16").Value Range("E114").Value = Worksheets("QA1").Range ("F16").Value Range("F114").Value = Worksheets("QA1").Range ("G16").Value Range("G114").Value = Worksheets("QA1").Range ("H16").Value Range("H114").Value = Worksheets("QA1").Range ("I16").Value Range("I114").Value = Worksheets("QA1").Range ("J16").Value Range("J114").Value = Worksheets("QA1").Range ("K16").Value Range("K114").Value = Worksheets("QA1").Range ("L16").Value Range("L114").Value = Worksheets("QA1").Range ("M16").Value Range("M114").Value = Worksheets("QA1").Range ("N16").Value Range("N114").Value = Worksheets("QA1").Range ("O16").Value End Select End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Separating sub procedures | Excel Discussion (Misc queries) | |||
Pivotcharts and stored procedures | Charts and Charting in Excel | |||
Can I import SQL Stored Procedures into Excel? | Excel Discussion (Misc queries) | |||
VBA function Procedures.... | Excel Worksheet Functions | |||
VBA functions and Procedures.... | Excel Worksheet Functions |