Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Фильтр с объединенными ячейками.
 
#1
11.03.2019 21:40:30
Добрый вечер добрые люди
Хочу вас попросить помощь, у меня в файле   не могу сортировать данные, с вашю помощью думаю добьюсь  желательного  результата  
есть с леви стараний столбцы от А до F где и праисходит сортировка в большенстве случи, но в этом столбце я делаю объединение нескольких ячейк, но если например буду выберать через фильтру  дата  13/03/2019 то выходит только ряд 20, а мне хотелось бы чтоб данные вышли от 20 ряду до 37 ряд где заканчивается объединение ячейк

еще например если в столбце выберу через фильтру D номер 587 то фильтр отдают только ряд 9 вместо от 9 до 19
надесю есть какой-то вазможностью сортировкак  так как я хочу
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=23379
Я видел эту тему но как-то не понял, или не равилно ставли код макроса или ни там ставлю

просьба: если это будет  код макроса овиснете где именно должен ставить

благодарю заранее всем
не обижайтесь друзья  если я пишу не грамотно, русский не мои радной язык
Изменено: CORDOBA - 12.03.2019 00:29:49
 
 
 
#2
11.03.2019 22:08:19
Формула =СЕГОДНЯ() на листе обязательна.
 
 
 
#3
11.03.2019 22:26:48
Я вас не понял, причем "Формула =СЕГОДНЯ() на листе обязательна."
я  новичок в эксел,  после вашего инфо все перепутал и меня в голове, можно по подробнее где именно должен быть  формулу, в каком ячейке
 
 
 
#4
11.03.2019 22:38:32
Цитата
CORDOBA написал:
в каком ячейке
В любой, только чтобы её случайно не удалить. Сейчас она в U1.
Изменено: gling - 11.03.2019 22:41:32
 
 
 
#5
11.03.2019 22:44:49
Сейчас видел где стоит формулу, но по сортировке не помогает, кроме этой формулы надо дополнительно делать что-та  ?
 
 
 
#6
11.03.2019 22:47:15
Попробуйте сортировать по дате или столбцы А:Е. Макросы должны быть включены.
Изменено: gling - 11.03.2019 22:50:51
 
 
 
#7
11.03.2019 22:59:09
макрос думаю включен, по дате сортировка не работает
 
 
 
#8
11.03.2019 23:14:40
У меня работает. Макросы были включены или включили сейчас  в этом документе?
Изменено: gling - 11.03.2019 23:15:12
 
 
 
#9
11.03.2019 23:19:41
не был включен макросы, потом включил, перезагрузил комп, все-таки не работает, а мне очень нужно это чеортовскую сортировку по этих 6 столбцов, не знаю почему у меня не работает
 
 
 
#10
11.03.2019 23:21:48
Макросы включить--Сохранить документ --Закрыть документ--Вновь открыть и попробовать. Формула СЕГОДНЯ() должна быть. Комп перегружать не нужно. Документ с включенными макросами сохранить-закрыть и вновь открыть.
Изменено: gling - 11.03.2019 23:23:31
 
 
 
#11
11.03.2019 23:29:56
что-то не делаю правильно, или понимаю, как сделал, кстати а код макроса где написано ? я не где не ставил
можете сделать скрин как у вас работает ?
я не как не могу понять где допускаю ошибку
 
 
 
#12
11.03.2019 23:55:42
Снова выгрузите файл с форума. Возможно вы его сохранили с расширением .xlsx и все макросы стерлись. Файл должен быть в формате .xlsm. Просмотреть макросы можно Alt+F11 на листе.
 
 
 
#13
11.03.2019 23:59:14
Вот и файл, думаю у меня есть где то ошибку

я не увидел  макросов
Изменено: CORDOBA - 12.03.2019 00:03:09
 
 
 
#14
12.03.2019 00:07:05
Недавно была тема тоже про такое, выяснилось что Офис не полный, наверно и у вас нужно установить нормальный офис. Попробуйте самостоятельно создать простейший макрос,получится?
 
 
 
#15
12.03.2019 00:13:04
у меня  работает один файл с макросами большим объёмам, не возникло проблему не разу, часто открываю фаил макросами или мне так кажется, я уже не в чен не соображаю на столько нужне такая сортировка  по работе
 
 
 
#16
12.03.2019 00:17:08
Попробуйте скопировать текст макроса и вставить его на лист, сохранить может что и получится.
Код
Private Sub Worksheet_Calculate()
    Dim r As Range, ar As Range, sRows As Range
    Dim dic As Object, adic, i&, fi&
    With ActiveSheet
        If .AutoFilterMode Then
        For i = 1 To .AutoFilter.Filters.Count
             If .AutoFilter.Filters(i).On Then fi = i
            Next
            If fi Then
                Application.ScreenUpdating = False
                Application.EnableEvents = False

                Set dic = CreateObject("Scripting.Dictionary")
                Set r = .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
                For Each ar In r.Areas
                    For Each sRows In ar.Rows
                        dic.Item(sRows.Row) = 1
                    Next
                Next
                .AutoFilter.Range.AutoFilter Field:=fi, Criteria1:="@"
                adic = dic.keys
                For i = LBound(adic) To UBound(adic)
                    Range("A" & adic(i)).MergeArea.EntireRow.Hidden = False
                Next
                Application.EnableEvents = True
                Application.ScreenUpdating = True
            End If
        End If
    End With
End Sub
Изменено: gling - 12.03.2019 00:17:49
 
 
 
#17
12.03.2019 00:19:10
Скорее всего, проблема та же.

PS Для модераторов.
Название темы - фильтр с объединенными ячейками.
Судя по всему, ТС жуткосно путает эти понятия
Изменено: RAN - 12.03.2019 00:23:42
 
 
 
#18
12.03.2019 00:54:55
RAN к сожалению ваш совет тоже не помог и ваш gling к сожалению  скрипт макроса тоже не помог
 
 
 
#19
12.03.2019 01:44:26
Нашел место, где собака могла порыться.
Если отключен автопересчет формул, события, запускающего макрос, не возникает. Со всеми вытекающими...
Изменено: RAN - 12.03.2019 02:09:16
 
 
 
#20
12.03.2019 21:49:33
ДОБРЫЙ ВЕЧЕР ВСЕМ
К сожалению не чей совет не помогает, авотматически расчет формулы  в ключен, макросы в ключен, разблакировал как написано было на #17 пост
есть чтн-та другой способ ?
 
 
 
Страницы: 1
Наверх