naga_raaju
03-09-2010, 12:04 AM
hi ,
i need to call the ones_Click(),twos_Click() methods alternatively for every 10 seconds .
my code is
Public RunWhen As Double
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, 10)
Application.OnTime EarliestTime:=RunWhen, Procedure:="twos_Click", Schedule:=True
End Sub
Private Sub ones_Click()
Sheet1.Range("A1").Value = "1"
Sheet1.Range("A2").Value = "2"
Sheet1.Range("A3").Value = "3"
Sheet1.Range("A4").Value = "4"
Sheet1.Range("A5").Value = "5"
Sheet1.Range("A6").Value = "6"
End Sub
Private Sub twos_Click()
For i = 1 To 6
For j = 1 To 7
Sheet1.Cells(i, j).ClearContents
Next
Next
StartTimer
End Sub
but not working please help me
i need to call the ones_Click(),twos_Click() methods alternatively for every 10 seconds .
my code is
Public RunWhen As Double
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, 10)
Application.OnTime EarliestTime:=RunWhen, Procedure:="twos_Click", Schedule:=True
End Sub
Private Sub ones_Click()
Sheet1.Range("A1").Value = "1"
Sheet1.Range("A2").Value = "2"
Sheet1.Range("A3").Value = "3"
Sheet1.Range("A4").Value = "4"
Sheet1.Range("A5").Value = "5"
Sheet1.Range("A6").Value = "6"
End Sub
Private Sub twos_Click()
For i = 1 To 6
For j = 1 To 7
Sheet1.Cells(i, j).ClearContents
Next
Next
StartTimer
End Sub
but not working please help me