Problems with Macros calling other Macros in another workbook

N

Nameless_87

New Member
Joined
Dec 19, 2012
Messages
42
Hello MrExcel Wizards!

I have a piece of code that opens another workbook (WB2), Runs a macro in WB2 then copies the data which the second macro has obtained back to the first workbook.

However the issue is that when the macro in WB2 runs, it does not do so correctly. The second macro runs complex filtering in WB2. the filters do not appear to work, it simply brings back a total rather that the filtered numbers.

Opening the workbook manually and running the macro works fine. I have tryed adding in timers to allow the workbooks to prosess but still come back with the same issue. Any idea's?
 

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
Sort by date Sort by votes
This is the first code:

Code: 
Sub BuildRedElements()
'
' Macro2 Macro
'
'
    Workbooks.Open Filename:= _
        C\Integration Tracker v12 Feb-2013.xlsm", WriteResPassword:="Password"
    Sheets("RedElements").Select
    
    
        newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10 'Range("C7").Value
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
    
    Application.Run "'Integration Tracker v12 Feb-2013.xlsm'!FindWWS"
    
   
    Range("B3:M7").Select
    Range("M7").Activate
    Selection.Copy
    Windows("Report Builder.xlsm").Activate
    Sheets("WWSRedElement").Select
    Range("B3").Select
    ActiveSheet.Paste
    
    Windows("Integration Tracker v12 Feb-2013.xlsm").Activate
    Application.DisplayAlerts = False
    ActiveWindow.Close SaveChanges = False
End Sub

And it it runs this code:

Code: 
ub FindWWS()
'
' FindWWS Macro
'
Application.ScreenUpdating = False
'Application.Calculation = xlManual
'
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:= _
        "WWS"
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6, Criteria1:="i"
    Range("G19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=7, Criteria1:="i"
    
    Range("h19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("D5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=7
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Criteria1:="i"
    
    Range("I19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("E5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:="i"
    
    Range("J19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("F5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=10, Criteria1:="i"
    
    Range("K19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("G5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
              
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=10
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=11, Criteria1:="i"
    
    Range("L19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("H5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=11
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=12, Criteria1:="i"
    
    Range("M19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("I5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=12
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=13, Criteria1:="i"
    
    Range("N19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("J5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=13
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=14, Criteria1:="i"
    
        Range("O19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("K5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=14
    ActiveSheet.ListObjects("table1").Range.AutoFilter Field:=4
    
    
     ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:= _
        Array("DWS", "NA", "TS", "WT", "="), Operator:=xlFilterValues
   
     ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6, Criteria1:="i"
    Range("G19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=7, Criteria1:="i"
    
    Range("h19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("D7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=7
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Criteria1:="i"
    
    Range("I19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("E7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:="i"
    
    Range("J19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("F7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=10, Criteria1:="i"
    
    Range("K19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("G7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
              
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=10
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=11, Criteria1:="i"
    
    Range("L19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("H7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=11
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=12, Criteria1:="i"
    
    Range("M19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("I7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=12
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=13, Criteria1:="i"
    
    Range("N19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("J7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=13
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=14, Criteria1:="i"
    
        Range("O19").Select
    Selection.End(xlDown).Select
    
    ActiveCell.Offset(3, 0).Select
    Selection.Copy
    Sheets("RedElements").Select
    Range("K7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("WWT - Networks").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=14
    ActiveSheet.ListObjects("table1").Range.AutoFilter Field:=4
    
    
    
    Sheets("RedElements").Select
    
'Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
    
    
End Sub
 
Upvote 0
Gah! Im an idiot....

I figured out why it was not calculating the correct numbers...... At the beginning of the first script I had turned calculations to manual, so it did not automatically work out the updated figures...

Sorry about wasting your time.</SPAN>
 
Upvote 0
You must log in or register to reply here.

Similar threads

C
  • Question
Copying the same sheet multiple times to a new workbook
Replies
0
Views
306
clatron
C
A
  • Question
Help Using VBA To Create A Workbook Containing VBA
Replies
2
Views
88
Aldk_1
A
P
  • Solved
Macro on server based workbook runs fine for me & colleague, but run-time errors for another colleague
Replies
7
Views
74
PerseveringHarold
P
R
  • Question
Save spreadsheet/PDF to location noted in another open workbook
Replies
6
Views
286
jolivanes
jolivanes
zookeepertx
  • Question
Macro will run correctly in 1 workbook but not another
Replies
5
Views
339
zookeepertx
zookeepertx

Forum statistics

Threads
1,207,097
Messages
6,076,556
Members
446,213
Latest member
bettigb

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