Code to select print out areas
 

Hi all,

I have a spreadsheet with about 200 rows.Each row has formulas. Is there a
way to do a code that only print out the areas containing a value (numbers)
in these areas, and not if it´s only formulas.

What can I say, I want a button, and when I press that button the areas
that are printed are the one´s containing the numbers.
That means that the code has to have the properties to increase or decrease
the area depending whether there are numbers or not.


Example:

A Return
3 1000 Print row=YES
4 Formula Print row=NO
5 3000 Print=rowYES

7 Formula Print row=NO
8 4000 Print=rowYES
9 Formula Print row=NO

...............and so on

Thanks,

Thomas

Code to select print out areas
 

you would have to loop through your rows and hide them based on the value in
the formula

If they produce a number or text. you could do

On error Resume NExt
set rng = Columns(1).SpecialCells(xlformulas,xlTextValues)
On error goto 0
if not rng is nothing then
rng.EntireRow.Hidden = True
Activesheet.Printout
End if

--
Regards,
Tom Ogilvy

"Jonsson" wrote in message
...
Hi all,

I have a spreadsheet with about 200 rows.Each row has formulas. Is there a
way to do a code that only print out the areas containing a value
(numbers)
in these areas, and not if it´s only formulas.

What can I say, I want a button, and when I press that button the areas
that are printed are the one´s containing the numbers.
That means that the code has to have the properties to increase or
decrease
the area depending whether there are numbers or not.


Example:

A Return
3 1000 Print row=YES
4 Formula Print row=NO
5 3000 Print=rowYES

7 Formula Print row=NO
8 4000 Print=rowYES
9 Formula Print row=NO

..............and so on

Thanks,

Thomas