Apr 12 2021 06:00 PM
Hi,
For security reason our company blocked some macro phrases. I can't use it after restart the file.
are there any other ways that I can use similar phrase?
The phrases that I am using is below.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As String
Dim rngArea As Range
With Target
If .Address = "$C$2" Then
If .Count > 1 Then Exit Sub
Set rngArea = Me.Range("C5").CurrentRegion
T = .Value
If IsEmpty(Target) Then
If Me.FilterMode = True Then
Me.ShowAllData: rngArea.AutoFilter
End If
Else
rngArea.Columns(2).AutoFilter 1, "=*" & T & "*", , , 0
End If
.Select
End If
End With
End Sub
Apr 12 2021 10:03 PM