khalid79m
05-19-2009, 05:35 AM
My code
Private Sub DataType2()
'BY DEPT ONLY
'SITE DATA (SHEET = SITE)
If Sheets("Site").AutoFilterMode = True Then Sheets("Site").AutoFilterMode = False
If Range("Department_Value") <> "" Then
Range("Site_Department").AutoFilter Field:=1, Criteria1:=Sheets("Control").Range("C8").Value
Range("Site_Month").AutoFilter Field:=1, Criteria1:=Sheets("Control").Range("C10").Value
Range("Site_Year").AutoFilter Field:=1, Criteria1:=Sheets("Control").Range("C12").Value
End If
End Sub
What am I doing wrong ? I am tring to filter for the 3 criteria's above but it doesnt work.
example with colum ("Site_Department") look for range c8 from the control sheet & with column("Site_Month") look for the range c10 from the control sheet & with the column ("Site_Year") look for the range c12 from the control sheet and then display with results that match all 3 criteria. ..
Im baffled any help would be appreciated:help
Private Sub DataType2()
'BY DEPT ONLY
'SITE DATA (SHEET = SITE)
If Sheets("Site").AutoFilterMode = True Then Sheets("Site").AutoFilterMode = False
If Range("Department_Value") <> "" Then
Range("Site_Department").AutoFilter Field:=1, Criteria1:=Sheets("Control").Range("C8").Value
Range("Site_Month").AutoFilter Field:=1, Criteria1:=Sheets("Control").Range("C10").Value
Range("Site_Year").AutoFilter Field:=1, Criteria1:=Sheets("Control").Range("C12").Value
End If
End Sub
What am I doing wrong ? I am tring to filter for the 3 criteria's above but it doesnt work.
example with colum ("Site_Department") look for range c8 from the control sheet & with column("Site_Month") look for the range c10 from the control sheet & with the column ("Site_Year") look for the range c12 from the control sheet and then display with results that match all 3 criteria. ..
Im baffled any help would be appreciated:help