Add calculation to a macro that runs automatically when a cell value changes.

[redhead1]

Hi,

I created a macro that checks to see if user eneterd N/A in cell W4, if so, I want to take the value that is in cell v4 divide it by a number (in this case a 6) then add the result of the division to cell v5. Once the division is completed, I am changing the value in v4 to zero.

Not sure if this is possible since I am using Private Sub Worksheet_change (ByVal Target As Range). Below is what I have so far, I know its not much, but I am at a lost of how to proceed.

Thanks for any help.

Please Login or Register  to view this content.

[6StringJazzer]

Welcome to the Forum redhead1!

Please note that our rules require code tags around code to preserve spacing and readability. Because it is your first post I won't take any action, and I have corrected your post. However, please take the time to read all the rules (there aren't that many). I have noted the code tag rule below.

I believe this does what you need. Note that I have used the notation [V4] which is equivalent to Range("V4") but for some reason isn't used much.

A couple of notes: I took you very literally when you said "add the result of the division to cell v5." If you really meant "put the result of the division in cell v5" then you need to make what I hope is an obvious change. I made the 6 a named constant to make it easier to track it in the code, and find it if you need to change it later.

Please Login or Register  to view this content.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[redhead1]

Thank you for the input and I am sorry about the code violation. I won't let it happen again.