Need To Move Sheets With Some Criteria!

**Rajeshkumar R** · 04-24-2012, 09:05 AM

Hi Friends,

Now, I am quite familiar with Excel Formula & Functions and hope it’s a time to move on to next level like VBA. Please do suggest me what would be the easiest way to learn the same.

Kindly note, as of now VBA means it is “Visual Basic for Application” that much only I know! Not more than that &

At Present, I need your immediate help to achieve below task:-

Please open attached file, which has 9 Summary Sheets and 3 working Sheets which is input to those summary sheets.

When I display this file on a computer, I want below necessities to be taken care.

1. Sheet has to move from Left Side to Right Side i.e. starts from Sheet “AAA”
2. The time delay to move from one sheet to another sheet should be 60 Seconds, means each summary it has to display for 60 Seconds.
3. Each Summary Sheet has to keep display till it reaches Sheet “III”, i.e. nothing but last summary sheet, then again it has to start display Sheet “AAA” and keep repeat the same thing.
4. It should not display working Sheets or other any sheets which is there in the same File.
5. I need a button in Sheet “AAA”, once I click that VBA will starts work and again click the same it has to stop its activity.

Looking forward quick updates from your end…

Thanks & Regards,
Rajeshkumar R

**Rajeshkumar R** · 04-24-2012, 09:11 AM

High Priority!

**antoka05** · 04-24-2012, 09:51 AM

See attached file where I added this code in a module.. I hope it's what you need:

Public sheetIndex As Integer
Public myTime
Sub startTiming()
   sheetIndex = 1
   
   myTime = Now + TimeValue("00:01:00")
   Application.OnTime myTime, "showSheet"
End Sub
Sub showSheet()
   With ThisWorkbook
      Do
         If sheetIndex < .Sheets.Count Then
            sheetIndex = sheetIndex + 1
         Else
            sheetIndex = 1
         End If
      Loop While LCase(.Sheets(sheetIndex).Name) Like "*working*sheet*"
   
      .Sheets(sheetIndex).Activate
      DoEvents
   End With
   
   myTime = Now + TimeValue("00:01:00")
   Application.OnTime myTime, "showSheet"
End Sub
Sub stopClock()
   On Error Resume Next
   
   Application.OnTime _
      EarliestTime:=myTime, _
      Procedure:="showSheet", _
      Schedule:=False
   
   On Error GoTo 0
End Sub

Regards,
Antonio