Euxaristo poli na eisai kala. Episis egrapsa kai ton parakato kodika

Dim x, k, j As Integer

Sub Button3_Click()
k = 1
x = 1
j = 2
Do
For x = 1 To 10
Worksheets("Sheet3").Cells(j, x).Value =
Worksheets("Sheet2").Cells(k, 1).Value
k = k + 1
Next x
j = j + 1
Loop While IsEmpty(Worksheets("Sheet2").Cells(k - 10, 1).Value) <
True
End Sub


--
ckotsis
------------------------------------------------------------------------
ckotsis's Profile: http://www.excelforum.com/member.php...o&userid=31759
View this thread: http://www.excelforum.com/showthread...hreadid=514834