HORIZONTAL FILTER

[arnoldmiranda]

Hi,
Is it possible to write a macro which can enable me to create a horizontal filter in excel

rgds

 

[Barry Katcher]

You don't have to write it, just record it. Turn on the recorder (Tools>Macro>Record New Macro), hide the columns that you want, turn off the recorder and, optionally, assign the macro to a button.

Don't forget to also record another macro to unhide the columns.

 

[erik.van.geit]

Hi,

Do you want to compare all values in a row to a certain cell in that row ? That's how I feel this question.
Comparing with the first cell makes sense, but if you have some headers in column A, it could be column B or even another, hence the choice...

Option Explicit

Sub horizontal_filter()
'Erik Van Geit
'060910

Dim LC As Integer           'Last Column
Dim R As Long
Dim i As Integer
Dim FilterValue As String

Const FilterColumn = 1      '1 is most logical value but you may change this

R = ActiveCell.Row
LC = Cells(R, Columns.Count).End(xlToLeft).Column

FilterValue = Cells(R, FilterColumn)

Application.ScreenUpdating = False

    'to filter starting after FilterColumn
    For i = FilterColumn + 1 To LC
    'to filter all columns even before the filtercolumn
    'For i = 1 To LC
        If i <> FilterColumn Then
        Columns(i).Hidden = Cells(R, i) <> FilterValue
        End If
    Next i

Application.ScreenUpdating = True

End Sub

kind regards,
Erik

 

[arnoldmiranda]

Hi,
Thanks guys, what I was aiming for is a filter like in the filter we have in Data Filter > Auto Filter instead of it targetting colums can it target rows. Basically the same thing that happends vertically I was wondering if we could see it horizontally

rgds

 

[northwolves]

A bad idea is transposing your data to show vertically.

 

[PaddyD]

there is no in-built filter functionality for columns.

 

[erik.van.geit]

Hi,
Thanks guys, what I was aiming for is a filter like in the filter we have in Data Filter > Auto Filter instead of it targetting colums can it target rows. Basically the same thing that happends vertically I was wondering if we could see it horizontally

rgds

you started with

Is it possible to write a macro which can enable me to create a horizontal filter in excel

did you try out my suggestion ?

 

[arnoldmiranda]

Hi,
Yes and it works too, I was just wondering if the horizontal option was possible through an macro or ad-in feature

rgds

 

[erik.van.geit]

just wondering if .. possible through an macro

my solution is a macro

 

[s.nikop]

thank you very much, It works perfectly!