Excel 2010 vs 2016 issues

kripper

Board Regular
Joined
Dec 16, 2013
Messages
102
Good Evening,

Just updated from Excel 2010 to Excel 2016, and I am noticing some issues with the application when running my Excel Dashboard built in 2010 version.

Macros I have in the my original workbook are designed to open a second workbook, copy the data from that workbook and paste it into my original file, all while the application remains hidden from the user, unless there is an error, which unhides the original workbook.

Now with the 2016 version, when it runs the macros, the dashboard no longer remains hidden, and once the data is copied, it closes the secondary, but leaves another instance window of the application open, and when I attempt to close the instance, it closes the original workbook as well.

Hoping someone might be able to assist.
 

Some videos you may like

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

kripper

Board Regular
Joined
Dec 16, 2013
Messages
102
Thanks, below is the code I am currently using to filter and remove the current month data from a sheet in workbook 1, open workbook 2, copy and paste the required data in workbook 1, all while the application should remain hidden from user view.

VBA Code:
Option Explicit
    Dim Firstrow As Long
    Dim lastRow As Long
    Dim lrow As Long
    Dim CalcMode As Long
    Dim ViewMode As Long
    Dim fileToOpen As String
    Dim foundCol As Range
    Dim WB1 As Workbook, WB2 As Workbook
    Dim myColumns As Variant, myCol As Variant
    Dim colCopy As Long, colPaste As Long
    Dim LR As Long, LR1 As Long, LR2 As Long, LR3 As Long, LR4 As Long, LR5 As Long, LR6 As Long, LR7 As Long
    Dim rng As Range
    Dim dt As String
    Dim myfile As String
    Dim XL As String
    Dim XL1 As String
    Dim RngOne As Range, Cell As Range
    Dim arrList() As String, lngCnt As Long
    Dim msg
    Dim fName As String
    Dim fName1 As String
    Dim fPath As String
Sub A_MONTH1()
    
    fPath = Worksheets("SETUP").Range("C51").Value
    fName = Worksheets("SETUP").Range("Q25").Value & ".xlsx"
    fName1 = Worksheets("SETUP").Range("Q25").Value
    
    Call File_Exist1
    
    dt = VBA.Format(Now, "YYYY-MM-DD")
    
    myColumns = Array("Rpt_date", "LOB", "SegmentGroup", "Segment", "vendorname", "SiteDesc", "DIRECTOREMP_NO", "Director", "manageremp_no", "Manager", "tmemp_no", "Tm_name", "emp_no", "Agt_name", "Metric", "Actual", "Budget", "YEE04", "YEE07", "YEE10", "Budget_Variance", "YEE04_Variance", "YEE07_Variance", "YEE10_Variance", "Trend")
        
    XL = Worksheets("SETUP").Range("M27").Value
    XL1 = Worksheets("SETUP").Range("M29").Value
    
