Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Auto execute a macro if a cell value=1 ?


Hi,

I have looked at the suggested link from cpearson.com but I still don'
get the macro to be executed. The macro itself is working fine and i
executes fine when I start it manually. But what I'm looking for is t
auto-start the macro called MacroX every 60 seconds only if the cel
B3=1 If the cell is not exacley 1 , do nothing.

I have tried the following code but I cannot get it to work:


Private Sub Worksheet_Change(ByVal Target As Range)
Set i = Application.Intersect(Target, Range("B3"))
If Not i Is Nothing And Target.Value = 1 Then MacroX
Application.OnTime Now + TimeValue("00:01:00"), "MacroX"
End Sub


The name of the sheet is called MySheet but I guess that doesn'
matter.

Thanks for all the help so far,
Sve

--
Sve
-----------------------------------------------------------------------
Sven's Profile: http://www.excelforum.com/member.php...nfo&userid=954
View this thread: http://www.excelforum.com/showthread.php?threadid=21954

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,885
Default Auto execute a macro if a cell value=1 ?

Hi
you have to put this code in your worksheet module and not in a standard
module:
- right-click on your tab name
- choose 'Code'
- now paste your code

"Sven" wrote:


Hi,

I have looked at the suggested link from cpearson.com but I still don't
get the macro to be executed. The macro itself is working fine and it
executes fine when I start it manually. But what I'm looking for is to
auto-start the macro called MacroX every 60 seconds only if the cell
B3=1 If the cell is not exacley 1 , do nothing.

I have tried the following code but I cannot get it to work:


Private Sub Worksheet_Change(ByVal Target As Range)
Set i = Application.Intersect(Target, Range("B3"))
If Not i Is Nothing And Target.Value = 1 Then MacroX
Application.OnTime Now + TimeValue("00:01:00"), "MacroX"
End Sub


The name of the sheet is called MySheet but I guess that doesn't
matter.

Thanks for all the help so far,
Sven


--
Sven
------------------------------------------------------------------------
Sven's Profile: http://www.excelforum.com/member.php...fo&userid=9548
View this thread: http://www.excelforum.com/showthread...hreadid=219545


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Auto Execute Macro dennis[_2_] Excel Discussion (Misc queries) 4 January 17th 09 04:47 PM
Auto Execute Macro dennis[_2_] Excel Worksheet Functions 4 January 17th 09 04:47 PM
Auto-execute macro.... Eric @ SEASH, Evansville Excel Discussion (Misc queries) 1 August 24th 05 09:32 PM
Auto execute a macro if a cell value=1 ? Sven[_4_] Excel Programming 1 November 14th 04 11:36 PM
Auto execute a macro if a cell value=1 ? Sven[_2_] Excel Programming 3 May 16th 04 12:06 AM


All times are GMT +1. The time now is 07:30 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"