Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop across Sheets and number of sheets
Dear all,
I request you all to kindly help me with this problem. We maintain the details of a certain project in one sheet. One sheet is devoted to only one project wherein it contains information of the revenue, profitability, vendors etc. For reporting purposes, for eg. if I have to find out the status of all the vendors. Then I have to go through each sheet and find it out. I wish to create a macro which runs a loop (for, while, do-while) across the sheets. Can anyone suggest how to create a loop to cover the sheets. Secondly, is there any command in VB Editor which can count the total number of sheets in a file. Thanking in advance, Regards Raj |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop across Sheets and number of sheets
msgbox "There are " & Activework.Worksheets.Count & _ " sheets" (example 1) Dim ThisWS As Worksheet For Each ThisWS In ActiveWorkbook.Worksheets Next (example 2) Dim index As Long For index = 1 To ActiveWorkbook.Worksheets.Count Next Patrick Molloy Microsoft Excel MVP -----Original Message----- Dear all, I request you all to kindly help me with this problem. We maintain the details of a certain project in one sheet. One sheet is devoted to only one project wherein it contains information of the revenue, profitability, vendors etc. For reporting purposes, for eg. if I have to find out the status of all the vendors. Then I have to go through each sheet and find it out. I wish to create a macro which runs a loop (for, while, do-while) across the sheets. Can anyone suggest how to create a loop to cover the sheets. Secondly, is there any command in VB Editor which can count the total number of sheets in a file. Thanking in advance, Regards Raj . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop across Sheets and number of sheets
Hi Patrick,
Thanks a lot for the prompt response. I shall definitely try this and come back in case I face any problems Raj -----Original Message----- msgbox "There are " & Activework.Worksheets.Count & _ " sheets" (example 1) Dim ThisWS As Worksheet For Each ThisWS In ActiveWorkbook.Worksheets Next (example 2) Dim index As Long For index = 1 To ActiveWorkbook.Worksheets.Count Next Patrick Molloy Microsoft Excel MVP -----Original Message----- Dear all, I request you all to kindly help me with this problem. We maintain the details of a certain project in one sheet. One sheet is devoted to only one project wherein it contains information of the revenue, profitability, vendors etc. For reporting purposes, for eg. if I have to find out the status of all the vendors. Then I have to go through each sheet and find it out. I wish to create a macro which runs a loop (for, while, do-while) across the sheets. Can anyone suggest how to create a loop to cover the sheets. Secondly, is there any command in VB Editor which can count the total number of sheets in a file. Thanking in advance, Regards Raj . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Loop all Sheets not working. | New Users to Excel | |||
Loop through varible list of sheets | Excel Discussion (Misc queries) | |||
Multiple Sheets (Need to create 500 individual sheets in one workbook, pulling DATA | Excel Worksheet Functions | |||
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Worksheet Functions | |||
Loop through sheets, deselect charts | Excel Programming |