VBA script to extract data based on multiple columns

Hello Again,

Below is my script it is working find on single column but i need to have combination of multiple columns but i failed.

Can someone enhance the below script. Copy of workbook is attached for your reference.

Problem Here

Please Login or Register  to view this content.

Original code:-

Please Login or Register  to view this content.

Hi Abdur_rahman,

What your code basically does is copy any Diagnosis (column #15) that starts with J03 to a new sheet. What do you want it to do ? Which other column should the code look against or consider ?

Thank you Nankw for your response.

I need to check if the J03 diagnosis in column O and if the Age in column AI is less then 6 then extract the data.

I just need the idea only how should i combine it.

I have tries like If Not myval Like "J03*" and data(i, 35) < 6 Then but doesn't work.

If you need to extract data that start with J03 & age < 6 get rid of the Not

Try the below

Please Login or Register  to view this content.

No it doesn't work it is extracting other diagnosis also. Ex: J40, J06, etc..

Ok, how about this ?

Please Login or Register  to view this content.

Thanks nankwa it works.

If i need to valid 3 columns then again i have add another if condition.

Thanks.

Honestly your code is a bit confusing ... Why do you use Not then nothing Else 'your code' ??

Instead of this

Please Login or Register  to view this content.

Why not just write this ?

Please Login or Register  to view this content.

Why so complicated? errStr can only get 1 value per row in this setup. Like "J03 *" is the same as left (value, 3).

Please Login or Register  to view this content.

Thanks to both of you.

nankw83 i try your idea but it works on some matching and some skip.

Vraag let me try your idea and get back you with feedback.

Thanks once again.

Thanks for your help.

Might be i have to approach in different way. So i will close this topic and open a new topic. I need to have a list on 1 sheet and validate those items and export the data.

Thank once again.

Glad to help & thanks for the reps