Stop all macro's

**RickBartels** · 03-07-2007, 05:58 AM

u guys helped me out realy nicely with my macro for copying data ever 2 seconds

but now i need to make a button that Immidiately stops all macro's, Or (and This will maby be little more difficult) Stop all macros on a specific time inserted in 1 cell

the macro's that i want to stop running, are all single macro's which i activate with only 1 button i created.

i like something like this:

if "A1"(this is the cell where i have my updated clock) == A2 (the time i insert here stops the macro's at this time) do stop Macro's

i know this doesnt make any sence but now u have an idea

Thanks in advance

**Carim** · 03-07-2007, 06:24 AM

Hi,

If Range("A1").Value = Range("A2").Value then End

**mudraker** · 03-07-2007, 06:51 AM

Rick

Carim's suggested implemented into macro from your previous thread.

Sub OnTimeCopyData()
   Dim lNextRow As Long
   
   If Range("A1").Value = Range("A2").Value Then
      End
   End If
   lNextRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
   If lNextRow > Rows.Count Then
      MsgBox "Sheet Full - Cannot continue"
      End
   End If
   Range("a" & lNextRow & ":c" & lNextRow).Value = Range("a1:c1").Value
   Application.OnTime Now() + TimeValue("00:00:02"), "OnTimeCopyData"
End Sub

**RickBartels** · 03-08-2007, 03:56 AM

thanks very much guys but isnt there a way to Stop all macro's with 1 button? maby by copieing the time in cell a1 to a2 so it will trigger the time macro?

**Carim** · 03-08-2007, 03:59 AM

Private Sub CommandButton1_Click()
End
End Sub

**RickBartels** · 03-08-2007, 04:38 AM

doesnt work, how to specify which macro you wanna end

**mudraker** · 03-08-2007, 06:55 AM

You can not have 2 macros running at the same time.

You can not run one macro to stop another macro directly.

When no macros are already running you can run one macro that changes a setting like a variable or a cell value

The other macros would need to test the value of that setting and if it equals required value then runs an end or exit sub command.

This is what this part of the code is for

If Range("A1").Value = Range("A2").Value Then
     End
 End If

With the above code it would not work unless the 2 times were exact it probally should be


If Range("A1").Value >= Range("A2").Value Then
     End
 End If

Stop all macro's

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Stop all macro's

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions