Macro to multiply a no entered in a cell with a constt no then replace with result

[deepakya3]

Hi,
I have been trying to write a macro to write a macro to multiply a number when it is entered in the cell with say 2 and replace number with multiplication result.
For example if I enter 3 in cell A1 and then click somewhere else in sheet then the number in A1 will be replaced by 6 (3*2). I want this to happen for cells in Range A1 to AB1 only. Also if a character is entered no action should take place.
I wrote down the following code.

Please Login or Register  to view this content.

[Steffen Thomsen]

Please Login or Register  to view this content.

[pike]

Better add some Application.EnableEvents
or it will cycle

Please Login or Register  to view this content.

[deepakya3]

Hi Steffen,

I appreciate your quick response. I was pondering over this simple problem for last 2 days :-)
I tried your code but unfortunately it didn't work. Anyway thanks for your effort.

[Steffen Thomsen]

Sorry, try this

And as pike wrote, then disable events so the code doesnt go into en endless loop.

Please Login or Register  to view this content.

[deepakya3]

Hi Pike,

Your code worked perfectly. Thanks for helping. I am new to vba and is learning.

[deepakya3]

Hi Steffen,

This code worked as I wanted one more thing when I delete the entered numbers by selecting all of them toghether it shows an error "type mismatch error 113". If you can help it.

[Steffen Thomsen]

Then use this

Please Login or Register  to view this content.