КАРТА САЙТА
Sibnet.ru
Sibnet.ru

Sibnet.ru — это информационно-развлекательный интернет-проект, ориентированный на широкий круг Сибирского региона.
По данным Rambler Top100, Sibnet.ru является самым популярным порталом в Сибири.

Контакты:
АО "Ринет"
ОГРН 1025402475856
г. Новосибирск, ул. Якушева, д. 37, 3 этаж
отдел рекламы:
(383) 347-10-50, 347-06-78, 347-22-11, 347-03-97

Редакция: (383) 347-86-84

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

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

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



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


- 夜狼 -
Group Icon


Группа: GNU/Linux
Сообщений: 1 221
Регистрация: 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

 

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

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

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