Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление данных после 45-ой строки. Изменение макроса. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление данных после 45-ой строки. Изменение макроса. (Формулы/Formulas)
Удаление данных после 45-ой строки. Изменение макроса.
DrMini Дата: Четверг, 20.04.2017, 10:28 | Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Доброго времени суток.
Уважаемые гуру подскажите пожалуйста, как подправить макрос и сделать так, что бы при нажатии на кнопку "Добавить статьи расходов" после строки 45 всё стиралось и заполнялось бы вновь. А в идеале при помощи одной кнопки "Добавить статьи расходов" после строки 45 (на всех листах (кроме РЕМОНТ, СВОДКА, ОТЧЁТ, АДРЕС)) всё стиралось и заполнялось вновь.
К сообщению приложен файл: DrMINI-5.rar (24.4 Kb)
 
Ответить
СообщениеДоброго времени суток.
Уважаемые гуру подскажите пожалуйста, как подправить макрос и сделать так, что бы при нажатии на кнопку "Добавить статьи расходов" после строки 45 всё стиралось и заполнялось бы вновь. А в идеале при помощи одной кнопки "Добавить статьи расходов" после строки 45 (на всех листах (кроме РЕМОНТ, СВОДКА, ОТЧЁТ, АДРЕС)) всё стиралось и заполнялось вновь.
Автор - DrMini
Дата добавления - 20.04.2017 в 10:28
Wasilich Дата: Четверг, 20.04.2017, 11:12 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
В макросе [vba]
Код
Sub СтатьиРасходов()
[/vba] после строки [vba]
Код
With Sheets("ОТЧЁТ")
[/vba] добавьте строку [vba]
Код
Range("A46:B1000").Clear
[/vba]
При нажатии на кнопку "Добавить статьи расходов" сейчас используется один макрос, работающий с активным листом.
Для того, что бы
Цитата DrMini, 20.04.2017 в 10:28, в сообщении № 1 ()
в идеале при помощи одной кнопки
сбросить данные сразу на все листы, надо писать макрос с перебором всех листов исключая листы
Цитата DrMini, 20.04.2017 в 10:28, в сообщении № 1 ()
РЕМОНТ, СВОДКА, ОТЧЁТ, АДРЕС


Сообщение отредактировал Wasilich - Четверг, 20.04.2017, 11:23
 
Ответить
СообщениеВ макросе [vba]
Код
Sub СтатьиРасходов()
[/vba] после строки [vba]
Код
With Sheets("ОТЧЁТ")
[/vba] добавьте строку [vba]
Код
Range("A46:B1000").Clear
[/vba]
При нажатии на кнопку "Добавить статьи расходов" сейчас используется один макрос, работающий с активным листом.
Для того, что бы
Цитата DrMini, 20.04.2017 в 10:28, в сообщении № 1 ()
в идеале при помощи одной кнопки
сбросить данные сразу на все листы, надо писать макрос с перебором всех листов исключая листы
Цитата DrMini, 20.04.2017 в 10:28, в сообщении № 1 ()
РЕМОНТ, СВОДКА, ОТЧЁТ, АДРЕС
Автор - Wasilich
Дата добавления - 20.04.2017 в 11:12
Wasilich Дата: Четверг, 20.04.2017, 11:29 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Модераторы, перенесите пож. тему в Вопросы по VBA.
 
Ответить
СообщениеМодераторы, перенесите пож. тему в Вопросы по VBA.
Автор - Wasilich
Дата добавления - 20.04.2017 в 11:29
DrMini Дата: Четверг, 20.04.2017, 11:35 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Wasilich, 20.04.2017 в 11:12, в сообщении № 2 ()
добавьте строку

Код
Range("A46:B1000").Clear

После этого сбивается форматирование в ячейках (меняется шрифт на Arial и размер шрифта, выключка. После запятой появляются 4 цифры)


Сообщение отредактировал DrMini - Четверг, 20.04.2017, 11:36
 
Ответить
Сообщение
Цитата Wasilich, 20.04.2017 в 11:12, в сообщении № 2 ()
добавьте строку

Код
Range("A46:B1000").Clear

После этого сбивается форматирование в ячейках (меняется шрифт на Arial и размер шрифта, выключка. После запятой появляются 4 цифры)
Автор - DrMini
Дата добавления - 20.04.2017 в 11:35
_Boroda_ Дата: Четверг, 20.04.2017, 11:42 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Тогда ClearContents

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТогда ClearContents
Автор - _Boroda_
Дата добавления - 20.04.2017 в 11:42
Wasilich Дата: Четверг, 20.04.2017, 11:45 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Тогда так
[vba]
Код
Range("A46:B1000").ClearContents
Range("A46:B1000").Borders.LineStyle = xlNone
[/vba]
 
