dj44
06-09-2017, 03:40 PM
folks,
good day
My input box is not working.
I entered the column numbers so i can hide the arrows
i want to hide, but it doesnt seem to work.
Sub Hide_AutoFilter_Arrows()
Dim Lst As ListObject
Dim c As Range
Dim i As Integer
Application.ScreenUpdating = False
Columns_Hide = InputBox("Enter the Column Numbers To Hide the Arrows") ' Separated by Comma
Set Lst = ActiveSheet.ListObjects(1)
i = 1
For Each c In Lst.HeaderRowRange
Select Case i
'Case 1, 2, 3
Case Columns_Hide
Lst.Range.AutoFilter Field:=i, _
Visibledropdown:=False
Case Else
Lst.Range.AutoFilter Field:=i, _
Visibledropdown:=True
End Select
i = i + 1
Next
Application.ScreenUpdating = True
End Sub
it works normally but when i use the input box it doesnt :think:
any ideas?
good day
My input box is not working.
I entered the column numbers so i can hide the arrows
i want to hide, but it doesnt seem to work.
Sub Hide_AutoFilter_Arrows()
Dim Lst As ListObject
Dim c As Range
Dim i As Integer
Application.ScreenUpdating = False
Columns_Hide = InputBox("Enter the Column Numbers To Hide the Arrows") ' Separated by Comma
Set Lst = ActiveSheet.ListObjects(1)
i = 1
For Each c In Lst.HeaderRowRange
Select Case i
'Case 1, 2, 3
Case Columns_Hide
Lst.Range.AutoFilter Field:=i, _
Visibledropdown:=False
Case Else
Lst.Range.AutoFilter Field:=i, _
Visibledropdown:=True
End Select
i = i + 1
Next
Application.ScreenUpdating = True
End Sub
it works normally but when i use the input box it doesnt :think:
any ideas?