Making validation arrows INvisible

[perrush]

Hi,

I have a sheet where only a few cells can be altered. The sheet can be sorted and filtered by macro's. This works fine. But I do find the validation arrows confusing for the users. This part of the sheet is protected so they can't filter by the arrows (they need to use the macro's behind the buttons). Is there a way to make the arrows invisible ?

 

[Fluff]

Something like

Sub HideFilter()
Dim i As Long
For i = 1 To 10
   Range("A1:J1").AutoFilter i, , , , xlHidden
Next i
Range("A1:J1").AutoFilter 2, "No"
End Sub

 

[perrush]

Hi,

sorry for my ignorance but could you explain it a little more.

The filtered headers are on row 7 from A till AG.

 

[Rick Rothstein]

Something like

Sub HideFilter()
Dim i As Long
For i = 1 To 10
   Range("A1:J1").AutoFilter i, , , , xlHidden
Next i
Range("A1:J1").AutoFilter 2, "No"
End Sub

You can do that without using a loop. If your column range is fixed and unchanging, then this works...

[table="width: 500"]
[tr]
	[td]Range("A1:J1").AutoFilter [COLUMN(A:J)], , , , False[/td]
[/tr]
[/table]

If the range is not "set in stone", then you could do something like this...

[table="width: 500"]
[tr]
	[td]Dim Rng As Range
Set Rng = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
Rng.AutoFilter Evaluate("COLUMN(" & Rng.EntireColumn.Address(0, 0) & ")"), , , , False[/td]
[/tr]
[/table]

 

[Fluff]

Ok

Sub HideFilter()
Dim i As Long
For i = 1 To 33
   Range("A7:AG7").AutoFilter i, , , , xlHidden
Next i
Range("A7:AG7").AutoFilter 2, "No"
End Sub

This will hide all the arrows & then filter col B on "No"
The first part will not only remove the arrows, but also any active filter, so you will need to reset the filter afterwards

 

[perrush]

oke, now (I think) I understand. I need to adjust the current filters to this format where the bottom part is the filter.

Still need to se if I can pull this off, but TIA

 

[Fluff]

If you have any problems, just post back.

 

[Rick Rothstein]

Hi,

sorry for my ignorance but could you explain it a little more.

The filtered headers are on row 7 from A till AG.

Okay, if the columns are fixed at A:AG starting on Row 7, then executing this single line of code (either in its own macro or within some other procedure) will hide the arrows but leave the AutoFilter active...

Range("A7:AG7").AutoFilter [COLUMN(A:AG)], , , , False