Private Sub Worksheet Change Help please!

[darrenkaye]

Hi All,

I have a problem incorporating a couple of arguments on my Private Sub Worksheet Change, any chance of a hand?

At the moment it just loops.

Please Login or Register  to view this content.

I will eventually want to add in the following arguments too, I am sure this is an easy question, still new to VBA

If Not Intersect(Target, Target.Worksheet.Range("Q27")) Is Nothing Then awayoddlegone
If Not Intersect(Target, Target.Worksheet.Range("R27")) Is Nothing Then awayoddlegtwo
If Not Intersect(Target, Target.Worksheet.Range("S27")) Is Nothing Then awayoddlegthree
If Not Intersect(Target, Target.Worksheet.Range("T27")) Is Nothing Then awayoddlegfour
If Not Intersect(Target, Target.Worksheet.Range("U27")) Is Nothing Then awayoddlegfive
If Not Intersect(Target, Target.Worksheet.Range("V27")) Is Nothing Then awayoddlegsix
If Not Intersect(Target, Target.Worksheet.Range("W27")) Is Nothing Then awayoddlegseven

[arlu1201]

What code do awayoddlegone to awayoddlegseven have?

[darrenkaye]

Hi, Thanks for your response,

they are variations on this code

Please Login or Register  to view this content.

[arlu1201]

And this is the same code for awayoddlegseven and the others?

[darrenkaye]

They would be the same, just using different cells,

[arlu1201]

Maybe you can try and explain what you are trying to do with the entire code using a sample file?

We can help you simplify it further if possible.

[darrenkaye]

Just been trying to strip it back so I can send a file that can show what I am trying to do as my working file is quite large.

I dont think I can upload something that would help

Can I skype to you?

[arlu1201]

For the benefit of all users, its better you upload the file here.

Just a sample file with dummy data will do, as long as the format matches the original file.

[darrenkaye]

All the coding work individually, its just trying to put them together that seems to be the problem

Please Login or Register  to view this content.

and,

Please Login or Register  to view this content.

[darrenkaye]

Actually,

Running this code

Please Login or Register  to view this content.

Just continues to loop,

[darrenkaye]

Hi,

I have uploaded a dummy file,

Basically,

once data has been entered into Cell Q27, I want the totals in B28 and Q28 to be copied and pasted into B32 and Q32, then B8:B27 and Q8:Q27 have contents cleared.

The code I have set up doesnt work as it should and it loops.

Once this has been done I would need it to be merged with the following code which already works

Please Login or Register  to view this content.

[shg]

Using what little you've provided,

Please Login or Register  to view this content.

Your use of Left and Right as procedure names conflicts with the use of the native VBA functions of the same name, which is not a hot idea.