Paul
Thank You
I will give it a try
Jim Wagner
________________________________
________________________________
From: Paul Schreiner <schreiner_paul@att.net>
To: ExcelVBA@yahoogroups.com
Sent: Wednesday, October 24, 2012 11:10 AM
Subject: Re: [ExcelVBA] Change a cell value using VBA
I don't see where you're looping through worksheets.
I see where you're opening separate workBOOKS and saving them.
(At least I see two Workbooks.Open/ActiveWorkbook.SaveAS combinations)
Nevertheless...
When I wish for a "countdown", I prefer to use:
Application.Statusbar = "some text here with a counter: " & cnt
then, at the end, issue:
Application.Statusbar = false
Paul
-----------------------------------------
"Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can." - John Wesley
-----------------------------------------
________________________________
From: luvmymelody <luvmymelody@yahoo.com>
To: ExcelVBA@yahoogroups.com
Sent: Wed, October 24, 2012 1:43:08 PM
Subject: [ExcelVBA] Change a cell value using VBA
Hello All,
I have a vba sub that saves about 18 worksheets, but I would like to add a line
of code to show the countdown of how many sheets are left to save. Below is a
sample of several lines of code. I have found code that does what I want but I
do not know where to put it in the code.
Thank You
Jim Wagner
Sub SetValue()
Worksheets("Sheet1").Range("H1").Value = 18
End Sub
Here is only a partial of my code
Sub ExcelSaving()
'
' ExcelSaving Macro
'
'
Workbooks.Open Filename:= _
"W:\DATA MANAGEMENT SERVICES\MASTER PEOPLESOFT TABLES\Active Employees With
Multiple Jobs.xls"
ActiveWorkbook.SaveAs Filename:= _
"W:\DATA MANAGEMENT SERVICES\MASTER PEOPLESOFT TABLES\Active Employees With
Multiple Jobs.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Workbooks.Open Filename:= _
"W:\DATA MANAGEMENT SERVICES\MASTER PEOPLESOFT TABLES\ALLACCOUNTINFO.xls"
ActiveWorkbook.SaveAs Filename:= _
"W:\DATA MANAGEMENT SERVICES\MASTER PEOPLESOFT TABLES\ALLACCOUNTINFO.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
'This code below will send an email to notify jim
'that the spreadsheets were saved in the new format.
Dim oMessage As MailItem
Set oMessage = CreateItem(olMailItem)
oMessage.To = "luvmymelody@yahoo.com"
oMessage.Subject = "Spreadsheets Saved"
oMessage.Body = "All Spreadsheets were saved in the new format"
oMessage.Send
Set oMessage = Nothing
MsgBox ("Transfer is complete Jim")
End Sub
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Tidak ada komentar:
Posting Komentar