Здравейте!

Идеята е следната в лист 2 да се прехвърлят имената само на тези, на които стойността е по-големи от нула
Пример:

1. Иван 5
2. Георги 0
3. Димитър 4

Ето кода който написах...

Private Sub Worksheet_Activate()

For k = 22 To 57
For i = 18 To 57

If (Sheets("Лист1").Cells(k, 38).Value > 0) Then
Sheets("Лист2").Cells(i, 2) = Sheets("Лист1").Cells(k, 2)

End If
k = k + 1
Next i, k

End Sub

Но проблема е, че прехвърля имената в лист2 на позицията, на която са в лист 1 а, аз бих искал да ги пренася един под друг(да не остават празни редове между имената). Пример:
1. Иван 5
2. Георги 0
3. Димитър 4

-На първия ред ще прехвърли Иван;
-на втория ред ще пропусне, тъй като стойността на Георги е нула
-на третия ред ще прехвърли Димитър.
И така ще се получат празни редове.
Благоддаря!
<P ID="edit"><FONT class="small"><EM>Редактирано от metamorphosis на 21.01.16 19:12.</EM></FONT></P><P ID="edit"><FONT class="small"><EM>Редактирано от metamorphosis на 21.01.16 19:35.</EM></FONT></P>

Редактирано от metamorphosis на 21.01.16 19:36.