Travel through no of sheets in a workbook.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Raj - 27 Sep 2007 13:07 GMT

Hi all,

I'm facing with a problem can any one help me on the issue
that i'm facing which is explained further.I'm working on an Hr report
which has 30 sheets in in and in a loop i would like to travel up till
the 25th sheet and while i'm travelling i would like to write some
data in to each sheets can any one provide me with an solution for
this problem.

Reply to this Message

JW - 27 Sep 2007 13:11 GMT

Sub thshets()
For i = 1 To 25
Sheets(i).Cells(1, 1).Value = "Something"
Next i
End Sub

> Hi all,
>
[quoted text clipped - 4 lines]
> data in to each sheets can any one provide me with an solution for
> this problem.

Reply to this Message

crferguson@gmail.com - 27 Sep 2007 13:17 GMT

Well, without mroe information than that, here's a basic place to
start:

Private Sub DoSomething()
Dim w As Worksheet

For Each w In ActiveWorkbook.Sheets
'this next line stops the code from
'running after sheet 25
If w.Index > 25 Then Exit Sub
'code here to write something to
'a sheet as you're passing through.
'for example:
Range("A1").Value = w.Name
Next
End Sub

Hope that helps!

Cory

> Hi all,
>
[quoted text clipped - 4 lines]
> data in to each sheets can any one provide me with an solution for
> this problem.

Reply to this Message

Raj - 27 Sep 2007 13:28 GMT

On Sep 27, 5:17 pm, "crfergu...@gmail.com" <crfergu...@gmail.com>
wrote:

> Well, without mroe information than that, here's a basic place to
> start:
[quoted text clipped - 27 lines]
>
> - Show quoted text -

thanks a lot for ur valuable solution

Reply to this Message

crferguson@gmail.com - 27 Sep 2007 13:46 GMT

On Sep 27, 7:17 am, "crfergu...@gmail.com" <crfergu...@gmail.com>
wrote:

> Well, without mroe information than that, here's a basic place to
> start:
[quoted text clipped - 27 lines]
>
> - Show quoted text -

I'm glad it helped. Have a great week.

Reply to this Message