Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to chain VBA applications
Is there anyway these 2 codes can be chained to execute consecutively
Other than by Application.Run€¦.€¦If possible, I do not want to change the original codes. Thank You. ' SALES Macro ' Macro recorded 4/25/2006 Dim i As Long For i = 10201 To 10320 Step 8 Cells(i, "J").Resize(7).FormulaR1C1 = _ "=SUMPRODUCT(--(R6C6:R10006C6=RC9),--(R6C4:R10006C4=R10200C),R6C32:R10006C32)" Cells(i + 7, "J").FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)" 'TOTAL FOR GROUP Next i Range("J10201:J10320").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub ==================================== ' FUS1 Macro ' Macro recorded 4/25/2006 ' Dim i As Long For i = 10322 To 10337 Step 8 Cells(i, "J").Resize(7).FormulaR1C1 = _ "=SUMPRODUCT(--(R6C6:R10006C6=RC9),--(R6C26:R10006C26=R10200C),--(R6C27:R10006C27=""MYR"")*(R6C30:R10006C30))" Cells(i + 7, "J").FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)" 'TOTAL FOR GROUP Next i Range("J10322:J10337").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub -- Robert |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to chain VBA applications
Hi Robert
Just call the second macro in the last line before the End Sub of the Sales macro. Sub Sales() .... .... Application.CutCopyMode = False Call FUSI End Sub() -- Regards Roger Govier "Robert" wrote in message ... Is there anyway these 2 codes can be chained to execute consecutively Other than by Application.Run...If possible, I do not want to change the original codes. Thank You. ' SALES Macro ' Macro recorded 4/25/2006 Dim i As Long For i = 10201 To 10320 Step 8 Cells(i, "J").Resize(7).FormulaR1C1 = _ "=SUMPRODUCT(--(R6C6:R10006C6=RC9),--(R6C4:R10006C4=R10200C),R6C32:R10006C32)" Cells(i + 7, "J").FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)" 'TOTAL FOR GROUP Next i Range("J10201:J10320").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub ==================================== ' FUS1 Macro ' Macro recorded 4/25/2006 ' Dim i As Long For i = 10322 To 10337 Step 8 Cells(i, "J").Resize(7).FormulaR1C1 = _ "=SUMPRODUCT(--(R6C6:R10006C6=RC9),--(R6C26:R10006C26=R10200C),--(R6C27:R10006C27=""MYR"")*(R6C30:R10006C30))" Cells(i + 7, "J").FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)" 'TOTAL FOR GROUP Next i Range("J10322:J10337").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub -- Robert |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to chain VBA applications
Thanks Roger but your way is exactly as "Application.Run('FUS1").
-- Robert " |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to chain VBA applications
In what way? It runs the macros true, but it is a different command, which
is what you asked for? What does Application.Run do that you don't want? -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Robert" wrote in message ... Thanks Roger but your way is exactly as "Application.Run('FUS1"). -- Robert " |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to chain VBA applications
If you don't want to change the original code of either macro, then try
creating a third function that call the first two in order: Sub ChainMyMacros() Call Macro1 Call Macro2 End Sub "Robert" wrote: Thanks Roger but your way is exactly as "Application.Run('FUS1"). -- Robert " |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to chain VBA applications
What I was looking for was to combine the 2 codes into one. The suggestions
from Roger and Rayo are acceptable and will be used. Thanks Bob. -- Robert |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
emergency/snow chain | Charts and Charting in Excel | |||
Chain IF formula help | Excel Worksheet Functions | |||
Eliminate blanks before a charachter chain | Excel Programming | |||
Excel VBA - Chain of Input boxes | Excel Programming | |||
Chain Printing | Excel Programming |