HI to All,
I have been forllowing and learning for a long time but now i'm stack on my own and would appreciate your help.
I have a workbook (jobsheet.xlsm) that is used by 3 users, inputting data in there individual form and with a code data will be sent into the Jobsheet. So far so good, but if for any reason 1 of the user open the Jobsheet to check or edit something into it and while the sheet is open another user input more data, the new data will not be saved since it will be opened on another PC.
All workbooks including Jobsheet.xlsm is on a mapped Drive "T".
Is there a work around to make fool proof?
part of the code
Thanks
[/FONT]
I have been forllowing and learning for a long time but now i'm stack on my own and would appreciate your help.
I have a workbook (jobsheet.xlsm) that is used by 3 users, inputting data in there individual form and with a code data will be sent into the Jobsheet. So far so good, but if for any reason 1 of the user open the Jobsheet to check or edit something into it and while the sheet is open another user input more data, the new data will not be saved since it will be opened on another PC.
All workbooks including Jobsheet.xlsm is on a mapped Drive "T".
Is there a work around to make fool proof?
part of the code
Rich (BB code):
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub copy_to_print_Jobsheet()
'
' Macro5 Macro
'
Application.ScreenUpdating = False
'
Range("a7:n7").Offset(Range("m2").Value, 0).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks.Open "t:\Users\Documents\Orders\jobsheet.xlsm"
Worksheets("JSH PRINT").Activate
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
Workbooks("jobsheet.xlsm").Save
Workbooks("jobsheet.xlsm").Close
Range("a8").Select
Range("M6").Select
Range("M6").Value = "Order Saved"
Range("m1").Select
Selection.Copy
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect
End Sub
Thanks
[/FONT]