как создать макрос для поиска строки по условиям

[nick31]

есть файл под названием "1-1" он будет содержать макрос, нужно создать макрос, чтобы он из файла "ЮЛ"  копировал строки по 2 условиям в лист 2 содержащие часть слова "недвиж" столбца D и сумма столбца Q больше или равна   3 000 000 руб. выделенны желтым цветом столбцы

[shamilganiev]

Так?
Только есть ограничения:
1. Лист2 должен быть пустой (иначе данные перепишутся),
2. книга ЮЛ должна быть закрыта (хотя можно и открытую держать, только надо в коде закомментировать строку с workbook open),
3. поменяй свои точки в колонке Q на запятые, иначе эксель не сможет делать с данными математические операции

[nick31]

А У НАС ПРОХОДИТ ТАКАЯ ВЫГРУЗКА! НИКАК ИЗМЕНИТЬ НЕЛЬЗЯ?

[shamilganiev]

попробуй это

[nick31]

ПОЛУЧАЕТСЯ, ЧТО ОН НЕ КОПИРУЕТ СТРОКУ! ТАМ ПРОИСХОДИТ ПРЕОБРАЗОВАНИЕ В ОБЩИЙ ФОРМАТ, А МОЖНО ОСТАВИТЬ ПРИ КОПИРОВАНИИ КАК ЕСТЬ?

[ShAM]

nick31, у Вас что Caps Lock запал.

[nick31]

ни в коем случае))

[shamilganiev]

ТАМ ПРОИСХОДИТ ПРЕОБРАЗОВАНИЕ В ОБЩИЙ ФОРМАТ

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

а так, я не умею при помощи вба копировать диапазоны с форматированием (тем более на разных листах), я недавно только начал лазить туда (в вба)

[nick31]

а подскажи вот что! почему при подписании к строчке слова недвижимость новые строки не копируются?

[shamilganiev]

потому что я указал ограниченный диапазон. вот. поменял до строчки с номером 10 000

[shamilganiev]

всё, я пошёл домой. сегодня меня не жди

[nick31]

спасибо огромное за помощь!

[Wasilic]

А МОЖНО ОСТАВИТЬ ПРИ КОПИРОВАНИИ КАК ЕСТЬ?

Можно.
Так пойдет?

[Hugo121]

Не-а...
Я запустил - и ничего...

1. кнопка вызывает не тот макрос. Сделал.
2. ЮЛ.xls был закрыт с активным вторым листом. Пересохранил.

Вроде заработало. Но на другом форуме решение такое:

Код Выделить Развернуть

.Rows(i).Copy .Parent.Sheets(iList2$).Rows(n).Cells(1)
И кроме того там уже GetObject(iPath$ & iFile$) проходят

[Wasilic]

1. кнопка вызывает не тот макрос.

Эт точно. В последний момент макросу дал имя кнопки, а указать забыл. Переделал и перевложил

на другом форуме решение такое:

Ну это, сколько людей решают столько и решений.