Авторизируйтесь,
чтобы продолжить
Некоторые функции доступны только зарегистрированным пользователям
Неправильный логин или пароль

Внимание! Теперь для входа на форум необходимо вводить единый пароль регистрации сервисов sibnet.ru!

Здравствуйте, гость ( Вход | Регистрация )



 
Ответить в эту темуОткрыть новую тему
> Фильтрация в Ecxel, Макрос
MotoArhangel
сообщение 25.10.2015, 14:40
Сообщение #1


- 夜狼 -
Group Icon


Группа: GNU/Linux
Сообщений: 1 218
Регистрация: 24.9.2009
Из: Алтай =)
Пользователь №: 141 745



Нужно отфильтровать данные с выводом данных в отдельные ячейки. Делаю так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B5")) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        
        Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B3").CurrentRegion, CopyToRange:=Range("F3").CurrentRegion, _
        Unique:=False
        
    End If
End Sub

Не срабатывает, хотя проверял без копирования и все работает
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B5")) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
              
        Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Range("B3").CurrentRegion
    End If
End Sub

в чем может быть проблема?

Сообщение отредактировал MotoArhangel - 25.10.2015, 14:46
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. просматривают этот форум (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Текстовая версия Сейчас: 22.9.2019, 6:45
Редакция: (383) 347-86-84

Техподдержка: (383) 347-22-44
help.sibnet.ru
Размещение рекламы:
тел: (383) 347-06-78, 347-10-50

Правила использования материалов