I wondering if someone could write a code to extract these templates and possibility more in the future: Template MOV , Template SANDBAG, and Template TEMP from the file name test data input BIR.xlsm and place them in there own files such as MOV.xlsm.
I would like to do choose which template to change to a file if possible.
The best I can do is write this macro for extracting the files very
Thanks
Lyle
I would like to do choose which template to change to a file if possible.
The best I can do is write this macro for extracting the files very
Code:
Sub MOV()
' MOV Macro
Range("A1").Select
Selection.Copy
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Sheets("Input").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Sheets("Template").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Template Temp").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Template Sandbag").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Range("A1").Select
ChDir "C:\Users\XXX\Documents\XXX Apps\RACING INFO\BIR RECORD KIT"
ActiveWorkbook.SaveAs Filename:= "C:\Users\XXX\Documents\XXX Apps\RACING INFO\BIR RECORD KIT\Test Data Input BIR MOV.xlsm" ,FileFormat:=xlOpenXMLWorkbookMacroEnabled _, CreateBackup:=False
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub
Sub Temp()
' Temp Macro
Sheets("Template Temp").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, ranspose:=False
Sheets("Input").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Sheets("Template").Select
Sheets("Template").Name = "Template"
Range("M50").Select
Sheets("Template").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Template MOV").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Template Sandbag").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Range("A1").Select
ChDir "C:\Users\XXX\Documents\XXX Apps\RACING INFO\BIR RECORD KIT"
ActiveWorkbook.SaveAs Filename:= "C:\Users\XXX\Documents\Lyle Apps\RACING INFO\BIR RECORD KIT\Test Data Input BIR TEMP.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub
Sub Sandbag()
' Sandbag Macro
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, ranspose:=False
Sheets("Input").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Sheets("Template").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Template MOV").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Template Temp").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\XXX\Documents\XXX Apps\RACING INFO\BIR RECORD KIT\Test Data Input BIR SANGBAG.xlsm" , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End SubLyle