Code:
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "national"
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
With Range("V:V")
.EntireColumn.ClearContents
Dim FilterRange As Range, PrintRange As Range
Set FilterRange = Range(("A4"), cells(Rows.Count, 1).End(xlUp).Offset(0, 22))
Set PrintRange = Range(("A1"), cells(Rows.Count, 1).End(xlUp).Offset(0, 20))
Range(("V4:V63"), cells(Rows.Count, 1).End(xlUp).Offset(0, 22)).Formula = "=IF(SUM(RC2,RC6,RC10,RC14)>0,""Yes"",""No"")"
Range("V4,V62:V64") = "Yes"
.Value = .Value
FilterRange.AutoFilter Field:=22, Criteria1:="Yes"
PrintRange.PrintOut
ActiveSheet.AutoFilterMode = False
.EntireColumn.ClearContents
End With
Set FilterRange = Nothing
Set PrintRange = Range(("A63"), cells(Rows.Count, 1).End(xlUp).Offset(0, 21))
Application.ScreenUpdating = True
ActiveSheet.Protect "national"
End Sub
Last edited by a moderator: