Alvaroro84
Board Regular
- Joined
- May 13, 2022
- Messages
- 65
- Office Version
- 2016
- Platform
- Windows
My question is how do I stop the code in the bottom from filling up everything in that column
Sub Legal()
With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="RTO", Operator:=xlAnd
End With
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "SNAP"
End With
' add a reset filter
Worksheets("Master").AutoFilterMode = False
With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="CL03", Operator:=xlAnd
.AutoFilter field:=13, Criteria1:="0", Operator:=xlAnd
End With
'when it gets to this area the filter show that nothing fill this criteria so it only shows the title in column one
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "No "
End With
' after running this part it turn all columns into No for row 11.
Sub Legal()
With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="RTO", Operator:=xlAnd
End With
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "SNAP"
End With
' add a reset filter
Worksheets("Master").AutoFilterMode = False
With Worksheets("Master").Range("A1")
.AutoFilter field:=10, Criteria1:="CL03", Operator:=xlAnd
.AutoFilter field:=13, Criteria1:="0", Operator:=xlAnd
End With
'when it gets to this area the filter show that nothing fill this criteria so it only shows the title in column one
With Columns("A").SpecialCells(xlConstants)
.Offset(1, 10).Resize(.Rows.Count - 1).Value = "No "
End With
' after running this part it turn all columns into No for row 11.