Hi All!
I have several sheets in a wkbk where the user enters data in fixed cell
addresses. Cells are non contiguous. I want to read the values from each
sheet and cell and compile a tabulated summary report on a "Report" sheet in
the same wkbk. Each sheet results to be on a separate row.

Using office 2000
Thanks in advance for any assistance

sgl

--
sgl

See one reply at your post in .setup.

sgl wrote:

Hi All!
I have several sheets in a wkbk where the user enters data in fixed cell
addresses. Cells are non contiguous. I want to read the values from each
sheet and cell and compile a tabulated summary report on a "Report" sheet in
the same wkbk. Each sheet results to be on a separate row.

Using office 2000
Thanks in advance for any assistance

sgl

--
sgl

--

Dave Peterson

Many thanks indeed for your assistance and quick response. The code worked
very well and I have now added code to read each sheet in the workbook and
compile a very useful summary report of the whole wkbk.

"Dave Peterson" wrote:

See one reply at your post in .setup.

sgl wrote:

Hi All!
I have several sheets in a wkbk where the user enters data in fixed cell
addresses. Cells are non contiguous. I want to read the values from each
sheet and cell and compile a tabulated summary report on a "Report" sheet in
the same wkbk. Each sheet results to be on a separate row.

Using office 2000
Thanks in advance for any assistance

sgl

--
sgl

--

Dave Peterson

U¿ytkownik "sgl" napisa³ w wiadomo¶ci
...
Hi All!
I have several sheets in a wkbk where the user enters data in fixed cell
addresses. Cells are non contiguous. I want to read the values from each
sheet and cell and compile a tabulated summary report on a "Report" sheet
in
the same wkbk. Each sheet results to be on a separate row.

Using office 2000
Thanks in advance for any assistance

sgl

--
sgl


try something like this
Sub test()
On Error Resume Next
For Each sh In Sheets
sh.Activate
i = i + 1
j = 0
Ran = "ran" & i
For Each c In ActiveSheet.Range(Ran)
j = j + 1
Sheets("ttl").Cells(i, j) = c.Value
Next c
Next
End Sub

1.place sheet "ttl" as last sheet
2.give names to al cells you want in each sheet - calling them ran&number of
sheet (counting from left)- for sheet1 ran1

hope it helps
mcg