Slight Variation to selctive printing

[Montana34]

I have a userform that has mulitple buttons and each button prints specific worksheets. I have one button that I want to print specific worksheets, but only those that have A1 filled in. The kicker is that I always want to print sheet 4 but sheets 1-3 only want the one that has data in A1.

Your help is greatly needed. Thank you

 

[erik.van.geit]

Hi,

this is my interpretation of your question

Sub test()
Dim i As Long
 
    For i = 1 To 3
    If Len(Sheets(i).Range("A1")) > 0 Then Sheets(i).PrintOut
    Next i
    
    Sheets(4).PrintOut
End Sub

kind regards,
Erik

 

[Montana34]

very cool thank you, I have another spin to it now. I have those same sheets inside my workbook. This time I want to email just the sheets that have something in cell A1.

thank you again

 

[erik.van.geit]

I started to answer because I know how to print and to loop
now this is a different question ... it's one that I usually skip
so just throwing some ideas, not in particular order

you can record a macro while doing your operations
did you check the VBA helpfiles? if I remember well that part is easy to understand
did you search on the board?

also
http://office.webforums.nl/forum/viewtopic.php?t=25952
I think
www.glynnconsulting.co.uk
a search for "Ron De Bruin" will be really useful
http://www.rondebruin.nl/sendmail.htm#Introduction

email a sheet, let's see what I have in my library

Sub AttachWorksheetToMail()
    Dim x As Boolean
    ActiveSheet.Copy
    x = Application.Dialogs(xlDialogSendMail).Show
End Sub

that's all I have

 

[Montana34]

Hi,

this is my interpretation of your question

Sub test()
Dim i As Long
 
    For i = 1 To 3
    If Len(Sheets(i).Range("A1")) > 0 Then Sheets(i).PrintOut
    Next i
    
  End Sub

kind regards,
Erik

Can i use this code to do the same thing except instead of .PrintOut i want to copy the sheet to another workbook.


Thank you again in advance for you help.

 

[erik.van.geit]

of course
record a macro while doing that
then see how you can put the copy in your code