Search individually on each column

[RJ1969]

Hello,

I added this code so that I am able to search column D besides column B.
But since I added it, I am not able to either search column b nor D. I think I am missing something on it.
Please check. Thank you

Please Login or Register  to view this content.

Without the added code above, then column B search work.

This is the entire code with the one I added (see the attachment too).

Please Login or Register  to view this content.

[Mumps1]

Are you trying to filter columns B and D on the same value (sFind)? Looking at your data, those columns have entirely different values. Please clarify in detail, step by step, what you want to do.

[RJ1969]

Hi,

I am trying to filter one at a time. Let say if i filter somwthing from B column then after I filter “all”. The. if I want to filter something in D column after then filter all.

I just not sure if possible. Or the I create another button macro for column D

thanks

[Mumps1]

Try the attached file. You will notice that in order to filter the data properly, you need headers in row 2 of each sheet. CHange the headers to suit your needs. When you click the "Filter Data" button, you will be asked to enter the desired column letter and then for the search criteria. Before you click the "Filter Data" button again to choose a different column and search criteria, click the "Remove Filter" button first.

[RJ1969]

Mumps1,

I loved this even more.
Can you do one more thing, please. If you can add that if I enter a data from the message box and it's not listed in my worksheet then a message box will appear "no data listed" then "cancel"...something like this.

Thanks

Please Login or Register  to view this content.

[Mumps1]

Try:

Please Login or Register  to view this content.

[RJ1969]

Hi

Okey... yay! Let me try

thank you

[RJ1969]

Hello,
There is just one thing.
Can I remove this "MsgBox (sFind & " does not exist in column " & UCase(col) & " of sheet '" & ws.Name & "'.")" but I don't what else to remove besides this.

What happen is that when I am in Sheet1 and search "Robert" then it keeps popping up and saying that there is no Robert in Sheet2.

thank you

Please Login or Register  to view this content.

[Mumps1]

If you can add that if I enter a data from the message box and it's not listed in my worksheet then a message box will appear "no data listed"

I understood that you wanted a message to let you know if the search text is not listed. Since the macro loops through all the sheets, you will get the message for each sheet if it is not listed in that sheet. If that is not what you want, please clarify in detail.

[RJ1969]

Hi

When I filter, it actually filter the particular activesheet which is Sheet1.

I am sorry maybe I did not explain correctly or maybe I just realized that its doing that.
My English is not good... sorry.



Thank you in advance!

[RJ1969]

Mumps1

I figure it out. I removed one of the and it did work.

Just very one thing. My original worksheet has a big or large entries. And when I filter, it does not show anything but if I click the page up then there you are.

How can I or can you add "page up" with the code so that I don't have to click it all the time?

Thank you so much. I think I almost done with it.

I really appreciated.

Please Login or Register  to view this content.

[RJ1969]

Hi,
I added this

Please Login or Register  to view this content.

but when I press it "ok", then I have to press it several times before it exit. Just want to press it once and it does not to search to the othersheet.

Also, don't forget to fix that filtered that the filter are on the top page.

Please.... thank you so much.

[Marc L]

then I have to press it several times before it exit.

Hello,

normal as per how it is coded inside a loop ‼ So appears only one time if obviously outside at least …

[RJ1969]

Can the macro remove the loops to all the sheetsso that it can work for Sheet1 only? Then I can use the messages box

Thanks

[RJ1969]

Hi
Please modify the code with just work with Sheet1.
Thank you

Please Login or Register  to view this content.

[Mumps1]

Try:

Please Login or Register  to view this content.

[RJ1969]

Morning Mumps1

Yay! Ok.. i will try when I get to work.

I wanted to say that your version is actually best. Because the way you added the selection to enter the columns.

So this will work in only Sheet1?
Because the old code version, When I click the button to filter and it filter the other sheets as well.

I really appreciate your effort on this.

Thank you and I let you know how it goes as soon as I try the new version.

Have a good day!

[RJ1969]

Hello,

It works but there is a little issue.

[RJ1969]

The issue is that in my original worksheet had a skip row which I do need for other reason.

Let say the filter is set in A2 and there A3 skip row.
My Entries started in A4.

the codes work perfectly but I realized that I have a skip row.

Please fix and just tell me what need to change from the code.
I attached the current sample worksheet.

Thank you Mumps1.... so far so good!
I appreciate you so much.

[RJ1969]

Pls let me know what did you add in the code so I can adjust it on my own next time.



Thanks

[RJ1969]

Hi Mumps1

I figured it out. There is no actually problem having the skip row or adjusting anything with the code you provided.

Thank you so much for the all the time and effort.

[Mumps1]

You are very welcome.