Re: [ExcelVBA] Macro Timer

 

Just try declaring TElapsed as a Double instead of String. Hope it works.

Regards

Zahid
-----Original Message-----
From: "sspatriots" <sspatriots@yahoo.com>
Sender: ExcelVBA@yahoogroups.com
Date: Wed, 02 May 2012 15:46:36
To: <ExcelVBA@yahoogroups.com>
Reply-To: ExcelVBA@yahoogroups.com
Subject: [ExcelVBA] Macro Timer

Hi,

I have a macro that is executed with a command button click. In that macro I'm trying to put a stop watch on how long it takes to execute that code. Below is what I have, however, I keep getting a 'Type Mis-match' error when I run it when it gets to 'TElapsed'. I'm not sure what to do to correct the mis-match. I'm guessing it has something to do with the 'Dim TElapsed As String'. Any ideas greatly appreciated.

Thanks,

Steve

Private Sub CommandButton1_Click()

Dim StartTime As String
Dim StopTime As String
Dim TElapsed As String

StartTime = Now

Call TimedMsgbox1

Call TimedMsgbox2

ssGetPRMData.GetPRMData



Call TimedMsgbox3

ssGetFltrCntQALogData.GetNewQALogData_4TtlFltrCntInsp



Application.Calculation = xlAutomatic


StopTime = Now
TElapsed = Format(StopTime - StartTime, "hh:mm:ss")
MsgBox TElapsed


End Sub

[Non-text portions of this message have been removed]

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 4

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

.

__,_._,___