Give a cell as reference in a module

[abdul43]

HI ,
I have a code for getting increasing numbers in a cell.... that is .....

Sub Count()
With ActiveSheet.Range("H7")
.Value = .Value + 1
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.PrintOut
If .Value >= 10 Then Exit Sub 'limit
End With
Application.OnTime Now + TimeValue("00:00:02"), "Count" 'every 2 seconds
End Sub

here in line 6 "If .Value >= 10 Then Exit Sub 'limit" i want to replace the value 10 by a cell reference in a sheet within the same work book so it can take the value " limit" from a cell.
Advance thanks.

 

[abdul43]

will These two codes need two different modules sir???

 

[abdul43]

Thanks now i have two modules first one is for starting macro (Code 1) & second one is for stoping the current macro (Code 2) these both codes are assigned to two different buttons the first one named as "Start" and the second as "Stop" now it start and runs correctly as i need but when the stop button is pressd it goes to vb and says:
" Compile error
Expacted function or variable"
will u give me some more time plz...

 

[Momentman]

Thanks now i have two modules first one is for starting macro (Code 1) & second one is for stoping the current macro (Code 2) these both codes are assigned to two different buttons the first one named as "Start" and the second as "Stop" now it start and runs correctly as i need but when the stop button is pressd it goes to vb and says:
" Compile error
Expacted function or variable"
will u give me some more time plz...

Apparently, the code I posted was wrong, I thought i had edited it, the second one should be

Sub stopthecode()
    stopcode = True
End Sub

and I hope you have a line like

Public stopcode as boolean

at the top of the module, you can put the two codes in the same module

 

[abdul43]

Now my cone in one module but the stop not working sir,

Public stopcode As Boolean


Sub Count()
    stopcode = False
    If stopcode = False Then
        With ActiveSheet.Range("H7")
            Application.Wait (Now + TimeValue("00:00:01"))
            ActiveSheet.PrintOut
            .Value = .Value + 1
        If .Value > Worksheets("First-14").Range("A62").Value Then Exit Sub
        End With
        Application.OnTime Now + TimeValue("00:00:02"), "Count" 'every 2 seconds
    Else
        Exit Sub
    End If
End Sub
Sub stopthecode()
    stopcode = True
End Sub

is there any syntax error bcz i have changed the the sequence of print and wait in the loop.

 

[Momentman]

Hi Abdul,

Does it give you any errors? or it doesnt just work?

 

[abdul43]

no error but not working mean not stoping

 

[RoryA]

Remove the second line:

stopcode = False

 

[abdul43]

thanks RoryA it stopped the code but when i wanted to start it again using "code 1" then it was failed to start again. is this line is not compulsory for raising the flag to false for next time? although it dosent work.

 

[abdul43]

I have also tried add the following line somewhere

If stopcode = True Then Exit Sub

but where, faild to decide bcz when this goes into "with" it do not comes out before completing it.

 

[RoryA]

Amend the code slightly:

Public stopcode As Boolean

Sub Count()
    If stopcode Then
        stopcode = False
    Else
        With ActiveSheet.Range("H7")
            Application.Wait (Now + TimeValue("00:00:01"))
            ActiveSheet.PrintOut
            .Value = .Value + 1
        If .Value > Worksheets("First-14").Range("A62").Value Then Exit Sub
        End With
        Application.OnTime Now + TimeValue("00:00:02"), "Count" 'every 2 seconds

    End If
End Sub
Sub stopthecode()
    stopcode = True
End Sub