Excel

[pantera]

В Екселе 2 листа. На 1 лист поступает инфа. При поступлении инфы происходит сравнение в пятой и шестой ячейках.
Если значение в 5 ячейке равняется значению в 6, то в 7 ячейку ставится 1. Если нет, то пустая строка.
Так вот вопрос. Как сделать так чтобы при появлении 1 в 7 ячейке, во второй лист писалась полная строка из первого листа(в 7 ячейке которого соббсно и стоит 1)? Причем не перезаписывала предыдущую строку, а писала дальше.

[syrok]

Знаю что можно проще но навскидку и это работает
делал когда-то аналогичную фишку

Код: Выделить всё

dim sLabel as string
Dim sTemp as string
q=1
For i = 7 To N 'N-сколько у тебя строк на 1 листе
            sLabel = "G" & Trim$(Str(i)) 'G- 7-й столбец
            sTemp = Worksheets(1).Range(sLabel)
            If (sTemp = "1") Then
                sLabel = "A" & Trim$(Str(i))   'переносим данные из 1-го столбца
                sTemp = Worksheets(1).Range(sLabel)
                sLabel = "A" & Trim$(Str(q))
                Worksheets("Лист2").Range(sLabel) = sTemp
           
                sLabel = "B" & Trim$(Str(i))   'переносим данные из 2-го столбца
                sTemp = Worksheets("Лист1").Range(sLabel)
                sLabel = "B" & Trim$(Str(q))
                Worksheets("Лист2").Range(sLabel) = sTemp
           
                sLabel = "C" & Trim$(Str(i))   'переносим данные из 3-го столбца
                sTemp = Worksheets("Лист1").Range(sLabel)
                sLabel = "C" & Trim$(Str(q))
                Worksheets("Лист2").Range(sLabel) = sTemp
           
                sLabel = "D" & Trim$(Str(i))   'переносим данные из 4-го столбца
                sTemp = Worksheets("Лист1").Range(sLabel)
                sLabel = "D" & Trim$(Str(q))
                Worksheets("Лист2").Range(sLabel) = sTemp
           
                sLabel = "E" & Trim$(Str(i))   'переносим данные из 5-го столбца
                sTemp = Worksheets("Лист1").Range(sLabel)
                sLabel = "E" & Trim$(Str(q))
                Worksheets("Лист2").Range(sLabel) = sTemp
               
                sLabel = "F" & Trim$(Str(i))   'переносим данные из 6-го столбца
                sTemp = Worksheets("Лист1").Range(sLabel)
                sLabel = "F" & Trim$(Str(q))
                Worksheets("Лист2").Range(sLabel) = sTemp
           
                sLabel = "G" & Trim$(Str(i))   'переносим данные из 7-го столбца
                sTemp = Worksheets("Лист1").Range(sLabel)
                sLabel = "G" & Trim$(Str(q))
                Worksheets("Лист2").Range(sLabel) = sTemp
               
                q = q + 1
            End If
Next i