Finding spaces

[AlexanderBB]

I'm using Find like so and all is working well

Set Found = Range(rCol).Find(What:=TextBox1.Text, lookIn:=xlComments, Lookat:=xlPart)

Except where the text in Comments may have chr$160) in place of chr$(32)
This was used as a delimiter to identify parts1 and 2 in a string.
Can I modify find somehow so it will still find these instances.
textbox1 has no way of knowing.

 

[AlexanderBB]

Yes, what I have is probably ok... (Find "Ben" then "Hur" within the results). Slight pause be nice to avoid but it it can't be done...
Thanks for helping.

 

[Alex Blakenburg]

I know you said you tried it but this worked fine for me:

strFind = Replace(TextBox1.Text, " ", "?")

Then use strFind in your What:=

 

[Fuji]

Not clear to me, but ChrW(160) should find no-break space.

 

[AlexanderBB]

Yes, Alex "?" did work up to a point. Once found I vblf split the comment wanting to Filter just that row.
That ran into a similar problem because of the chr$(160).
And although I could get around that the delay was just a bit too long.
So I redesigned the underlying data and replaced 160 with 32.

 

[Alex Blakenburg]

Are you happy with where you have finished up ? If not please give a couple of examples of the data, what your current code is doing, what you would like it to do.

 

[AlexanderBB]

Pretty much Ok for this bit, thanks.