фильтрация таблицы макросом по дате - Microsoft Office Excel

brans · 30.11.2010, 19:49

Добрый всем вечер!!!! Посмотрите, пожалуйста файл... нужно сделать фильрацию с помощью макроса по дате... делала через запись макроса и всё получалось, а когда кнопке 27 на листе ВЫЗОВЫ присвоила макрос 4, то при нажатии овё очищается.... подскажите пожалуйста в чём ошибка?

doober · 30.11.2010, 19:54

Так это не ваша работа

brans · 30.11.2010, 19:57

Цитата:

Сообщение от doober

Так это не ваша работа

да, я и не скрываю, что не моя... пришла подруга за помощью, а тут и я разобраться не могу.... очень интересно в чём ошибка и не более... или это запретно иметь интерес к ошибкам???? я уже по-разному пробовала делать эту фильтрацию и не в какую((((( Подскажите, в чём дело?

doober · 30.11.2010, 20:01

Да вы вспыльчивая

Код:

Sub Макрос4()

'
' Макрос4 Макрос
'

'
    Sheets("ВЫЗОВЫ").Range("A5:H71").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("ВЫЗОВЫ").Range( _
        "J7:K7"), CopyToRange:=Sheets("ВЫЗОВЫ").Range("J9:Q9"), Unique:=False
End Sub

brans · 30.11.2010, 20:03

Цитата:

Сообщение от doober

Код:

Sub Макрос4()
Attribute Макрос4.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Макрос4 Макрос
'

'
    Sheets("ВЫЗОВЫ").Range("A5:H71").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("ВЫЗОВЫ").Range( _
        "J7:K7"), CopyToRange:=Sheets("ВЫЗОВЫ").Range("J9:Q9"), Unique:=False
End Sub

и всё???? так просто???

brans · 30.11.2010, 20:05

поверить не могу!!!! работает!!!! Вы-гений!!!! Спасибо!!!!

doober · 30.11.2010, 20:07

результат не проверял,но заметил-не правильно указан диапазон для фильтра.Далее смотрите сами.Я такой метод не применяю

30.11.2010, 19:54	#2
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Так это не ваша работа Анализ,обработка данных Недорого

30.11.2010, 20:01	#4
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Да вы вспыльчивая Код: `Sub Макрос4() ' ' Макрос4 Макрос ' ' Sheets("ВЫЗОВЫ").Range("A5:H71").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("ВЫЗОВЫ").Range( _ "J7:K7"), CopyToRange:=Sheets("ВЫЗОВЫ").Range("J9:Q9"), Unique:=False End Sub` Анализ,обработка данных Недорого Последний раз редактировалось doober; 30.11.2010 в 20:03.

30.11.2010, 20:07	#7
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	результат не проверял,но заметил-не правильно указан диапазон для фильтра.Далее смотрите сами.Я такой метод не применяю Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Фильтрация по дате в ADO	AlexSol.BY	Помощь студентам	5	07.12.2010 10:32
Фильтрация по дате в запросе	Santosh	Microsoft Office Access	1	18.08.2010 01:04
фильтрация по текущей дате	ahvahsky2008	БД в Delphi	5	04.05.2010 05:30
Фильтрация по текущей дате	DimOn4Ik	БД в Delphi	4	25.04.2010 21:48
Фильтрация Query по дате	Riddick	Помощь студентам	3	10.11.2008 20:35

30.11.2010, 20:05	#6
brans Форумчанин Регистрация: 15.10.2010 Сообщений: 105	поверить не могу!!!! работает!!!! Вы-гений!!!! Спасибо!!!!