Кнопка сброс

[36,6]

Добрый день люди добрые !!! Помогите пожалуйста медикам.
Умею пользоваться Excel как пользователь. Есть таблица со значениями лекарств надо создать кнопку сброса (Кнопку я создал) что бы при нажати все значения кроме 1-го листа на всех листах сбрасывались Для примера даю файл с тремя листиками. Сделайте макрос для него дальше думаю разберусь
Огромное спасибо
Очень жду ответа

[IgorGO]

см. вложение

[motorway]

Что-то кнопочка не работает у Вас... или просто это для примера?

[IgorGO]

у обоих?
у меня жми, не жми - кнопка не работает пока я банку варенья не сьем
(С) Карлсон

[36,6]

вы конечно извините меня за мой критинизм , но кнопка не работает
что-то не так или я не понимаю что-то

[motorway]

Главное - код есть в редакторе (Alt+F11), а присвоить его кнопке не так сложно.

[Hugo121]

Скачал, запустил, нажал - жёлтые очищаются.
Конечно, сперва туда нужно что-то записать.
Я уникален?

P.S. Посмотрел код - белые тоже очищаются, если данные в ячейках не ниже, чем последние данные в жёлтых, т.к. последняя строка по столбцу A определяется.

Тогда может лучше так (тёзка, извини ):

Sub ClearLists()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "лист 1" Then

            With sh.UsedRange
            If .Rows.Count >= 4 Then .Resize(.Rows.Count - 4).Offset(4).ClearContents
            End With

        End If
    Next
End Sub

Добавил две степени защиты

[36,6]

Спасибо всем всё просто супер

[IgorGO]

"НЕ ВОЗРАЖАЮ"

IgorGO