Posts by pointofaSword

pointofaSword · Feb 13th 2018

Thank you Jollvanes that's just what i needed

pointofaSword · Oct 24th 2017

Hello

VBA newbie here,

I found a code on the forum to print copies based on cell value, but I need to be able to specify what sheet to print

So I input number in cell on sheet 1 press button with assigned macro that would print out that number of copies of Sheet 2.

Any help would be greatly appreciated

Code

Sub Macro3()


    For Each Worksheet In ActiveWorkbook.Worksheets


        With Sheets(Worksheet.Name)


            If .Visible = xlSheetVisible And _
                IsNumeric(.Range("A1").Value) = True And _
               .Range("A1").Value > 0 Then
                    .PrintOut Copies:=.Range("A1").Value, _
                     IgnorePrintAreas:=False
            End If


        End With


    Next Worksheet


End Sub

Display More

pointofaSword · Oct 16th 2017

Hello

VBA newbie here,

I found a code on the forum to print copies based on cell value, but I need to be able to specify what sheet to print

So I input number in cell on sheet 1 press button with assigned macro that would print out that number of copies of Sheet 2.

Any help would be greatly appreciated

Code

Sub Macro3()


    For Each Worksheet In ActiveWorkbook.Worksheets


        With Sheets(Worksheet.Name)


            If .Visible = xlSheetVisible And _
                IsNumeric(.Range("A1").Value) = True And _
               .Range("A1").Value > 0 Then
                    .PrintOut Copies:=.Range("A1").Value, _
                     IgnorePrintAreas:=False
            End If


        End With


    Next Worksheet


End Sub

Display More

pointofaSword · Oct 16th 2017

Hello

VBA newbie here,

I found a code on the forum to print copies based on cell value, but I need to be able to specify what sheet to print

So I input number in cell on sheet 1 press button with assigned macro that would print out that number of copies of Sheet 2.

Any help would be greatly appreciated

Code

Sub Macro3()


    For Each Worksheet In ActiveWorkbook.Worksheets


        With Sheets(Worksheet.Name)


            If .Visible = xlSheetVisible And _
                IsNumeric(.Range("A1").Value) = True And _
               .Range("A1").Value > 0 Then
                    .PrintOut Copies:=.Range("A1").Value, _
                     IgnorePrintAreas:=False
            End If


        End With


    Next Worksheet


End Sub

Display More

Posts by pointofaSword

VBA to print number of copies based on cell value

VBA to print number of copies based on cell value

VBA to print number of copies based on cell value

VBA to print number of copies based on cell value