Combining two vba codes?

[Boniouk]

I have to private sub worksheet changes.
One is to filter data by cell C2 and the other is to filter by cell F2. Each looks to filter via different columns. I got these codes elsewhere, does anyone know how to run them both as its giving me an error when searching from cell F2. It highlights the 2nd private Sub statement.

Private Sub Worksheet_Change(ByVal Target As Range)
   If (Intersect(Target, Range("C2")) Is Nothing) _
   Then
      Exit Sub
   End If
   Cells.AutoFilter Field:=4, Criteria1:="=" & Range("C2")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If (Intersect(Target, Range("F2")) Is Nothing) _
   Then
      Exit Sub
   End If
   Cells.AutoFilter Field:=13, Criteria1:="=" & Range("F2")
End Sub

 

[RoryA]

Try this (you can only have one Change event):

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("C2")) Is Nothing Then
     Cells.AutoFilter Field:=4, Criteria1:="=" & Range("C2").Value
   ElseIf Not Intersect(Target, Range("F2")) Is Nothing Then 
     Cells.AutoFilter Field:=13, Criteria1:="=" & Range("F2").value
   End If
End Sub

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then
    Cells.AutoFilter Field:=4, Criteria1:="=" & Range("C2")
ElseIf Not Intersect(Target, Range("F2")) Is Nothing Then
    Cells.AutoFilter Field:=13, Criteria1:="=" & Range("F2")
End If
End Sub

 

[Boniouk]

Thankyou very much to both. Works excellently.
Guys, do either of you know, my technical skills with excel is quite advanced using excel/formulas, but rather basic with VBA. Does this site contain and starter guides or lessons for vba? Would love to be able to help out more here and ask less.

 

[VoG]

Take a look at Hiker's List http://www.mrexcel.com/forum/excel-...-belong-sheet1-belong-module.html#post3645327