[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

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 5

Visit Your Group

----------------------------------
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

----------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___