Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Question
I'm trying to loop through a workbook, test to see if the worksheet name is
numeric, and if so go to a subroutine(MoveData), if not, continue to the next worksheet. I tried the following but can't get it to work, it has a problem with the Next line. Anyone have any ideas? Thanks, Alan Sub Move_All_Data() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select If IsNumeric(ActiveSheet.Name) Then MoveData Else Next ws End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Question
Try this modification which deletes the Else clause, cleans up the Next line,
and adusts the Then clause... Sub Move_All_Data() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select If IsNumeric(ActiveSheet.Name) Then MoveData Next 'ws End Sub -- Jay "Alan P" wrote: I'm trying to loop through a workbook, test to see if the worksheet name is numeric, and if so go to a subroutine(MoveData), if not, continue to the next worksheet. I tried the following but can't get it to work, it has a problem with the Next line. Anyone have any ideas? Thanks, Alan Sub Move_All_Data() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select If IsNumeric(ActiveSheet.Name) Then MoveData Else Next ws End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Question
try this. Test and then uncomment the commented line
Sub eachnumericws() For Each ws In Worksheets If IsNumeric(ws.Name) Then MsgBox ws.Name 'TEST 'If IsNumeric(ws.Name) Then movedata Next End Sub -- Don Guillett SalesAid Software "Alan P" wrote in message ... I'm trying to loop through a workbook, test to see if the worksheet name is numeric, and if so go to a subroutine(MoveData), if not, continue to the next worksheet. I tried the following but can't get it to work, it has a problem with the Next line. Anyone have any ideas? Thanks, Alan Sub Move_All_Data() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select If IsNumeric(ActiveSheet.Name) Then MoveData Else Next ws End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Question
Thanks Jay it looks like that did the trick.
Alan "Jay" wrote: Try this modification which deletes the Else clause, cleans up the Next line, and adusts the Then clause... Sub Move_All_Data() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select If IsNumeric(ActiveSheet.Name) Then MoveData Next 'ws End Sub -- Jay "Alan P" wrote: I'm trying to loop through a workbook, test to see if the worksheet name is numeric, and if so go to a subroutine(MoveData), if not, continue to the next worksheet. I tried the following but can't get it to work, it has a problem with the Next line. Anyone have any ideas? Thanks, Alan Sub Move_All_Data() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select If IsNumeric(ActiveSheet.Name) Then MoveData Else Next ws End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Question
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Loop question | Excel Discussion (Misc queries) | |||
end with loop question | Excel Programming | |||
loop question | Excel Programming | |||
One more loop question | Excel Programming | |||
another loop question | Excel Programming |