Ответить
СообщениеТогда так
[vba]
Код
Range("A46:B1000").ClearContents
Range("A46:B1000").Borders.LineStyle = xlNone
[/vba]
Автор - Wasilich
Дата добавления - 20.04.2017 в 11:45
DrMini Дата: Четверг, 20.04.2017, 11:49 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата _Boroda_, 20.04.2017 в 11:42, в сообщении № 5 ()
ClearContents

Всё работает но, так, как количество строк на будущий год может быть меньше то остаются границы ячеек если информации меньше и их придётся удалять опять вручную.
 
Ответить
Сообщение
Цитата _Boroda_, 20.04.2017 в 11:42, в сообщении № 5 ()
ClearContents

Всё работает но, так, как количество строк на будущий год может быть меньше то остаются границы ячеек если информации меньше и их придётся удалять опять вручную.
Автор - DrMini
Дата добавления - 20.04.2017 в 11:49
DrMini Дата: Четверг, 20.04.2017, 11:52 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата DrMini, 20.04.2017 в 11:49, в сообщении № 7 ()
Тогда так

Да то, что надо. СПАСИБО!
 
Ответить
Сообщение
Цитата DrMini, 20.04.2017 в 11:49, в сообщении № 7 ()
Тогда так

Да то, что надо. СПАСИБО!
Автор - DrMini
Дата добавления - 20.04.2017 в 11:52
DrMini Дата: Четверг, 20.04.2017, 11:54 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Wasilich, Может на досуге в перерывах между дачными делами напишите макрос с перебором всех листов? Ещё раз спасибо.
 
Ответить
СообщениеWasilich, Может на досуге в перерывах между дачными делами напишите макрос с перебором всех листов? Ещё раз спасибо.
Автор - DrMini
Дата добавления - 20.04.2017 в 11:54
Wasilich Дата: Четверг, 20.04.2017, 11:59 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата DrMini, 20.04.2017 в 11:54, в сообщении № 9 ()
Может на досуге в перерывах
Может, я ж на форуме не один. :'( :)
 
Ответить
Сообщение
Цитата DrMini, 20.04.2017 в 11:54, в сообщении № 9 ()
Может на досуге в перерывах
Может, я ж на форуме не один. :'( :)
Автор - Wasilich
Дата добавления - 20.04.2017 в 11:59
DrMini Дата: Четверг, 20.04.2017, 12:02 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Wasilich, 20.04.2017 в 11:59, в сообщении № 10 ()
Может, я ж на форуме не один.

Просто это Ваше детище. Вам и объяснять ничего не надо. Хотя я не откажусь от любой помощи. Спасибо что Вы есть.
 
Ответить
Сообщение
Цитата Wasilich, 20.04.2017 в 11:59, в сообщении № 10 ()
Может, я ж на форуме не один.

