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

Автор nick31, 17.05.2012, 14:03

« назад - далее »

nick31

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

shamilganiev

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

nick31

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

shamilganiev


nick31

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

ShAM


nick31


shamilganiev

Цитата: nick31 от 17.05.2012, 16:29
ТАМ ПРОИСХОДИТ ПРЕОБРАЗОВАНИЕ В ОБЩИЙ ФОРМАТ
там не происходит преобразование, там просто во втором листе в нужную строчку происходит извлечение значений из нужной строчки первого листа.
так что если заранее установишь форматы во втором листе у тебя будет всё пучком.

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

nick31

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

shamilganiev

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

shamilganiev

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

nick31


Wasilic

#12
Цитата: nick31 от 17.05.2012, 16:29
А МОЖНО ОСТАВИТЬ ПРИ КОПИРОВАНИИ КАК ЕСТЬ?
Можно.
Так пойдет?
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Hugo121

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

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

Вроде заработало. Но на другом форуме решение такое:
.Rows(i).Copy .Parent.Sheets(iList2$).Rows(n).Cells(1)
И кроме того там уже GetObject(iPath$ & iFile$) проходят :)
webmoney: E265281470651 Z422237915069

Wasilic

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

Цитата: Hugo121 от 17.05.2012, 21:08
на другом форуме решение такое:
Ну это, сколько людей решают столько и решений.  :)
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.