ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Shared drive issue with Excel. (https://www.excelbanter.com/excel-programming/372020-shared-drive-issue-excel.html)

J.W. Aldridge

Shared drive issue with Excel.
 
I currently have a shared workbook on a shared drive that several
people access to post their request for information. A few times an
hour, I check the worksheet and input a response. They later come back
and get the response I posted.

Problem: Various pc's keep locking the workbook up. The workbook will
say a certain user is in the workbook (although shared) and yet they
are not.

Any alternate suggestions?

Any way to create individual worksheet shortcuts on their desktops and
place the original in my workbook?

Or am I asking too much of Excel?


J.W. Aldridge

Shared drive issue with Excel.
 
I guess another (maybe simpler) way to put it would be:

Everything that happens on this sheet (the individual's sheet)
C:\Documents and Settings\Administrator\Desktop\[j.doe.xls]Sheet1


To be copied to this sheet (my master sheet)
C:\Documents and
Settings\Administrator\Desktop\[master.request.xls]Sheet3


and vice versa.

Thanx


Dave Patrick

Shared drive issue with Excel.
 
Yes, wrong application. Consider a messaging app such as NetMeeting.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"J.W. Aldridge" wrote:
|I currently have a shared workbook on a shared drive that several
| people access to post their request for information. A few times an
| hour, I check the worksheet and input a response. They later come back
| and get the response I posted.
|
| Problem: Various pc's keep locking the workbook up. The workbook will
| say a certain user is in the workbook (although shared) and yet they
| are not.
|
| Any alternate suggestions?
|
| Any way to create individual worksheet shortcuts on their desktops and
| place the original in my workbook?
|
| Or am I asking too much of Excel?
|



J.W. Aldridge

Shared drive issue with Excel.
 

Dave Patrick wrote:
Yes, wrong application. Consider a messaging app such as NetMeeting.




Thanx Dave.

(but I am desparately trying here!)

However, is there is no code (change event?) that I can use that says:

Whenever a change is saved on THIS sheet (in this workbook):

update the next available row on:

C:\Documents and
Settings\Administrator\Desktop\[master.request.xls]Sheet1


Thanx.


Dave Patrick

Shared drive issue with Excel.
 
A completely different question but yes, you can use the Worksheet_Change
event to fire your code.

This may get you started.

----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mywkbk As Object
Set mywkbk = Application.Workbooks.Open("C:\test2.xls")
With mywkbk
Worksheets(1).Cells(1, 1) = "Hello"
Worksheets(1).Cells(1, 2) = "World"
End With
Application.DisplayAlerts = False
mywkbk.Save
mywkbk.Close
Set mywkbk = Nothing
Application.DisplayAlerts = True
End Sub
----------------------------

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"J.W. Aldridge" wrote:
| Thanx Dave.
|
| (but I am desparately trying here!)
|
| However, is there is no code (change event?) that I can use that says:
|
| Whenever a change is saved on THIS sheet (in this workbook):
|
| update the next available row on:
|
| C:\Documents and
| Settings\Administrator\Desktop\[master.request.xls]Sheet1
|
|
| Thanx.
|



Dave Peterson

Shared drive issue with Excel.
 
You dropped the leading dots on these lines:

.Worksheets(1).Cells(1, 1) = "Hello"
.Worksheets(1).Cells(1, 2) = "World"

Dave Patrick wrote:

A completely different question but yes, you can use the Worksheet_Change
event to fire your code.

This may get you started.

----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mywkbk As Object
Set mywkbk = Application.Workbooks.Open("C:\test2.xls")
With mywkbk
Worksheets(1).Cells(1, 1) = "Hello"
Worksheets(1).Cells(1, 2) = "World"
End With
Application.DisplayAlerts = False
mywkbk.Save
mywkbk.Close
Set mywkbk = Nothing
Application.DisplayAlerts = True
End Sub
----------------------------

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"J.W. Aldridge" wrote:
| Thanx Dave.
|
| (but I am desparately trying here!)
|
| However, is there is no code (change event?) that I can use that says:
|
| Whenever a change is saved on THIS sheet (in this workbook):
|
| update the next available row on:
|
| C:\Documents and
| Settings\Administrator\Desktop\[master.request.xls]Sheet1
|
|
| Thanx.
|


--

Dave Peterson

Dave Patrick

Shared drive issue with Excel.
 
Thanks Dave.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Dave Peterson" wrote:
| You dropped the leading dots on these lines:
|
| .Worksheets(1).Cells(1, 1) = "Hello"
| .Worksheets(1).Cells(1, 2) = "World"




All times are GMT +1. The time now is 04:44 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com