Просто это Ваше детище. Вам и объяснять ничего не надо. Хотя я не откажусь от любой помощи. Спасибо что Вы есть.
Автор - DrMini
Дата добавления - 20.04.2017 в 12:02
_Boroda_ Дата: Четверг, 20.04.2017, 12:08 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вариант с копированием формата из строки 25
Ну и заодно и цикл по листам. Макрос отрабатывает в тех листах, где в ячейке А2 написано "ОТЧЕТ"
К сообщению приложен файл: DrMINI-4_1.xlsb (63.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВариант с копированием формата из строки 25
Ну и заодно и цикл по листам. Макрос отрабатывает в тех листах, где в ячейке А2 написано "ОТЧЕТ"
Автор - _Boroda_
Дата добавления - 20.04.2017 в 12:08
DrMini Дата: Четверг, 20.04.2017, 13:14 | Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
_Александр_, макрос работает не так, как надо. Он начинает считать с первого листа и на каждом листе увеличивает числа на 2. А надо, что бы считал для каждого листа отдельно. Кнопку "Добавить статьи расходов" можно сделать одну. Ну например на листе "ОТЧЁТ" . А на всех остальных её убрать.
 
Ответить
Сообщение_Александр_, макрос работает не так, как надо. Он начинает считать с первого листа и на каждом листе увеличивает числа на 2. А надо, что бы считал для каждого листа отдельно. Кнопку "Добавить статьи расходов" можно сделать одну. Ну например на листе "ОТЧЁТ" . А на всех остальных её убрать.
Автор - DrMini
Дата добавления - 20.04.2017 в 13:14
Wasilich Дата: Четверг, 20.04.2017, 13:16 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата DrMini, 20.04.2017 в 11:54, в сообщении № 9 ()
макрос с перебором всех листов

Это вроде как, другая тема.
 
Ответить
Сообщение
Цитата DrMini, 20.04.2017 в 11:54, в сообщении № 9 ()
макрос с перебором всех листов

Это вроде как, другая тема.
Автор - Wasilich
Дата добавления - 20.04.2017 в 13:16
DrMini Дата: Четверг, 20.04.2017, 13:17 | Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Wasilich, 20.04.2017 в 13:16, в сообщении № 14 ()
Это вроде как, другая тема.

Прошу прощения. Сейчас создам.
 
Ответить
Сообщение
Цитата Wasilich, 20.04.2017 в 13:16, в сообщении № 14 ()
Это вроде как, другая тема.

Прошу прощения. Сейчас создам.
Автор - DrMini
Дата добавления - 20.04.2017 в 13:17
_Boroda_ Дата: Четверг, 20.04.2017, 13:23 | Сообщение № 16
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Михаил, ну конечно же я вообще не смотрел, как Ваш макрос работает. Просто добавил цикл по листам, удаление и форматирование.
Сейчас посмотрите, так?
А кнопку сделайте где хотите.

Цитата Wasilich, 20.04.2017 в 13:16, в сообщении № 14 ()
Это вроде как, другая тема.

Почему? В самом первом посте как раз об этом и говорилось
К сообщению приложен файл: DrMINI-4_1_1.xlsb (63.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМихаил, ну конечно же я вообще не смотрел, как Ваш макрос работает. Просто добавил цикл по листам, удаление и форматирование.
Сейчас посмотрите, так?
А кнопку сделайте где хотите.

Цитата Wasilich, 20.04.2017 в 13:16, в сообщении № 14 ()
Это вроде как, другая тема.

Почему? В самом первом посте как раз об этом и говорилось
Автор - _Boroda_
Дата добавления - 20.04.2017 в 13:23
DrMini Дата: Четверг, 20.04.2017, 13:29 | Сообщение № 17
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Wasilich, Я даже создать другую тему не успел.
 
Ответить
СообщениеWasilich, Я даже создать другую тему не успел.
Автор - DrMini
Дата добавления - 20.04.2017 в 13:29
DrMini Дата: Четверг, 20.04.2017, 13:29 | Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
_Александр_, Спасибо. Всё работает.
 
Ответить
Сообщение_Александр_, Спасибо. Всё работает.
Автор - DrMini
Дата добавления - 20.04.2017 в 13:29
Wasilich Дата: Четверг, 20.04.2017, 14:04 | Сообщение № 19
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата _Boroda_, 20.04.2017 в 13:23, в сообщении № 16 ()
В самом первом посте как раз об этом и говорилось
:)
Ну тогда вот и мой макрос. Посмотреть xlsb не могу.


Сообщение отредактировал Wasilich - Четверг, 20.04.2017, 14:07
 
Ответить
Сообщение
Цитата _Boroda_, 20.04.2017 в 13:23, в сообщении № 16 ()
В самом первом посте как раз об этом и говорилось
:)
Ну тогда вот и мой макрос. Посмотреть xlsb не могу.
Автор - Wasilich
Дата добавления - 20.04.2017 в 14:04
DrMini Дата: Четверг, 20.04.2017, 15:29 | Сообщение № 20
Группа: Друзья
Ранг: Старожил
Сообщений: 1672
Репутация: 226 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Wasilich, 20.04.2017 в 14:04, в сообщении № 19 ()
Ну тогда вот и мой макрос.

Работает быстро. Без мерцаний экрана. Плюс я оставил пересчёт на каждой странице в отдельности. ещё раз СПАСИБО. Это было гениально.


Сообщение отредактировал DrMini - Четверг, 20.04.2017, 15:29
 
Ответить
Сообщение
Цитата Wasilich, 20.04.2017 в 14:04, в сообщении № 19 ()
Ну тогда вот и мой макрос.

Работает быстро. Без мерцаний экрана. Плюс я оставил пересчёт на каждой странице в отдельности. ещё раз СПАСИБО. Это было гениально.
Автор - DrMini
Дата добавления - 20.04.2017 в 15:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление данных после 45-ой строки. Изменение макроса. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!