|
Re: Saving Customized Condition in List Box
Hi, You could use a select case, Example shown below to select a value in Col "C" based on you listbox selection.
Code:
Column(A)
ListBox List
Greater Than 0
Less Than 0
Equal to 0
Greater Than 10
Less Than 10
Equal to 10
Code:
Private Sub ListBox1_Click()
Dim Rng As Range, Dn As Range, Con
Set Rng = Range(Range("c1"), Range("c" & Rows.Count).End(xlUp))
For Each Dn In Rng
Select Case ListBox1.Value
Case Is = "Greater Than 0": If Dn > 0 Then Dn.Select: Exit Sub
Case Is = "Equal to 0": If Dn = 0 Then Dn.Select: Exit Sub
Case Is = "Greater Than 10": If Dn > 10 Then Dn.Select: Exit Sub
Case Is = "Less Than 10": If Dn < 10 Then Dn.Select: Exit Sub
Case Is = "Equal to 10": If Dn = 10 Then Dn.Select: Exit Sub
End Select
Next Dn
End Sub
Regards Mick
Last edited by MickG; 07-02-2009 at 09:32 AM.
|
Linear Mode