On Error GoTo RuhRoh
    
    Application.Visible = False
    
    Application.Wait (Now() + TimeValue("00:00:01"))
    
    Sheets("SITE").Visible = xlSheetVisible
    Worksheets("SITE").Unprotect Password:="Rascal2017"
    Sheets("SITE").Select
        
    With Worksheets("SITE")

        Rows("1:1").Select
        Selection.AutoFilter
        
        lastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
    
        ActiveSheet.Range("$A$1:$AE" & lastRow).AutoFilter Field:=27, Criteria1:=XL, _
            Operator:=xlOr, Criteria2:=XL1
        
        Call RemoveHiddenRows
    
    End With
    
    Sheets("SITE_C").Visible = xlSheetVisible
    Worksheets("SITE_C").Unprotect Password:="Rascal2017"
    Sheets("SITE_C").Select

    Set WB1 = ThisWorkbook
        With WB1.Sheets("SITE_C")
        LR1 = Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Range("A1:Y" & LR1).ClearContents
            .Range("A1:Y1").Value = myColumns
        End With

    With WB1.Worksheets("FORMAT")
    Set RngOne = .Range("D28:D57")
    End With
    
    lngCnt = 0
    For Each Cell In RngOne
    ReDim Preserve arrList(lngCnt)
    arrList(lngCnt) = Cell.Text
    lngCnt = lngCnt + 1
    Next
    
    Application.Visible = False
    Workbooks.Open FileName:=fPath & Application.PathSeparator & fName
    Application.Visible = False
    
    Application.EnableEvents = False
    
    Set WB2 = ActiveWorkbook
    WB2.Sheets("ExportData").Select
    With WB2.Sheets("ExportData")
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
        Columns.EntireColumn.Hidden = False
        Rows.EntireRow.Hidden = False
        .Range("A1").AutoFilter Field:=13, Criteria1:=arrList, Operator:=xlFilterValues
        LR2 = Cells(Rows.Count, "A").End(xlUp).Row + 1
        For Each myCol In myColumns
            Set foundCol = .Rows(1).Find(myCol)
            If Not foundCol Is Nothing Then
                colCopy = foundCol.Column
                .Range(.Cells(2, colCopy), .Cells(LR2, colCopy)).COPY
                Set foundCol = WB1.Sheets("SITE_C").Rows(1).Find(myCol)
                colPaste = foundCol.Column
                WB1.Sheets("SITE_C").Cells(2, colPaste).PasteSpecial xlPasteValues
            End If
        Next myCol
    End With
    Application.CutCopyMode = False
    WB2.Close False
    Application.Visible = False
    
    Application.Wait (Now() + TimeValue("00:00:01"))

    Sheets("SITE").Visible = xlSheetVisible
    Worksheets("SITE").Unprotect Password:="Rascal2017"
    Sheets("SITE_C").Select
        LR4 = Range("A2").End(xlDown).Offset(1).Row
        Range("A2:Y" & LR4).COPY
    Sheets("SITE").Select
        LR5 = Range("A2").End(xlDown).Offset(1).Row
        Range("A" & LR5).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    Sheets("SITE").Select
    
    Application.Wait (Now() + TimeValue("00:00:01"))
    
    With Sheets("SITE")
        LR5 = Range("A2").End(xlDown).Offset(1).Row
        Range("Z2").Select
        ActiveCell.FormulaR1C1 = _
            "=IFERROR(IF(RC1="""","""",TEXT(RC1,""YYYY-MM-DD"")),""--"")"
        Selection.AutoFill Destination:=Range("Z2:Z" & LR5)
        Range("AA2").Select
        ActiveCell.FormulaR1C1 = "=IFERROR(TEXT(RC26,""M""),""--"")"
        Selection.AutoFill Destination:=Range("AA2:AA" & LR5)
    End With
    
    With ThisWorkbook.Sheets("SITE")
        .Calculate
    End With
    
    Application.Wait (Now() + TimeValue("00:00:01"))
    
    With Sheets("SITE")
        If .FilterMode Then .ShowAllData
        LR6 = Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Range("A2:AA" & LR6).Sort _
        Key1:=Range("J2"), Order1:=xlAscending
        .Range("A1", "AA" & LR6).Font.Name = "Constantia"
        .Range("A1", "AA" & LR6).HorizontalAlignment = xlLeft
        .Range("A1", "AA" & LR6).VerticalAlignment = xlCenter
        .Range("A1", "AA" & LR6).Font.Size = 8
        .Range("A2", "AA" & LR6).Font.Color = vbBlack
    End With
    
    LR7 = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Set rng = Range("A2:AA" & LR7)
    With rng.Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
    End With
    
    Worksheets("SITE").Range("AB1").Value = dt
    
    Worksheets("SITE").Range("AC1").Value = "Yes"
    
    With Worksheets("SITE")
        .Protect Password:="Rascal2017", userinterfaceonly:=False, AllowSorting:=False, AllowFiltering:=False
        .EnableOutlining = False
    End With
    
    Worksheets("SITE").Visible = xlSheetHidden
    Worksheets("SITE_C").Visible = xlSheetHidden
    ThisWorkbook.Save
    Call HOME
    Application.Visible = True
    Exit Sub
    
RuhRoh:
    If err.Number <> 0 Then MsgBox "We seem to have encountered an error during upload!", vbOKOnly, "BDH Enterprises (C) 2019-07-20"
    ThisWorkbook.Save
    Call HOME
    Application.Visible = True
    
End Sub
 

kripper

Board Regular
Joined
Dec 16, 2013
Messages
102
Thanks, however after I broke down the code, I realized an error in another macro that I had embedded within this macro, which was keeping a duplicate instance of the application open.
 

Jeffrey Mahoney

Well-known Member
Joined
May 31, 2015
Messages
1,768

ADVERTISEMENT

Hey Kripper. It seems odd to use this statement many times in the code
Application.Visible = False

I tend to use
Application.ScreenUpdating = False
at the beginning of my code and then change it back at the end.

Can you please tell me why you have used this?
Application.Wait (Now() + TimeValue("00:00:01"))
This pauses everything, including any background calculating.

I'll make other suggestions, you choose if you want to use them

The DoEvents command Yields execution so that the operating system can process other events. It releases automatically

The OnTime command can run a procedure after a certain amount of time. This method may take more resources
Public GoAgain As Boolean < statement at the top of a module

GoAgain = False
Application.OnTime earliesttime:=Now() + TimeValue("00:00:05"), procedure:=GonInOneSecond, Schedule:=True
Do
Doevents
Loop Until GoAgain = True

Sub GonInOneSecond()
GoAgain = True
End Sub
 

Jeffrey Mahoney

Well-known Member
Joined
May 31, 2015
Messages
1,768
In several locations I can see that you make "Selection" of ranges and navigate to cells and then perform an operation on that range. It is much faster to reference the range rather than select the range first.

I also tend to use these commands at the beginning of my code:
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
... and then reverse them at the end of the code. Faster is better.

Just offering helpful hints.
 

Watch MrExcel Video

Forum statistics

Threads
1,114,276
Messages
5,546,921
Members
410,763
Latest member
TSVIVI
Top