PDA

View Full Version : Remove "Filters" from Macro Script



jejmiller
02-13-2020, 03:42 PM
Hi. Can someone help me locate the part of my script that contains the action to enable/disable filters? Circled below.

25986



Sub Macro2()'
' Macro2 Macro
'


'
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="x", Replacement:="*", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("C1").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C29")
Range("C1:C29").Select
LastRow = Range("A1").End(xlDown).Row ' Ctrl+Down from cell A1
Range("C1").AutoFill Destination:=Range("C1:C" & LastRow)
Range("C1").AutoFilter
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub





Thanks for your help!!

Paul_Hossler
02-13-2020, 04:36 PM
Probably



Range("C1").AutoFilter

jejmiller
02-14-2020, 07:32 AM
Probably



Range("C1").AutoFilter



That worked, thanks