очистить лист

Юрий Пользователь Сообщений: 747 Регистрация: 03.01.2013	#1 03.01.2013 20:41:30 Добрый вечер .Создал InputBox для создания нового листа . Все работает ,а как очистить созданный лист от данных с предыдущего листа? Спасибо. Прикрепленные файлы пробник.xls (35.5 КБ)

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

03.01.2013 21:01:25

самый простой и правильный путь: один раз создать шаблон листа - с табличкой,. заголовками, формулами, но без данных.
а по кнопке будете создавать новый лист на основе этого шаблона.

но, если оч. хочется - то можно и как у вас - на основе текущего листа с последующей очисткой.
кстати, команда очистки в вашем файле записана макрорекодером - в макросе 2.

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

Gustav

Пользователь

Сообщений: 54 Регистрация: 21.12.2012

03.01.2013 21:02:09

У Вас же там в Module1 есть весь необходимый "строительный материал". Как-то так:

Код

1	`Range("A6:D22").ClearContents`

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

03.01.2013 21:07:07

Или так:

Код

Sheets(Sheets.Count).Name = a
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Sheets(a).Range(Sheets(a).Cells(6, 1), Sheets(a).Cells(LastRow + 1, 4)).ClearContents
End Sub

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 03.01.2013 21:26:12 Подозреваю, что следующим вопросом будет: "Как удалить кнопку?"

Юрий Пользователь Сообщений: 747 Регистрация: 03.01.2013	#6 03.01.2013 21:42:10 Всем спасибо за помощь. Кнопку пока удалять не планирую:D

Читают тему