Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
2 parrameters to filter
Hello all,
Here is macro for my sheet to do a filter search with one parrameter "Mix Type". Now I want it to search by 2 criterias first is "Mix Type" second is "Contract #" and I want this to be done anytime a search is done. Any help would be appreciated. ERic Sub RemoveDuplicates_Mix_Type() Dim allcells As Range, cell As Range Dim nodupes As New Collection On Error Resume Next For Each cell In Range("B27:B500") nodupes.Add cell.Value, CStr(cell.Value) Next cell On Error GoTo 0 For Each item In nodupes UserForm3.ListBox1.AddItem item Next item UserForm3.Show Sheets("test Database").Select Range("A1").Value = 1 Sheets("test Database_mix").Select Range("B2").Value = 1 Then in the list box is: Private Sub ListBox1_Click() Range("d6").Value = ListBox1 For i = 0 To UserForm3.ListBox1.ListCount - 1 If UserForm3.ListBox1.Selected(i) Then Dim ws As Worksheet Dim rng As Range Dim rng2 As Range With Application .ScreenUpdating = False .EnableEvents = False End With Set ws = Sheets("Test Database") Set rng = ws.Range("B26:AG500") ws.AutoFilterMode = False rng.AutoFilter field:=1, Criteria1:="=" & ws.Range("D6").Value ws.AutoFilter.Range.Copy Sheets("test database_mix").Select Range("C500").Select Selection.End(xlUp).Select ActiveCell.Offset(1, -2).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ws.AutoFilterMode = False With Application .ScreenUpdating = True .EnableEvents = True End With End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Filter PivotTable dropdown items to match report filter | Excel Discussion (Misc queries) | |||
Passing parrameters when calling a sub from by clicking an object | Excel Programming | |||
filter: how to print filter list options in dropdown box | Excel Discussion (Misc queries) | |||
"Criteria Range" in the "Data/Filter/Advanced Filter" to select Du | Excel Worksheet Functions | |||
How to set multiple filter values for a filter in the page fields | Excel Programming |