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!!
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!!