Не буду просить сделать за меня задание прошу только помочь с подбором материала по этому вопросу!! Задача состоит в следующем: есть большая таблица, из неё составляем отчёты, в отчётах присутствуют ссылки на листы с уже отфильтрованными данными и например применёнными к ним функцией ПРОМЕЖУТОЧНЫЕ.ИТОГИ!! В итоге надо избавиться от этих промежуточных листов и программно всё сделать, чтобы в VBA мы наложили фильтр, затем применили к нужному столбцу функцию и занесли результат в лист с отчётом.
Наложение фильтра средствами VBA.
17.02.2011 03:27:55
|
|
|
|
17.02.2011 05:29:56
и пока единственный.
|
|
|
|
17.02.2011 12:52:08
И ещё вопрос сразу можно ли будет после такой фильтрации возвращать всё как было и накладывать другой фильтр, для подсчёта уже по другим значениям?
|
|
|
|
17.02.2011 15:43:36
См. приложенный файл.
Rows("1:2") - диапазон строк (первая и вторая строка). Т.е. ищем текст в первой и во второй строке |
|
|
|
17.02.2011 16:14:42
Спасибо, щас буду до конца разбираться, но вроде всё окей!! Если что буду ещё спрашивать!!
|
|
|
|
17.02.2011 17:20:10
А чем отличаются:
.Range("A1:N" & .Cells(Rows.Count, "A")).AutoFilter и .Range("A2:N" & .UsedRange.Rows.Count).AutoFilter ?? |
|
|
|
17.02.2011 17:26:05
И ещё достаточно ли просто вконце поставить AutoFilterMode = False чтобы выключить автофильтр!!
|
|
|
|
17.02.2011 17:40:39
опечатался выше. Вместо слова "идет" читать "ищет"
|
|
|
|
17.02.2011 19:01:11
Грубо говоря не отрабатывает .Range("A2").AutoFilter ибо всё остальное вроде как имеет значения!!
|
|
|
|
18.02.2011 11:56:31
вот и поговорили )
|
|
|
|
19.02.2011 23:44:58
Ну вот так приблизительно!!
|
|
|
|
20.02.2011 00:22:08
Невнимательно правите.
Сравните Then .Range("A2:N" & .Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter и Then .Range("B20:AY600" & .Cells(Rows.Count, "B")).AutoFilter |
|
|
|
20.02.2011 01:00:00
Не принципиально всёравно не работает покачто!!
|
|
|
|
20.02.2011 01:41:04
4ygynok, потестируйте этот файл
|
|
|
|
20.02.2011 02:26:04
Спасибо тестируемый файл отрабатывает как нужно, применю его на основной отпишусь как отработает!!
|
|
|
|
20.02.2011 03:07:53
Tester, перенёс ваш код всё запускается без ошибок, теперь осталось узнать почему некоторые числа не совпадают Так что буду разбираться!!
|
|
|
|
20.02.2011 03:40:19
Нет извини Tester, значения неправильные не из-за кода, так что твоё вроде как работает всё!! Спасибо огромное!!
|
|
|
|
20.02.2011 03:56:12
4ygynOK
Замените строку: If iInvoiceNum = "" Then Exit Sub на If iInvoiceNum = False Then Exit Sub Так будет правильнее отрабатываться кнопка "Отмена" при запросе номера Счёта |
||||
|
|
|||
Читают тему