Возможности фильтра

Автор jurijsr, 20.03.2014, 12:35

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

jurijsr

Добрый день

В приложение файл.Скажите , какие шаги предпринять чтобы при выборе из фильтра "Магазин", показывал весь "Товар" который относится к этому "Магазину". Пока при выборе Магазина показывает не весь Товар и база данных у меня именно в таком виде, и как вариант присвоить название Магазина в каждую ячейку не подходит.
Спасибо


kuklp

Ответ очевиден - нормализовать таблицу. Убрать объединения ячеек и в каждую строку вписать название магазина. Объединенные ячейки - зло. Если надо просто распечатать - ради Бога. А обрабатывать такие таблицы почти всегда геморрой. Выполните это в своем примере и будет счастье:
Sub www()
    Range("A3:A51").Select
    With Range("A3:A" & [b65536].End(xlUp).Row)
        .MergeCells = False
        .SpecialCells(4).Formula = "=R[-1]C"
        .Value = .Value
    End With
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

jurijsr

#2
Спасибо, Согласен с Вами, что так была бы проще, но когда приходит база данных в более 2000 магазинов, то тоже как то геморройна делать в каждую ячейку . В любом случае буду пока этот вариант использовать, если по другому никак .

kuklp

Дело Ваше, Вы можете и не прислушиваться к советам. Мне будет жаль потерянного зря времени, но я переживу ;)
Цитироватькогда приходит база данных
и что это меняет? Трудно запустить готовый макрос? А еще проще обязать тех "дизайнеров", откуда она приходит, присылать нормальную базу, к-рую можно обрабатывать. Но, как я уже писал, дело Ваше...
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

jurijsr

Ваше время не зря потрачена.  ;)
Как  упомянул выше, буду использовать такой вариант, если по другому не как.