Поиск "проблемных значений" и вставка строки в новый документ Excel

[Gvaridos]

Доброго времени суток!
Нужен макрос при активации которого он будет "анализировать" столбец G и при нахождении значений меньше 35% будет добавлять эту строку в отдельный документ.

Исходный Файл:Альфа-Директ
Конечный файл:Журнал учёта

Помогите пожалуйста!

[EugeneS]

можно сделать так,

Sub Find_Copy()
Application.ScreenUpdating = False
With ActiveWorkbook: Workbooks.Open (.Path & "\" & "ЖУРНАЛ УЧЕТА МАРЖИ.xls"): .Activate: Columns("a:j").autofilter Field:=7, Criteria1:="<35"
Range([a2], Cells.SpecialCells(xlCellTypeLastCell)).SpecialCells(xlCellTypeVisible).Copy Workbooks("ЖУРНАЛ УЧЕТА МАРЖИ.xls").Sheets(1).[a1]
Selection.autofilter: Application.ScreenUpdating = True: End With: End Sub

Макрос необходимо запускать будучи на листе 1 файла Альфа-Директ. Файл "Журнал учета маржи" закрыт. Строки копируются в Лист1 начиная с А1 файла "Журнал учета маржи". Исходный и конечный файл находятся в одной папке.

[Gvaridos]

Сообщение от EugeneS

можно сделать так,

Sub Find_Copy()
Application.ScreenUpdating = False
With ActiveWorkbook: Workbooks.Open (.Path & "\" & "ЖУРНАЛ УЧЕТА МАРЖИ.xls"): .Activate: Columns("a:j").autofilter Field:=7, Criteria1:="<35"
Range([a2], Cells.SpecialCells(xlCellTypeLastCell)).SpecialCells(xlCellTypeVisible).Copy Workbooks("ЖУРНАЛ УЧЕТА МАРЖИ.xls").Sheets(1).[a1]
Selection.autofilter: Application.ScreenUpdating = True: End With: End Sub

Макрос необходимо запускать будучи на листе 1 файла Альфа-Директ. Файл "Журнал учета маржи" закрыт. Строки копируются в Лист1 начиная с А1 файла "Журнал учета маржи". Исходный и конечный файл находятся в одной папке.

Я пока начинающий...
а если перед копированием строки добавить ещё переход на последнюю строчку, то как будет выглядеть?

вот код перехода на последнюю строчку:
Sub Макрос5()
Dim i As Long
Dim this
i = ActiveCell.SpecialCells(xlLastCell) .Row
For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows
this = rw.Cells(i, 1).Value
If this = "" And i = 1 Then Exit For
i = i + 1
Next
Cells(i, 1).Select
End Sub

[Hugo121]

Этот код (Макрос5()) в общем случае неверен. В частном - может отработать верно. Хотя я такой случай не нащупал...

Проще так (если лист до упора не заполнен):
Sub ttt()
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Cells(LastRow, 1).Select
End Sub

[Gvaridos]

Сообщение от Hugo121

Этот код (Макрос5()) в общем случае неверен. В частном - может отработать верно. Хотя я такой случай не нащупал...

Проще так (если лист до упора не заполнен):
Sub ttt()
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Cells(LastRow, 1).Select
End Sub

Я неправильно выразился, имелся в виду переход на последнюю ПУСТУЮ строчку
поможете написать правильный код для перехода на последнюю пустую?

[Hugo121]

Да в общем это и есть, добавьте 1:

LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1

Или Вы заранее не знаете, в каком столбце будет нижнее значение?