ActiveSheet.Range and ActiveSheet.AutoFilter.Range Questions

[drozek]

I have a few questions:

1) I am trying to delete all the rows in Col 4 with #, the code I have is this:
ActiveSheet.Range("$A$1:$AJ$11576").AutoFilter Field:=4, Criteria1:="#"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)

2) How do I add multiple things I wanted deleted not just #, like *, & in Col 4



3) I also have a Col 10 with dates "'5/2/2019" "'10/2/2018", how do I delete everything besides last months and year. So I run this report in June and trying just to run May numbers.

Thanks!

 

[mole999]

you could do this, no filters

Sub Macro1()
    Columns("D:D").Select
    Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[drozek]

you could do this, no filters

Sub Macro1()
    Columns("D:D").Select
    Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

It didn't delete the entire row just that cell

 

[drozek]

maybe not, i think it might have works,

 

[Twollaston]

I have a few questions:

1) I am trying to delete all the rows in Col 4 with #, the code I have is this:
ActiveSheet.Range("$A$1:$AJ$11576").AutoFilter Field:=4, Criteria1:="#"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)

2) How do I add multiple things I wanted deleted not just #, like *, & in Col 4



3) I also have a Col 10 with dates "'5/2/2019" "'10/2/2018", how do I delete everything besides last months and year. So I run this report in June and trying just to run May numbers.

Thanks!

You can try this
ActiveSheet.Range("$A$1:$AJ$11576").AutoFilter Field:=4, Criteria1:="#", Operator:=xlOr, Criteria2:="*"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)