VBA / AdvancedFilter exact result

[amarokWPcom]

Hi,

I put a filter with AdvancedFilter.

For some search strings I get to manz results.
So f.e. for "John" I get also"Johnsson", "Johnson" etc., everzthing that fits to John*.

I know already by using the string ="=John" that I would get ONLY "John" like I want.

But my Subroutine has not a string as searchterm but a variable as you can see bellow.

How do I have to change the code bellow to make this work????

Sub DISTRIBUTIONLIST_SEARCH()

Dim WS_DIST_SOURCE As Worksheet
Dim WS_DIST_RESULTS As Worksheet

Set WS_DIST_RESULTS = ThisWorkbook.Worksheets("DISTRIBUTE_RESULT")
Set WS_DIST_SOURCE = ThisWorkbook.Worksheets("DISTRIBUTE_LIST")

WS_DIST_RESULTS.Range("A1").CurrentRegion.Offset(1).ClearContents

Dim rg4 As Range
Set rg4 = WS_DIST_SOURCE.Range("A1").CurrentRegion

Dim criteriaRange4 As Range
Set criteriaRange4 = ThisWorkbook.Worksheets("DISTRIBUTE_DISCRIPTION").Range("A2"). _
CurrentRegion

' THE MAIN Code
rg4.AdvancedFilter xlFilterCopy, criteriaRange4, WS_DIST_RESULTS.Range("A1:D1")

End Sub

 

[Fluff]

How are you entering the search term into criteriaRange4? There is nothing in your code that does that.

 

[amarokWPcom]

Hi Fluff,
Dim criteriaRange4 As Range
Set criteriaRange4 = ThisWorkbook.Worksheets("DISTRIBUTE_DISCRIPTION").Range("A2"). _
CurrentRegion

Here the string will be put by the code before.

Do you mean I should put the string at this place like....
....
Worksheets("DISTRIBUTE_DISCRIPTION").Range("A2").value = Worksheets("DISTRIBUTE_DISCRIPTION").Range(... = "=<code>" & Chr(34) &</code> "=" & string & "

 

[Fluff]

This line

Set criteriaRange4 = ThisWorkbook.Worksheets("DISTRIBUTE_DISCRIPTION").Range("A2"). _
CurrentRegion

Is just setting a range variable, it is not putting the search criteria into the that range. So how are you entering the criteria in A3?

 

[amarokWPcom]

I found it out by your first answer

I write the input by VBA as value in
Worksheets("DISTRIBUTE_DISCRIPTION").Range("A2")

No I changed it to Worksheets("DISTRIBUTE_DISCRIPTION").Range("A2").Value = "=" & Chr(34) & "=" & Worksheets("PARAMETER").Range("B113").Value & Chr(34) & ""

And I think it works. Many thanks

 

[Fluff]

Glad you sorted it & thanks for the feedback