C
Chiefen
I have a macro that is copying one sheet into another workbook and
would like to save it with ref. to one cell. It also has to be saved
in active folder regardless of folder ie. 2 different machines and so
on.
Anyone who is able to help me here???
Sub Macro2()
Application.ScreenUpdating = False
Sheets("BROB").Select
Sheets("BROB").Copy
ChDir "D:\Users\Common\CE\VBC"
ActiveWorkbook.SaveAs Filename:= _
"D:\Users\Common\CE\VBC\", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("BROB").Select
Range("ak4:Ap4").Select
Selection.Copy
Sheets("BROB").Select
Range("Aa4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B9:y498").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C3:E3").Select
Selection.ClearContents
Range("C4:E4").Select
Selection.ClearContents
Range("B9").Select
'ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
would like to save it with ref. to one cell. It also has to be saved
in active folder regardless of folder ie. 2 different machines and so
on.
Anyone who is able to help me here???
Sub Macro2()
Application.ScreenUpdating = False
Sheets("BROB").Select
Sheets("BROB").Copy
ChDir "D:\Users\Common\CE\VBC"
ActiveWorkbook.SaveAs Filename:= _
"D:\Users\Common\CE\VBC\", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("BROB").Select
Range("ak4:Ap4").Select
Selection.Copy
Sheets("BROB").Select
Range("Aa4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B9:y498").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C3:E3").Select
Selection.ClearContents
Range("C4:E4").Select
Selection.ClearContents
Range("B9").Select
'ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub