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

Пользователь

Сообщений: 6 Регистрация: 01.01.1970

09.01.2012 10:46:37

Всем доброго времени суток!
Прошу помощи в решении задачи.

Дано:
шаблон телеграммы - шапка с адресом (город), наполнение данными (есть столбик с городом), подпись (не меняется).

Требуется:
автоматизировать печать (подготовку к печати) телеграмм (сделать заготовки телеграмм во все города).

Сейчас работаю так:
на данных ставлю "автофильтр", фильтрую по столбцу "город", в шапке руками пишу город.
Когда городов мало и фиг бы с ним, а когда несколько десятков то Ооооо!

Идеи были такие:
автофильтру передавать значение города из шапки;
ИЛИ наоборот в шапку передавать значение из автофильтра.

Самому реализовать не получилось.
Помогите, плиз.

Прикрепленные файлы

post_295300.xls (38 КБ)

ъ Гость	#2 09.01.2012 11:04:56 посмотрите вот это: http://www.planetaexcel.ru/tip.php?aid=262 если понравится, но сами "прикрутить" к своему файлу не сможете - пишите, поможем

kostw

Пользователь

Сообщений: 6 Регистрация: 01.01.1970

09.01.2012 11:25:50

{quote}{login=ъ}{date=09.01.2012 11:04}{thema=}{post}посмотрите вот это: http://www.planetaexcel.ru/tip.php?aid=262 если понравится, но сами "прикрутить" к своему файлу не сможете - пишите, поможем{/post}{/quote}

Спасибо за оперативность.
Что не получилось:
Автофильтр установился прямо на первой строке данных (что исключило его из фильтра).
Я так понял, что фильтр срабатывает когда условие точно над полем - надо сдвинуть его на другой столбец (который не печатается).

Guest

Гость

09.01.2012 11:37:33

{quote}{login=kostw}{date=09.01.2012 10:46}{thema=Как сделать связанный фильтр (выборка строк по введенному значению)}{post}... Требуется: автоматизировать печать (подготовку к печати) телеграмм (сделать заготовки телеграмм во все города)...{/post}{/quote}
Телеграммы - телеграфом, через почту? - В таком разе см. слияние формы в Word с данными XL. Как другой вариант - надстройки автора сайта (PLEX) и The_Prist'a для стикеров и пр.
-39364-

ъ Гость	#5 09.01.2012 11:40:12 скопировано из Приемов, внесены изменения минимально необходимые (вообще там для вашего файла большую часть выкинуть можно) Прикрепленные файлы post_295323.xls (51 КБ)

kostw

Пользователь

Сообщений: 6 Регистрация: 01.01.1970

09.01.2012 11:55:13

{quote}Телеграммы - телеграфом, через почту? - В таком разе см. слияние формы в Word с данными XL{/quote}
Да верно - именно почтой - не у всех есть интернет, плюс государственная структура - бумагу надо подшивать в дело. Слияние с Word пробовал - сливает только 1 строку. Да и привычней работать в Excel/

{quote}скопировано из Приемов, внесены изменения минимально необходимые (вообще там для вашего файла большую часть выкинуть можно){/quote}
А как вставили автофильтр над данными?
Если можно набраться наглости и попросить оптимизировать код (выкинуть все лишнее) или разъяснить что и как работает (построчно).

Работает супер!

Гость

09.01.2012 12:15:11

наглость - это хорошо. второе счастье.

лишнее выкинуто. объяснять сейчас некогда, сорри.
но код остался суперпростой - если хоть что-то в VBA знаете - поймёте. не знаете - учите, пригодится :)

при включении фильтра указывайте диапазон ручками - лучше даже только один столбец и захватывайте при этом пустую строку.

пс. ксати, аноним прав - вариант, наверное, не самый лучший. но... если устраивает - почему бы и нет? :)

Прикрепленные файлы

post_295338.xls (48.5 КБ)

AKSENOV048 Пользователь Сообщений: 523 Регистрация: 01.01.1970	#8 09.01.2012 12:22:07 Здравствуйте! еще вариант! Прикрепленные файлы post_295341.xls (52 КБ)

kostw

Пользователь

Сообщений: 6 Регистрация: 01.01.1970

09.01.2012 12:31:24

{quote}{login=ъ}{date=09.01.2012 12:15}{thema=}{post}наглость - это хорошо. второе счастье.
лишнее выкинуто. объяснять сейчас некогда, сорри.
но код остался суперпростой - если хоть что-то в VBA знаете - поймёте. не знаете - учите, пригодится :){/post}{/quote}

Пытался разобраться в большом коде - вроде начал понимать... и тут короткий код - понял что понимать я начал ВРОДЕ %-0.

Спасибо, все работает, вопрос решен.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#10 09.01.2012 12:36:36 Можно короче. Прикрепленные файлы post_295350.xls (46.5 КБ) Я сам - дурнее всякого примера! ...

kostw Пользователь Сообщений: 6 Регистрация: 01.01.1970	#11 09.01.2012 12:37:11 {quote}{login=AKSENOV048}{date=09.01.2012 12:22}{thema=}{post}Здравствуйте! еще вариант!{/post}{/quote} Спасибо! А без макросов вопрос , наверное не решаем?

kostw Пользователь Сообщений: 6 Регистрация: 01.01.1970	#12 09.01.2012 12:45:24 {quote}{login=KukLP}{date=09.01.2012 12:36}{thema=}{post}Можно короче.{/post}{/quote} Класс! А если изменятся позиции ячеек (городов) - сдвинутся вправо (добавятся столбики), в шапке сдвинется - что поправить в макросе?

ъ Гость	#13 09.01.2012 12:46:14 {quote}{login=KukLP}{date=09.01.2012 12:36}{thema=}{post}Можно короче.{/post}{/quote} приличные ограничения у Проверки данных на список, задавакмый таким образом. 20-30 городов - и неприятые глюки гарантированы. имхо.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#14 09.01.2012 13:12:37 Да. Можно где-нить место выделить: Sub www() Dim x, s$, i& x = [b7].CurrentRegion.Columns(3).Value [n1].CurrentRegion.Clear With CreateObject("Scripting.Dictionary") .CompareMode = 1 For i = 2 To UBound(x) If Not .Exists(x(i, 1)) Then .Item(x(i, 1)) = x(i, 1) Next [n1].Resize(.Count) = Application.Transpose(.items) End With Sheets("Лист1").[b3].Validation.Delete Sheets("Лист1").[b3].Validation.Add Type:=3, Formula1:="=" & [n1].CurrentRegion.Address End Sub Я сам - дурнее всякого примера! ...

Читают тему