Copy text a number of given times down the page ?

[FIELD]

This may be hard to explain, but here we go.

I have Text in say A1
in B1 i put a multiplier number say 43
I would like the text A1 to copy itself 43 times down the page in row C1
Then...
I have text in A2
in B2 i have the number 12
I would like it to copy text A2 down C? following after A1's text

If i change the Multiplier number on the given field i wish for C1 to also reduce in length.

??? Can this be DONE ???

Thanks

Anthony Field
xlr8sys@tpg.com.au

 

[IML]

Try this,
In cell c1
=IF(ROW()<=$B$1,$A$1,IF(ROW()<=($B$1+$B$2),$A$2,""))

copy this formula down to as many rows as will cover your maxium(b1+b2),

 

[Oaktree]

This may get you started:

C1 =IF((ROW(C1)-ROW($A$1))<$B$1,$A$1,IF((ROW(C1)-ROW($A$1)-$B$1)<$B$2,$A$2,""))

Copy C1 down.

 

[PA HS Teacher]

Try this:
In C1
=IF(ROW()<=$A$2,$A$1,IF(ROW()<=$A$2+$B$2,$B$1,""))

copy paste down

 

[Artemus]

Here is a VBA solution that may get you started. You would probably want to add code to ensure that cells B1 and B2 actually contain integer values, etc.

Sub Copier()
Dim intFirstCount As Integer
Dim FirstItem
Dim intSecondCount As Integer
Dim SecondItem
Dim intCounter As Integer

FirstItem = ActiveSheet.Range("A1").Formula
intFirstCount = ActiveSheet.Range("B1").Value
SecondItem = ActiveSheet.Range("A2").Formula
intSecondCount = ActiveSheet.Range("B2").Value
For intCounter = 1 To intFirstCount
ActiveSheet.Cells(intCounter, 3).Formula = FirstItem
Next intCounter
For intCounter = intFirstCount + 1 To intFirstCount + intSecondCount
ActiveSheet.Cells(intCounter, 3).Formula = SecondItem
Next intCounter
End Sub

 

[jindon]

Hi,
try the code
paste the code onto sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, ii As Long, LastR As Range, lastA As Long
With Me
    If Intersect(Target, .Range("a:b")) Is Nothing Or Target.Count > 1 _
        Or Not IsNumeric(.Cells(Target.Row, 2)) Then Exit Sub
        Application.ScreenUpdating = False
        .Range("c:c").Clear
        lastA = .Range("a65536").End(xlUp).Row
        For i = 1 To lastA
            For ii = 1 To .Cells(i, 2).Value
                Set LastR = .Range("c65536").End(xlUp).Offset(1)
                LastR = .Cells(i, 1)
            Next
        Next
        Application.ScreenUpdating = True
End With
End Sub

hope this helps
jindon