Удаление значений по фильтру с использованием макроса

Автор sergo44441, 07.07.2014, 12:37

« назад - далее »

sergo44441

Добрый день, уважаемые знатоки.
Необходимо объединить данные из файлов в папке. Процедура проводится регулярно. Хочу сделать так, чтобы проводилось обновление данных за определенную неделю (вводим ее с клавиатуры, данные за введенную неделю удалялись бы, затем бы добавлялась новая информация.
На примере прикрепленного файла прошу помочь с процедурой удаления.
Макрос должен запрашивать название обновляемой недели, ставить _автофильтр_, по полю неделя выделять значения, соответствующие введенной неделе, и удалять их, далее очищать фильтр.
Не торопись, и все успеешь намного быстрее

RAN

#1
Sub Мяу()
    Dim sInput$
    sInput = InputBox("Выбор недели")
    With Sheets(1)
        With .Range(.Cells(2, "C"), .Cells(.Rows.Count, "A").End(xlUp))
            .AutoFilter Field:=3, Criteria1:=sInput
            .ClearContents
            .AutoFilter Field:=3
        End With
    End With
End Sub



Жаль, что нам так и не удалось заслушать начальника транспортного цеха.
Удалить ответ, что ли?