If I have correctly understood the macro, Looking at the code, the logic is,
1. Pick A Value From Sheet Details, Column ES, Row 3
2. Paste The Value In Sheet Price List, Column W, Row 12 To Row 22.
3. Repeat At Step 1 until Sheet Details, Column ES, Row(?) is Not Empty.
In Short For Each Value In Sheet Details, Column ES (starting At Row 3),
Replicate The Value In Sheet Price List, Column W (Starting At First Empty
Cell) 11 times.
Following For Loop Would Do The Trick....
Dim I As Integer
For I = 3 To Sheets("Details").Range("ES3").End(xlDown).Row
Sheets("Details").Range("ES" & I).Copy _
Destination:=Sheets("PriceList").Range("W65536").End(xlUp).Offset(1,
0).Resize(11)
Next I
Only thing you need to change in this code would be, if you want to always
start at Row 12 of Sheet Price List, Column W, then before the For Loop,
ensure that Row 11 Column W of Sheet Price List is Non-Blank.
Regards
Ajit
On Fri, Oct 10, 2008 at 8:56 PM, sintral <[EMAIL PROTECTED]> wrote:
>
> I have a very short macro snippet here that I need to iterate several
> times:
>
> Sub Macro1()
> '
> Sheets("Detail").Select
> Range("ES3").Select
> Selection.Copy
> Sheets("Price List").Select
> Range("W12").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Application.CutCopyMode = False
> Selection.Copy
> Range("W13:W22").Select
> ActiveSheet.Paste
> Application.CutCopyMode = False
> End Sub
>
> Each time through, the values for the following objects will need to
> increment accordingly:
>
> Range("ES3").Select + 1 (until the column is blank)
> Range("W12").Select + 11
> Range("W13":W22").Select + 11 + 11 accordingly.
>
> I'm sure this is very easy, but I don't know where to begin.
>
> >
>
--
Thank You,
Ajit Navre
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
