hi,
i run this macro daily. This macro runs fine when the file is called bryan.xls. But if i want to change the file name to bryan+todays date and allow the macro to run. Could any body supply me with code to do this. It doesn`t seem to hard but its wasting a lot of my time and i can`t get the macro to run despite a lot of attempts.
Sub Button1_Click()
End Sub
Sub DAILY_RUN()
'
' DAILY_RUN Macro
'
'
'
Application.CutCopyMode = False
Workbooks.Open Filename:="K:\VerasisReports\SVP1-EREISWFR.csv"
Range("B2:C39").Select
Selection.Copy
Windows("bryan.xls").Activate
Sheets("EUR").Select
Range("X2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SVP1-EREISWFR.csv").Activate
ActiveWindow.SmallScroll Down:=-18
Range("E2:F39").Select
Application.CutCopyMode = False
Selection.Copy
Windows("bryan.xls").Activate
Sheets("GBP").Select
Range("AB2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SVP1-EREISWFR.csv").Activate
ActiveWindow.SmallScroll Down:=-15
Range("H2:I40").Select
Application.CutCopyMode = False
Selection.Copy
Windows("bryan.xls").Activate
Sheets("USD").Select
Range("Z2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("R2:R26").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Sheets("EUR").Select
Range("R2:R25").Select
Selection.NumberFormat = "0"
Sheets("GBP").Select
Range("T2:T28").Select
Selection.NumberFormat = "0"
End Sub
i run this macro daily. This macro runs fine when the file is called bryan.xls. But if i want to change the file name to bryan+todays date and allow the macro to run. Could any body supply me with code to do this. It doesn`t seem to hard but its wasting a lot of my time and i can`t get the macro to run despite a lot of attempts.
Sub Button1_Click()
End Sub
Sub DAILY_RUN()
'
' DAILY_RUN Macro
'
'
'
Application.CutCopyMode = False
Workbooks.Open Filename:="K:\VerasisReports\SVP1-EREISWFR.csv"
Range("B2:C39").Select
Selection.Copy
Windows("bryan.xls").Activate
Sheets("EUR").Select
Range("X2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SVP1-EREISWFR.csv").Activate
ActiveWindow.SmallScroll Down:=-18
Range("E2:F39").Select
Application.CutCopyMode = False
Selection.Copy
Windows("bryan.xls").Activate
Sheets("GBP").Select
Range("AB2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SVP1-EREISWFR.csv").Activate
ActiveWindow.SmallScroll Down:=-15
Range("H2:I40").Select
Application.CutCopyMode = False
Selection.Copy
Windows("bryan.xls").Activate
Sheets("USD").Select
Range("Z2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("R2:R26").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Sheets("EUR").Select
Range("R2:R25").Select
Selection.NumberFormat = "0"
Sheets("GBP").Select
Range("T2:T28").Select
Selection.NumberFormat = "0"
End Sub