Quick Question

[sosteffo]

Selection.AutoFilter Field:=2, Criteria1:="=BO", Operator:=xlAnd


How would i replace the "BO" with a cell reference. i.e A

 

[JE McGimpsey]

One way:

...,Criteria1:=Range("A1").Value,...

 

[mzehr]

Hi
This is from one of my VB programs, feel free to
plagaurize (sp) to your heart's content. HTH

Name the cell a1 "Lookup"

Note, that by changing the criteria the way I have
indicated will allow the user to input a partial name, and
you will be able to get a match on anything that hits
close.


Dim userlookup As String
userlookup = Range("Lookup").Text

'
Application.ScreenUpdating = False
Range("chartstart").Select
Selection.AutoFilter Field:=2, Criteria1:="=*" &
(userlookup) & "*", Operator:=xlAnd
Application.ScreenUpdating = True
Range("Lookup").Select

 

[Frank Kabel]

Hi
try
Selection.AutoFilter Field:=2, Criteria1:=Range("X1").value,
Operator:=xlAnd