VBA compare with more than one result

[josephrowan]

i am really just beginning VBA after spending alot of time manipulating it. My problem today, I would hope, is an easy solve.


I am trying to get a compare of the data in column A to do two (or more) things. For now, it is color the cell and a couple to the right and the 2nd part would be to add a category description. The first part is working fine - the part with the color fill. Anytime the case sensitive string ABC is entered, cells in columns A,B,C & D fill green.

It is getting the compare to put the client category in that is not working. Below, is the part that is working.

Ideally the D column cell return a category code, like "cli" for client when ABCxxxx is entered.


_____A________B_________C________D____
1 | abc123 (fill grn) (fill grn) cli
2 | def213 - - -
3 | abc599 (fill grn) (fill grn) cli


I have tried a bunch of stuff, but I am just hacking at it. Anybody care to assist?

thanks

Joe


Here is the Green Fill code.
##############################

Please Login or Register  to view this content.

##############################


[/FONT][/FONT][/SIZE]

[StephenR]

I don't follow, where is the client category?

[josephrowan]

abc is the client, 123 is the job. The "cli" is a shortening to assist in creating a new UID based on. Later in the process, I need to be able to filter similar tasks from different clients.

There are other categories for postage, mailing, design and such, but it will all follow the same rule in the end. All tolled, there are 11 different sub-categories

does that help? Sorry for not being clear enough.

J-

[StephenR]

Try this. which assumes client code is three characters. Btw Select Case is case-sensitive.

Please Login or Register  to view this content.

[josephrowan]

Well done! The only change I made was to the line
-- r.Offset(0, 3) = "cli" <-instead of left()

But you got it to work and I thank you.