View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dick Kusleika[_2_] Dick Kusleika[_2_] is offline
external usenet poster
 
Posts: 66
Default Is it possible to export each row of data to a seperate work book

Stacey

You can do it and it's not too hard. To be clear, you want 87 new
workbooks? That's a lot. And do you just want to print them out or would
you be using them later? If you just want a hard copy, you should consider
not creating new workbooks and instead just hiding all the rows but one,
then printing.

Sub PrintEachRow()

Dim cell As Range
Dim Rng As Range

Set Rng = Sheet1.Range("A1", Sheet1.Range("A1").End(xlDown))

For Each cell In Rng.Cells
Rng.EntireRow.Hidden = True
cell.EntireRow.Hidden = False
cell.Parent.PrintOut
Next cell

End Sub

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com

Stacey wrote:
Hi,

Is it possible to take the names and addresses from one spreadsheet
and Create a blank form and copy each persons information into the blank
form and then save the file and then jump to the next name and address
and do the same, until they are all created. I have about 87 names and
addresses that I want to export to a blank form that I will printout and
put in a notebook so I can keep a log of the service work I perform at
each location. Is this possible? If so how hard would it be to create? I
have no VBA experience, but I sure would like to learn and this would be
a good place to start.


Thanks,

Stacey