I have been using a below function/VBA to auto filter the Data by data Validation.
But now i was looking to get the unique values also by VBA in this below function not by Data_Validation.
I want to use the Combobox to get the unique values and filter the data accordingly for each column.
If you can please make it for 1 combo box i will try to add the code in others as well
Any help would be highly appreciated.
Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long
lastrow = Cells(Rows.Count, "I").End(xlUp).Row
With Me
If Not Intersect(Target, .Range("I13")) Is Nothing Then
If Target.Value <> "" Then
.AutoFilterMode = False
.Range("I15:I" & lastrow).AutoFilter field:=1, Criteria1:=Target.Value
End If
End If
End With
End Sub
Display More