Printing Selected Sheets macro

[Raleyoz]

I have been trying to solve an issue i have with a macro, which i am a complete noob, could someone solve this for me

i need a button on a main worksheet to search all 80 worksheets within the same workbook and print each worksheet that (a1)= "Client"
sheets can be printed as single print

If at all possible is would be great if could filter data associated with "client" from 2 other options

I have searched high and low and nothing seems the same type of problems

thanks in advance

Tony

 

[Leith Ross]

Hello Tony,

You can attach this macro to your button on the main sheet. The second part of the macro, filtering the data based on 2 conditions, can be added later. You didn't say what or where the conditions are and what cells will be filtered.

Sub PrintWorksheets()
  Dim Wks As Worksheet
 
    For Each Wks In Worksheets
      If Wks.Cells(1, "A").Value = "Client" Then
        Wks.PrintOut
      End If
    Next Wks

Sincerely,
Leith Ross

 

[Raleyoz]

Hi Leith

thanks for responding

I added a button and added the Macro, but i have recieved a runtime error 13, not sure if i have messed it up , i just copied it in to macro

If i can send any more info please advise

Tony

 

[Leith Ross]

Hello Tony,

You shouldn't be getting a "Type Mismatch" error. Can you post your workbook for review?

Sincerely,
Leith Ross

 

[MrKowz]

As an addition to Leith's code

Sub PrintWorksheets()
  Dim Wks As Worksheet
 
    For Each Wks In ActiveWorkbook.Worksheets
      If Wks.Cells(1, "A").Value = "Client" Then
        Wks.PrintOut
      End If
    Next Wks
End Sub