Innovation Technology
Sub Print1()
For a = 1 To 10
Sheet3.Range("L2").Value = a
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, IgnorePrintAreas:=False
Next
End Sub
Steps: Apply your filter in Sheet1 . Select the range where you want to paste the formula (e.g., A2:A100 ) but only visible cells will...
No comments:
Post a Comment