Create a report from a row of cells

[bobbych]

Hi all

I have a speadsheet on one worksheet that has many columns and many rows. The data in the cells is a mix of numbers dates and text.
I would like to be able to automatically produce an A4 sized document (either on a seperate worksheet or in a work doc) with all the data contained in 1 row at a time. The layout of this data on this new document need to be in a format the is easy to read.

Hope I have given plenty of info.

By the way have never used VB but am sure I can insert code into a macro


Cheers

[rwgrietveld]

You don't give us much to work with.

"many columns and many rows" with text, dates and numbers presented in a single row that is easy to read.

Whst is the correlation between all this data and what is easy to read? What should be clearified in that single row?

[bobbych]

Hi
I supose my idea of "many" is not correct, there are currently 35 columns with column titles, and 54 rows.

Each row relates to an event that has occured with upto 35 items to an event.
the Data in the 35 cells along 1 row vary, some free txt, some dates, some numbers.

An sysytem user imputs data into a row to reflect an event.

I would like to create a report containing the data for 1 event(1 row) the report need to be printed on A4 paper.

[teylyn]

A single sample workbook can be worth more than 1000 words ....

but without one, here is a starting point:

On a new sheet within the same workbook, create your preferred layout for the printed page. In one cell of this sheet, specify which row of your data you want to print. This should be a number. Let's say this number is entered in A1 of the report sheet.

On the report sheet, select the cell that will display the data in column A of the data sheet and enter the formula

=OFFSET(datasheet1!A1,A1,0)

Adjust this formula to properly reflect the number of rows required for the offset formula. Create similar formulas for the other cells in the report sheet, i.e. the one that will display column B of the data sheet will be

=OFFSET(datasheet1!B1,A1,0)

and so on

Now when you change the number in A1 of the report sheet, the report will display the data for the respective row in A1. Select a data row and print the report. Rinse and repeat.