HELP! Loop & Joint x together....

[pedie]

Hi, I need help to make this kinda complicated loop to work ...
My expected result is as shown in table below...


<TABLE style="WIDTH: 40pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=53><COLGROUP><COL style="WIDTH: 40pt" width=53><TBODY><TR style="HEIGHT: 13.5pt" height=18><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: #c5be97; WIDTH: 40pt; HEIGHT: 13.5pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=18 width=53>

A​

</TD></TR><TR style="HEIGHT: 13.5pt" height=18><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: #c5be97; HEIGHT: 13.5pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=18>

A​

</TD></TR><TR style="HEIGHT: 13.5pt" height=18><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: #c5be97; HEIGHT: 13.5pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=18>

AA​

</TD></TR><TR style="HEIGHT: 13.5pt" height=18><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: #c5be97; HEIGHT: 13.5pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=18>

AAA​

</TD></TR><TR style="HEIGHT: 13.5pt" height=18><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: #c5be97; HEIGHT: 13.5pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=18>

AAAA​

</TD></TR><TR style="HEIGHT: 13.5pt" height=18><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: #c5be97; HEIGHT: 13.5pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=18>

AAAAA​

</TD></TR></TBODY></TABLE>


Everytime my i value increases i want my x joint together increase too....is this possible?

Thanks in advance for helping me...


i tried to do it myself but just dont know...and have not seen any code of this type...

[/FONT]
[FONT=Courier New]Option Explicit
Sub itest1()
Dim i As Long
Dim x As String
x = Range("A1").Value
For i = 1 To 5
 Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = x
Next i
End Sub

 

[VoG]

Hi Pedie. Try this

Sub itest1()
Dim i As Long
Dim x As String
For i = 1 To 5
    x = x & Range("A1").Value
    Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = x
Next i
End Sub

 

[pedie]

Peter...that was perfect!!! thanks
Thank you