Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / September 2007

Tip: Looking for answers? Try searching our database.

update newbie

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Curt - 30 Sep 2007 21:09 GMT
Have a sheet (DATA) all info is entered here. Many userforms and modules.
Need to change some userforms and some modules. Two people are entering info
on (DATA) sheet. Have never done this before. How can I update thier copies
without affecting thier data entries? The sheet is in a folder with word.docs
that are used for mail merge. The sheet is called Parade when you open parade
you get to a data  userform then go to next userform to get location you want
in program.
Searched thru and could not find any answers that addressed my problem. Or I
did not know what I was looking for.
Started this last Feburary. If not for this forum I would of been lost.
Thanks to All
Joel - 30 Sep 2007 22:12 GMT
I would copy the file with the data into your updated workbook with the
lastest version of the forms and macros.  First delete all sheets in your
updated workbook and then copy the sheets with data into the file.  Make
copies of both workbooks incase problems occur.

One worksheet will remain in your updated workbook because all sheets cannot
be revoed from a workbook.  When you copy in the new worksheet there may be a
sheet that is the same name as the one that remained in your updated
workbook.  this will have a (2) in the sheet name that needs to be changed.

Sub addworkbook()

'open old old workbook
oldwbkname = "c:\temp\book1.xls"

'delete all sheets in this workbook
'one sheet will remain
With ThisWorkbook
  For Each ws In .Worksheets
     If .Worksheets.Count > 1 Then
        ws.Delete
     End If
  Next ws
End With

'open old old workbook
Workbooks.Open Filename:=oldwbkname
oldbookname = ActiveWorkbook.Name
With Workbooks(oldbookname)
  For Each ws In .Worksheets
     With ThisWorkbook
        lastsheet = .Worksheets.Count
        ws.Copy after:=.Worksheets(lastsheet)
     End With
  Next ws
End With
End Sub

> Have a sheet (DATA) all info is entered here. Many userforms and modules.
> Need to change some userforms and some modules. Two people are entering info
[quoted text clipped - 7 lines]
> Started this last Feburary. If not for this forum I would of been lost.
> Thanks to All
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.