Posted to microsoft.public.excel.programming
|
|
vb dummy - two routines
Norie,
Perfect! Thanks....Greg
"Norie" wrote:
Greg
You can't have 2 change events like that for the same worksheet.
You could combine that code.
Code:
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
If Target.Count 1 Then Exit Sub
If Target.Address = "$C$16" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
r = Cells(Rows.Count, 1).End(xlUp).Row
If Target.Value = Sheets("Lists").Range("A1").Value Then
Sheets("Lists").Range("C2").Value = ""
Else
Sheets("Lists").Range("C2").Value = Target.Value
End If
Range("a20:P" & r).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("Lists").Range("C1:C2"), Unique:=False
End If
If Target.Address = "$G$16" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
r = Cells(Rows.Count, 1).End(xlUp).Row
If Target.Value = Sheets("Lists").Range("D1").Value Then
Sheets("Lists").Range("E2").Value = ""
Else
Sheets("Lists").Range("E2").Value = Target.Value
End If
Range("a20:P" & r).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("Lists").Range("f1:f2"), Unique:=False
End If
End Sub
--------------------
--
Norie
------------------------------------------------------------------------
Norie's Profile: http://www.excelforum.com/member.php...o&userid=19362
View this thread: http://www.excelforum.com/showthread...hreadid=380266
|