Hi all,
I have the below macro to process a expense payments and i want to add one more step or as a another Macro (if part of this one I need it to pause for employee to check for errors in spreadsheet.)
The additional step is to save tab "Treasury Master" as a .csv file to a designated folder and naming as "MMDDYYTreasury Manager Upload" MMDDYY for current day
Any help would be appreciated -- also is there any redundancy in the below Macro that could be removed?
Thank you
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],"", "",DN)"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],"", "",RC[2])"
Range("B2").Select
Selection.Copy
Range("B3:B100").Select
ActiveSheet.Paste
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],'CONCUR DOWNLOAD'!C[21]:C[22],2,FALSE)"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H100")
Range("H2:H100").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,""CR"",""DR"")"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I100")
Range("I2:I100").Select
Columns("E:E").Select
Selection.NumberFormat = "000000000"
Range("F17").Select
End Sub
I have the below macro to process a expense payments and i want to add one more step or as a another Macro (if part of this one I need it to pause for employee to check for errors in spreadsheet.)
The additional step is to save tab "Treasury Master" as a .csv file to a designated folder and naming as "MMDDYYTreasury Manager Upload" MMDDYY for current day
Any help would be appreciated -- also is there any redundancy in the below Macro that could be removed?
Thank you
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],"", "",DN)"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],"", "",RC[2])"
Range("B2").Select
Selection.Copy
Range("B3:B100").Select
ActiveSheet.Paste
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],'CONCUR DOWNLOAD'!C[21]:C[22],2,FALSE)"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H100")
Range("H2:H100").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,""CR"",""DR"")"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I100")
Range("I2:I100").Select
Columns("E:E").Select
Selection.NumberFormat = "000000000"
Range("F17").Select
End Sub