Originally Posted by
piernik
the above ranges
No idea what those ranges are so a complete guess:
Sub dghyrw()
Range("E5:E303").FormulaR1C1 = "=VLOOKUP(RC3&RC1,plan_zmianowy!C2:C5,2,0)"
Range("I5:I303").FormulaR1C1 = "=VLOOKUP(RC3&RC1,plan_zmianowy!C2:C5,3,0)"
Range("M5:M303").FormulaR1C1 = "=VLOOKUP(RC3&RC1,plan_zmianowy!C2:C5,4,0)"
Range("B1").FormulaR1C1 = "=PLAN!R[1]C[42]"
ActiveSheet.Range("$A$4:$Y$303").AutoFilter Field:=25, Criteria1:=">0"
Columns("Y:Y").EntireColumn.Hidden = True
Set CopySource = Intersect(ActiveSheet.AutoFilter.Range, Range("E:E,I:I,M:M"))
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
CopySource.Copy NewSht.Cells(1)
With NewSht.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
NewSht.UsedRange.PrintOut Copies:=1, Preview:=True, Collate:=True
End Sub
Reply With Quote