Multi function of actions from value in one cell

I am asking for help with this VBA code. I got it to run to a point and it just stops with no error messages. I have run it through Debug with no errors. I am very new to VBA and would appreciate all help received. If you could also explain where I have made mistakes so I can keep learning how to write VBA code.

The function of this sign in form is as follows:

When entering number in column “A” it enters current time in column “D”. Then when an entry is made into column “K”, current time in column “E” and checks to see the value of the entry in column “K” is one of several choices “ATR”, “AV”, “BT”, “CO”, “DR”, “OT”, “NS”, “RLCC”, “RPCC”, “RLMO”, “RPMO”, “RLFW”, TA”, “ME”, “VI” then it places data into different cells or clears cells based off of the entry. I have attached a copy of the worksheet.

Please Login or Register  to view this content.

Thanks again for any help received !!!

Courttrooper,

Comment the line:
On Error GoTo EndItAll

so it looks like:
'On Error GoTo EndItAll

then rerun the code and note the code line producing the error. Post back.

Maud

Thank you both for your help.

I have applied both your suggestions and now It will run to the line

Please Login or Register  to view this content.

In which I found an entry error. I changed the lines to :

Please Login or Register  to view this content.

In this line all 3 columns need to be cleared if column “K” = “BT”. I don’t know how to accomplish this.

If I jump past this bug I get a “Compile error: Argument not optional” at the first line that is”

Please Login or Register  to view this content.

Underlined part is in yellow and says “error Type mismatch” and I have no idea what is happening. Can you explain and tell me how to correct this please? Once I get this one fixed I can change all the others.

Sorry last reply did not show the underline so here it is again.

Please Login or Register  to view this content.

The Range in bold Has blue background which I placed in italics. I hope you can understand this. Thanks again for your help.

Thanks for the help and the links. I can use them as another resource. I did write basic code almost 18 years ago so things have changed. I will make the changes and get back today to see if it works now.

I got it to run further but it still doesn't like my wording I think. No error codes just stops. I have one IF statements that have 3 ands and it won't run.

Please Login or Register  to view this content.

The next problem is with my attempt to follow your wording instruction and I probably have misunderstood. here is my old code

Please Login or Register  to view this content.

Here is My attempt at the new code.

Please Login or Register  to view this content.

Also is there some rule on when you put in an "End If" if you have a lot of If statements bunched together?
Thanks again for all your help.

COURTTROOPER,

Your code can be rewritten as:

Please Login or Register  to view this content.

which IMHO is a lot easier to follow than a very long If statement.

HTH,
Maud

Thanks Maud for your help. I now have 2 of the 3 problems working !!
I have a question about rules of If statements. If you have a group of If statements do you need to put an End If after every one or can you just put one at then end?

I still need guidance on the code that needs to clear contents of 3 cells if "NS" is selected in "L". this is the non working code I made. Could you look at it and tell me why it won't run please?

Please Login or Register  to view this content.

Thanks again for any help received.

CT,

"If" statements can be written two ways: Line or block.

Line "IF" statements do not need a trailing "End If"

Please Login or Register  to view this content.

Block "If" statements require and "End If"
ex:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

HTH,
Maud

Thank you all for your help!! The code works great and I learned much from your help.