excel macro

[jen0dorf]

Hi


Have a client who uses macros called by unc path over the network. He now uses the "File server" to work on the excel spread sheets but the macros do not work.

Is there any way he can use the macros locally and from the network?

thanks

Ian

 

[SkipVought]

...and the VBA code I asked you also to post?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[jen0dorf]

Hi

senior moment, I'll get the code tomorrow ;-)

cheers

Ian

 

[jen0dorf]

Hi

just got the clients code here it is, seems his problem is that this path is not recognised from his pc which holds the data:

\\Upstairs\E\Glulam Timber Systems\Glulam Timber Systems Limited\Beam quotes"
ActiveWorkbook.SaveAs Filename:= _
"\\Upstairs\E\Glulam Timber Systems\Glulam Timber Systems Limited\Beam quotes\GTS Beam Jul 08.xls

Thanks for the assist

Ian

Sub SaveNewQuote()
'
' SaveNewQuote Macro
' Macro recorded 07/07/2005 by Stuart
'

'
ActiveSheet.Unprotect
Sheets("GTS807").Copy After:=Sheets(2)
Range("x3").Select
Selection.ClearContents
Range("D1").Select
Selection.Copy
Range("x1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll ToRight:=8
Range("AU236:AZ255").Select
Selection.Copy
Range("AG236:AQ255").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG236:AQ255").Select
Selection.Sort Key1:=Range("AH236"), Order1:=xlAscending, Key2:=Range( _
"AI236"), Order2:=xlAscending, Key3:=Range("AK236"), Order3:= _
xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal, DataOption3:=xlSortNormal
Range("J2").Select
Range("EA2:IV2").Select
Selection.Copy
Range("EA6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("EA6:IP6").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Sheets("Data807").Select
Range("A3").Select
ActiveSheet.Paste Link:=True
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("D3").Select
Selection.NumberFormat = "dd/mm/yy;@"
Range("E3").Select
Selection.NumberFormat = "dd/mm/yy;@"
Range("H3").Select
Selection.NumberFormat = "$#,##0.00"
Range("K3").Select
Selection.NumberFormat = "$#,##0.00"
Range("L3").Select
Selection.NumberFormat = "$#,##0.00"
Range("O3").Select
Selection.NumberFormat = "$#,##0.00"
Range("P3").Select
Selection.NumberFormat = "$#,##0.00"
Sheets("GTS807").Select
ActiveSheet.Unprotect
Range("X3").Select
Selection.Value = 2
Range("U2:W5").Select
Selection.ClearContents
Range("J1:M1").Select
Selection.ClearContents
Range("J2:M2").Select
Selection.ClearContents
Rows("2000:2000").Select
Selection.Insert Shift:=xlDown
Range("A2000").Select
ActiveCell.FormulaR1C1 = Range("A2001") + 1
Selection.Copy
Range("EA2").Select
ActiveSheet.Paste
Range("J4:M4").Select
Selection.ClearContents
Range("P3:Q6").Select
Selection.ClearContents
Range("J6:M6").Select
Selection.ClearContents
Range("E6:F6").Select
Selection.ClearContents
Range("L7:M7").Select
Selection.ClearContents
Range("J8:K8").Select
Selection.ClearContents
Range("L8:M8").Select
Selection.ClearContents
Range("D9:M10").Select
Selection.ClearContents
Range("F7:K7").Select
Selection.ClearContents
Range("B13:I32").Select
Selection.ClearContents
Range("C33:O34").Select
Selection.ClearContents
Range("D35:O36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-15
Range("X5").Select
Selection.Value = "1"
Range("F7:K7").Select
Selection.Value = "1"
Range("j1").Select
ActiveSheet.Protect
ChDir _
"\\Upstairs\E\Glulam Timber Systems\Glulam Timber Systems Limited\Beam quotes"
ActiveWorkbook.SaveAs Filename:= _
"\\Upstairs\E\Glulam Timber Systems\Glulam Timber Systems Limited\Beam quotes\GTS Beam Jul 08.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[SkipVought]

this path is not recognised from his pc "

That is not a VBA problem.

He needs to get with his network support and get access.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[jen0dorf]

Hi

thanks for that I'll go o site on Monday and check it out

cheers

Ian