Помогите упростить с помощью VBA - Microsoft Office Excel

Dubineanschi · 22.10.2008, 13:36

Почти уверен, что есть способ полегче справится рутинной обработкой отчета по дебиторке! Во вложеном файле дебиторка фирм с31,12,07 по 22,10,08 .
Что мне нужно, удолить строки, дней(в столбце L) которого меньше числа( указоный в ячейке А2 = 30. Потом нужно отсортировать в порядке возрастания по столбцу организзация (столбец B), организации каждому агенту!

Извините может быть за плохое формулирование задачи!

SAS888 · 22.10.2008, 14:05

Посмотрите вложение. Запустите макрос "Main". Ваш лист с тем, что должно получиться я не удалил. Оставил для сравнения.
Я не совсем понял, откуда брать

Цитата:

меньше числа( указоный в ячейке А2 = 30.

В предлагаемом варианте жестко задано 30. Поясните - вставим.

Dubineanschi · 22.10.2008, 14:16

Да это то что нужно! Огромное Спасибо
If Cells(i, "L") < 30 Then Rows(i).Delete
что-бы это значение( в данный момент = 30) бралось из ячейки а2 , а во вложенном файле я его не вписал!

SAS888 · 22.10.2008, 14:21

В коде макроса, строку

Код:

If Cells(i, "L") < 30 Then Rows(i).Delete

замените на

Код:

If Cells(i, "L") < [A2] Then Rows(i).Delete

А еще лучше - предварительно проверить валидность значения ячейки "A2".

22.10.2008, 14:21	#4
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	В коде макроса, строку Код: `If Cells(i, "L") < 30 Then Rows(i).Delete` замените на Код: `If Cells(i, "L") < [A2] Then Rows(i).Delete` А еще лучше - предварительно проверить валидность значения ячейки "A2". Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Скрыть-Отобразить с помощью VBA	ZORRO2005	Microsoft Office Excel	5	01.09.2008 09:11
Сверка данных с помощью VBA	mal001	Microsoft Office Excel	2	06.08.2008 14:39
Упростить логическое выражение. Помогите с поступлением.	DartMrakkk	Помощь студентам	4	27.07.2008 12:35
Распределить товар по магазинам с помощью VBA	ZORRO2005	Microsoft Office Excel	9	21.06.2008 22:04
Работа с MS Word с помощью VBA. Нужна помощь.	ereality	Microsoft Office Word	5	28.05.2008 18:50

22.10.2008, 14:16	#3
Dubineanschi Пользователь Регистрация: 02.07.2008 Сообщений: 10	Да это то что нужно! Огромное Спасибо If Cells(i, "L") < 30 Then Rows(i).Delete что-бы это значение( в данный момент = 30) бралось из ячейки а2 , а во вложенном файле я его не вписал!