Use value in a cell to iterate and fill target Columns

[Logan_Noob]

Hi Every1,

I have got myself a little trouble..

The functionality of the code is quite simple but i being a beginner am not able to do it .

I have 3 columns

1. Number of iterations
2. Data to be repeated
3. Target block

I am trying to fetch the value of each cell in the 1 st column as the counter for the loop and then use it to repeatedly print the data of the 2 nd column into the target that is the 3 rd column.

NumberofIteration	DataToBeRepeated(String)	Target Block	Result
1	L01		L01
0	L02		0
2	L02		L02
4	L01		L02
			L01
			L01
			L01
			L01

<tbody>
</tbody>

Your help is highly appreciated .Thanx in advance

Regards
Logan_Noob

 

[VoG]

Try

Sub block()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    If Range("A" & i).Value > 0 Then
        Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(Range("A" & i).Value).Value = Range("B" & i).Value
    Else
        Range("C" & Rows.Count).End(xlUp).Offset(1).Value = 0
    End If
Next i
End Sub

 

[Logan_Noob]

Thanx a tonn VOG... Your Code works like a charm....