Макрос фильтра по датам

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос фильтра по датам (Макросы/Sub)

spawnloko

Дата: Четверг, 20.03.2014, 13:22 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток!
Прошу помочь мне с макросом. Суть проблемы в следующем.

Есть разные даты (в столбце G), по разным критериям нужно будет делать сводные таблицы. Конкретно данный макрос должен фильтровать даты, т.е. в ячейках J3 и K3 пользователь выбирает нужные даты, макрос оставляет в таблицы значения с этой датой (далее по оставшимся данным строится pivot, но сейчас не об этом). Я попытался написать код, но проблема возникает при фильтровке - выдает ошибку, уже битый час не могу разобраться в чем дело.

Сам код и обрезанный файл прикрепляю. Помогите, пожалуйста, кто может. Спасибо!

[vba]

Код

Sub дата()

Application.ScreenUpdating = False

If Range("J3").Value = 0 Or Range("K3").Value = 0 Then
MsgBox "Выберите дату", vbCritical, "Предупреждение"
Exit Sub
End If

With Sheets("TR_REPORT")
.Select
.Copy After:=Sheets(Sheets.Count)
End With

c1 = ">=" & Range("J3").Value2
c2 = "<=" & Range("K3").Value2

Range("G:G").AutoFilter Criteria1:=c1, Operator:=xlAnd, Criteria2:=c2

Application.ScreenUpdating = True

End Sub

[/vba]