Issues crossing sheets

[ILoveCheese]

The code I put together is suppose to:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
1. Cycle through a list of names (AH360:AH366) and apply them to the same set of formulas.<o></o>
2. All of formulas key off of a single cell (W385), this is where the names cycle to.<o></o>
3. The formulas generate totals based on the name. <o></o>
IE: Joe = 40 widgets (W2001:AD2001)<o></o>
4. The totals are then pulled and transfered to a "Totals" sheet and placed next to the appropriate person. (B6:B12)<o></o>
<o></o>
My code is doing all of this except that it is pasting the same data on the "Totals" sheet for every person.<o></o>
<o></o>
Sub LOOPTEST()<o></o>

Dim M As Integer, X As Integer
For M = 360 To 366
For X = 6 To 12<o></o>
Sheets("Plan Designs").Range("AH" & M).Copy Destination:=Range("W385")
Sheets("Plan Designs").Range("W2001:AD2001").Copy
Sheets("Totals").Range("B" & X).PasteSpecial xlValues<o></o>
Next X
Next M<o></o>
End Sub<o></o>
<o></o>
I got this to work with a simple version on the same sheet, but once I tried to cross over sheets I ran into this problem. I am stuck on trying to get each set of total data to copy and paste over before the next name generates a new set of data.<o></o>

 

[Boller]

Your code does not seem to be in line with your description of what you want to do.

Try stepping through the code via F8 to see what it is actually doing so as to establish where it needs amending.

Watch the cholestorol count !!

 

[ILoveCheese]

I went back through it and ran some simple examples again. If I keep the integer the same it works. When I change the Integer so the result is in a new location the same thing happens.

So I am guessing this is my problem area.

Sheets("Totals").Range("B" & X).PasteSpecial xlValues

I'll see if I can pick it apart some more.

 

[ILoveCheese]

I am still testing this without success. The first chunk of code works the way I want. The portion with the second integer produces inaccurate data. There is obviously something I do not understand about implementing multiple integers. If someone could help me out I would appreciate it. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Sub LOOPTEST()<o></o>

Dim M As Integer, X As Integer
For M = 5 To 10
For X = 20 To 25<o></o>
<o></o>
Range("A" & M).Copy Destination:=Range("D15")
Range("I21")<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-comffice:smarttags" /><st1lace w:st="on"><st1:PlaceName w:st="on">.Copy</st1:PlaceName>
<st1:PlaceType w:st="on">Range</st1:PlaceType></st1lace>("M" & M).PasteSpecial xlValues<o></o>

Range("A" & M).Copy Destination:=Range("D15")
Range("J21")<st1lace w:st="on"><st1:PlaceName w:st="on">.Copy</st1:PlaceName>
<st1:PlaceType w:st="on">Range</st1:PlaceType></st1lace>("N" & X).PasteSpecial xlValues<o></o>
<o></o>
Next X
Next M<o></o>
End Sub<o></o>

 

[Boller]

I don't understand what you want to do.

Perhaps you could post a sample of your worksheet(s). Or perhaps someone else can help.