копирование и вставка данных в заданном порядке

[Dog_DinGo]

Sub ProrisovkaFO()
Sheets.Add
j = ActiveSheet.Name
Worksheets(j).Name = "TEST"
For i = 9 To 80
If Worksheets("ОТЧЁТ").Cells(i, 2) <> 0 Or Worksheets("ОТЧЁТ").Cells(i, 7) <> 0 _
Or Worksheets("ОТЧЁТ").Cells(i, 10) <> 0 Or Worksheets("ОТЧЁТ").Cells(i, 13) <> 0 Then _
Worksheets("ОТЧЁТ").Cells(i, 1).Copy Worksheets("TEST").Cells(i, 1)
Next i
End Sub

Есть такой макрос...
надо сделать так, чтобы в ЛИСТ ТЕСТ данные вставлялись по порядку... придать цикличность вставки данных в лист ТЕСТ

за место i должна быть друггая переменная как я понимаю.. но как это сделать

[Hugo121]

Два варианта - перед копированием увеличиваете переменную x, и копируете в
Worksheets("TEST").Cells(x, 1)

Или - каждый раз перед копированием определяйте
iLastRow = Worksheets("TEST").Cells(Rows.Count , 1).End(xlUp).Row
и копируете в
Worksheets("TEST").Cells(iLastRow+1 , 1)

Ещё - если в ячейках, где <>0 подразумеваются цифры, то быстрее будет проанализировать на >0 их сумму.

Sub ProrisovkaFO()
Dim x as Long
    Sheets.Add
    j = ActiveSheet.Name
    Worksheets(j).Name = "TEST"

    With Worksheets("ОТЧЁТ")
        For i = 9 To 80
            If Application.Sum(.Cells(i, 2), .Cells(i, 7), .Cells(i, 10), .Cells(i, 13)) > 0 Then
                x = x + 1
                .Cells(i, 1).Copy Worksheets("TEST").Cells(x, 1)
            End If
        Next i
    End With
End Sub

[IgorGO]

может так:
r = 1
For i = 9 To 80
If Worksheets("ОТЧЁТ").Cells(i, 2) <> 0 Or Worksheets("ОТЧЁТ").Cells(i, 7) <> 0 _
Or Worksheets("ОТЧЁТ").Cells(i, 10) <> 0 Or Worksheets("ОТЧЁТ").Cells(i, 13) <> 0 Then
Worksheets("ОТЧЁТ").Cells(i, 1).Copy Worksheets("TEST").Cells(r, 1)
r = r+1
end if
Next i

[Dog_DinGo]

Спасибо, всем...

вариант IgorGo будет оптимальнее... и проще... а я за простые решения =)

[Hugo121]

И чем же он проще? 1:1 как мой по сути, только букв больше
Хотя если цифры могут быть отрицательные, или это не цифры - тогда суммировать нельзя.
И кстати вместо Application.Sum() можно просто плюсов понаставлять...

[IgorGO]

Хотя если цифры могут быть отрицательные, или это не цифры

цифры в десятичной системе это 0, 1, 2 ... 9. Они не бывают отрицательными. отрицательные цифры - это числа.
Hugo121,
эти ифы
If Worksheets("ОТЧЁТ").Cells(i, 2) <> 0 Or Worksheets("ОТЧЁТ").Cells(i, 7) <> 0 _
Or Worksheets("ОТЧЁТ").Cells(i, 10) <> 0 Or Worksheets("ОТЧЁТ").Cells(i, 13) <> 0 Then
Worksheets("ОТЧЁТ").Cells(i, 1).Copy Worksheets("TEST").Cells(r, 1)
и
If Application.Sum(.Cells(i, 2), .Cells(i, 7), .Cells(i, 10), .Cells(i, 13)) > 0 Then

проверяют разные условия.
и потом - я лишь чуть-чуть поправил исходный код автора, а ты его безжалостно покромсал... какой бы вариант ты выбрал будучи на месте Dog_DinGo? ответ довольно очевиден))) это психология...

[Hugo121]

Ну да - цифры/числа - обычное дело... согласен, неверно выразился.
А по условиям (если положительные числа) - суть одна проверяется: если хоть одно число <>0 (т.е. >0), то копируем.
Но если нужно копировать и тогда, когда вместо 0 есть запись "Злостный должник" - тогда нужно каждую на <>0 проверять...
Ну не нравится мне нагромождение OR... Сам стараюсь избегать.

[IgorGO]

А по условиям (если положительные числа)

из каких исходных следует это условие?

Cells(i, 2) <> 0 Or Cells(i, 7) <> 0 Or Cells(i, 10) <> 0 Or Cells(i, 13) <> 0
и
Sum(.Cells(i, 2), .Cells(i, 7), .Cells(i, 10), .Cells(i, 13)) > 0
дадут разные разультаты при
Cells(i, 2) = -1
Cells(i, 7) = 0
Cells(i, 10) = 0
Cells(i, 13) = 0

[Hugo121]

из каких исходных - предположил исходя из практики
В 90% анализируют положительные числа.
И вполне начинающий может положительные проверять на <>0
Я только предложил, как вариант попрозрачней, с оговоркой (чуть правда запоздалой...)

[IgorGO]

Dog_DinGo уже уснул, наверное... а мы все еще копья ломаем)))