Amend an if statement

[Tracer123]

Hi,

I need to make this code work for every line in column A and column F. Whats the easiest way of doing this?

Please Login or Register  to view this content.

Thanks!

[Norie]

This perhaps.

Please Login or Register  to view this content.

[Greg M]

Hi Tracer,

You can use this code it you don't know the maximum number of rows on your worksheet:

Please Login or Register  to view this content.

Hope this helps. Please let me know how you get on.

Regards,

Greg M

[Tracer123]

I decided to try it this way, so that the people using it don't have to run the macro. I keep getting the #VALUE! error though...

Please Login or Register  to view this content.

Cell "A2" = "PD93-L-1000-1"
Cell "F2" = "=GetDocumentType(A2)"

What am I doing wrong?

[Norie]

Well you've now changed from a Sub to a Function, specifically a user defined worksheet that you seem to be trying to use on a worksheet.

Firstly you aren't returning any value with the function and secondly you don't actually seem to be doing much with the parameter DocumentType.

Did you try any of the other code posted?

[Tracer123]

Well you've now changed from a Sub to a Function, specifically a user defined worksheet that you seem to be trying to use on a worksheet.

Firstly you aren't returning any value with the function and secondly you don't actually seem to be doing much with the parameter DocumentType.

Did you try any of the other code posted?

Yes I did try the other code and it works, but I wanted to try it this way so that they dont have to run the macro. DocumentType will just be a cell value to replace the "For iRow = 2 To ActiveSheet.Range("A65536").End(xlUp).Row" that Greg mentioned.

So F2,F3,F4... for me will be:
=GetDocumentType(A2)
=GetDocumentType(A3)
=GetDocumentType(A4)
etc...

What do you mean by the bolded part?

[Tracer123]

Found my mistake... I'm an idiot

[Kuskush]

The Code should read:

Please Login or Register  to view this content.

[Greg M]

Hi Tracer,

Glad to hear that things are working for you. Thanks for the feedback.

Regards,

Greg M