Snasui Excel Forum

Code: Select all

' aaa_mth Macro
'

'
    Sheets(Array("aaa_02", "Detail_Feb")).Select
    Sheets("Detail_Feb").Activate
    Sheets(Array("aaa_02", "Detail_Feb")).Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\Save_feb18.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.Left = -297.5
    Application.Top = 485.5
    ActiveWindow.Close
    Sheets("Detail_Feb").Select
    Sheets.Add After:=ActiveSheet
    Sheets.Add After:=ActiveSheet
    Windows("ER_XLS_19022018.XLS").Activate
    Application.Left = 140.5
    Application.Top = 172.75
    Range("A4:C4").Select
    Application.Left = -77
    Application.Top = 259.75
    ActiveWindow.Close
 
End Sub

Code: Select all

    Sheets(Array("aaa_"&Format$(date+1,"mm", "Detail_"&Format$(date+1, "mmm")).Select
    Sheets("Detail_&Format$(date+1, "mmm").Activate
    Sheets(Array("aaa_"&Format$(date+1,"mm", "Detail_"&Format$(date+1, "mmm")).Copy
     ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\Save_" & Format$(Date + 1, "mmm'yy") & ".xlsx" _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Code: Select all

'...Other code
Dim mn As String, mnt As String, a() As Variant
Dim i As Integer, wks As Worksheet
mn = Application.Text(Now, "[$- ]mm")
mnt = Application.Text(Now, "[$- ]mmm")
For Each wks In Worksheets
    If Right(wks.Name, 2) = mn Or Right(wks.Name, 3) = mnt Then
        ReDim Preserve a(i)
        a(i) = wks.Name
        i = i + 1
    End If
Next wks
'    Sheets(Array("aaa_02", "Detail_Feb")).Select
'    Sheets("Detail_Feb").Activate
'    Sheets(Array("aaa_02", "Detail_Feb")).Copy
Sheets(a).Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\kemanajd\Desktop\Save_feb18.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'...Other code