Macro to cut and paste dependent on cell value

[MagicMan]

Hi Guys,

Trying to help someone else on here and have got so far but now got stuck so I need some help myself! I'm looking for a macro to achieve the following:

if E5 = "A" Copy O17 and Paste as value into D27
if E5 = "B" Copy O17 and Paste as value into E27
if E5 = "C" Copy O17 and Paste as value into F27
if E5 = "D" Copy O17 and Paste as value into H27 (note H27 not G27)
if E5 = "E" Copy O17 and Paste as value into I27
if E5 = "F" Copy O17 and Paste as value into J27

I'm sure it's basic, but any help would be appreciated.

Ta!

[alansidman]

Try this

Please Login or Register  to view this content.

[MagicMan]

Very close Alan, and thank you for your efforts.

However, it's putting it in the formula, I need it to put in the value

Terry

[alansidman]

Change the paste portion of the code with PasteSpecial Values and that should solve the issue. I assume (hopefully correctly) that you will know how to make this change.

[Greg M]

Hi there,

Try this:

Please Login or Register  to view this content.

I'm assuming that you want to perform the action on the ActiveSheet

Hope this helps - please let me know how you get on,

Regards,

Greg M

[MagicMan]

Sorry mate, I thought I knew where to put it, apparently not, can you tell me where it needs to go please

[Greg M]

Hi again,

Either of the routines posted can be inserted into a standard VBA CodeModule.

Regards,

Greg M

[MagicMan]

Alan and Greg,

Thank you for your assistance, the finished article is now posted here at the VBA Code for inserting a value according to Zone. I have also accredited your input for which I'm sure the OP will be equally grateful.

And I've learnt from it too.

Terry

[Greg M]

Hi again Terry,

Many thanks for your feedback, for the acknowledgement in the other thread, and also for the Reputation increase

Glad to hear that things are working correctly now, and pleased to have been able to help.

Best regards,

Greg M