![]() |
#5
|
|||
|
|||
![]()
Try this
Code:
Sub DeSelect_SomeThing() Dim filt As String filt = "*" & Sheets("Sheet2").Cells(2, 2).Text & Sheets("Sheet2").Cells(2, 3).Text & "*" With Sheets("Sheet1") .AutoFilterMode = False With .UsedRange .AutoFilter field:=1, Criteria1:="<>" & filt, Operator:=xlFilterValues End With End With End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Mango123 | Excel | 4 | 03-18-2014 02:52 PM |
Mail merge with filter using data inputted by user | Tornado70 | Mail Merge | 6 | 04-09-2013 07:16 AM |
![]() |
gsrikanth | Excel | 1 | 07-05-2012 04:08 PM |
![]() |
kwlickt | Excel | 1 | 03-28-2011 11:15 AM |
![]() |
Nora | Excel | 1 | 05-15-2009 11:10 AM |