Hi I using filtering in VBA programming and I have a problem when I want to
show all in a column. Do any one know the code and what I should write? I
have tryed with folliwing but it dosent work. All filtering works but not to
show all (alla means all).

Private Sub Worksheet_Change(ByVal Target As Range)
'
ActiveSheet.Unprotect

Dim Fakturerad As String
Fakturerad = ActiveSheet.Range("C11")

ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter


ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:=Fakturerad

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:="<"
End If
End Sub

Hell and thank yoy for your help!

It dosen´t work. Instead of showing all its showing nothing.

BR
Mia


"Jacob Skaria" skrev:

Mia, you dont need to specify the criteria for All. Try and feedback

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11
End If

If this post helps click Yes
---------------
Jacob Skaria


"Mia" wrote:

Hi I using filtering in VBA programming and I have a problem when I want to
show all in a column. Do any one know the code and what I should write? I
have tryed with folliwing but it dosent work. All filtering works but not to
show all (alla means all).

Private Sub Worksheet_Change(ByVal Target As Range)
'
ActiveSheet.Unprotect

Dim Fakturerad As String
Fakturerad = ActiveSheet.Range("C11")

ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter


ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:=Fakturerad

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:="<"
End If
End Sub

It should be Hello and thank you, not hell!!!!
I'm so sorry!!!!! I am very grateful for all help!

Mia


"Mia" skrev:

Hell and thank yoy for your help!

It dosen´t work. Instead of showing all its showing nothing.

BR
Mia


"Jacob Skaria" skrev:

Mia, you dont need to specify the criteria for All. Try and feedback

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11
End If

If this post helps click Yes
---------------
Jacob Skaria


"Mia" wrote:

Hi I using filtering in VBA programming and I have a problem when I want to
show all in a column. Do any one know the code and what I should write? I
have tryed with folliwing but it dosent work. All filtering works but not to
show all (alla means all).

Private Sub Worksheet_Change(ByVal Target As Range)
'
ActiveSheet.Unprotect

Dim Fakturerad As String
Fakturerad = ActiveSheet.Range("C11")

ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter


ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:=Fakturerad

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:="<"
End If
End Sub

Hello again,

You were totaly right! I changed C11 to Fakturerad and now i works!
Thank you for your help!


BR
Mia

Private Sub Worksheet_Change(ByVal Target As Range)
'
ActiveSheet.Unprotect

Dim Fakturerad As String
Fakturerad = ActiveSheet.Range("C11")

ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter


ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:=Fakturerad

If Fakturerad = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11
End If
End Sub


--
Best regards
Mia


"Jacob Skaria" skrev:

Mia, you dont need to specify the criteria for All. Try and feedback

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11
End If

If this post helps click Yes
---------------
Jacob Skaria


"Mia" wrote:

Hi I using filtering in VBA programming and I have a problem when I want to
show all in a column. Do any one know the code and what I should write? I
have tryed with folliwing but it dosent work. All filtering works but not to
show all (alla means all).

Private Sub Worksheet_Change(ByVal Target As Range)
'
ActiveSheet.Unprotect

Dim Fakturerad As String
Fakturerad = ActiveSheet.Range("C11")

ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter


ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:=Fakturerad

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:="<"
End If
End Sub