Очистка столбцов в 2ух листах (без первой строки)
BTH
Дата: Пятница, 06.10.2017, 08:42 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
Добрый день. Ваш форум мне очень помог! Но хочу чтобы код был удобным, считаю, что это возможно сделать общаясь со специалистами! Предварительно поискал информацию в интернете по этому вопросу, но не нашел. Поискал в темах, вот никак. По этому обращаюсь к вам. Тема то вроде простая.Вопрос: можно ли полностью очищать столбцы с любыми данными макросом: в листе1-"А" "B" "D", в листе2-"A" "B"?Условия: 1) Нужно сохранить 1ую строку. 1) Желательно одновременное удаление с 2ух листов одним нажатием на кнопку. 2) Чтобы можно было очищать вниз до бесконечности, т.к. я вставляю в эту таблицу разное количество людей(от 2-3, до тысячи и больше).
Добрый день. Ваш форум мне очень помог! Но хочу чтобы код был удобным, считаю, что это возможно сделать общаясь со специалистами! Предварительно поискал информацию в интернете по этому вопросу, но не нашел. Поискал в темах, вот никак. По этому обращаюсь к вам. Тема то вроде простая.Вопрос: можно ли полностью очищать столбцы с любыми данными макросом: в листе1-"А" "B" "D", в листе2-"A" "B"?Условия: 1) Нужно сохранить 1ую строку. 1) Желательно одновременное удаление с 2ух листов одним нажатием на кнопку. 2) Чтобы можно было очищать вниз до бесконечности, т.к. я вставляю в эту таблицу разное количество людей(от 2-3, до тысячи и больше).BTH
BlackTeaHappy
Ответить
Сообщение Добрый день. Ваш форум мне очень помог! Но хочу чтобы код был удобным, считаю, что это возможно сделать общаясь со специалистами! Предварительно поискал информацию в интернете по этому вопросу, но не нашел. Поискал в темах, вот никак. По этому обращаюсь к вам. Тема то вроде простая.Вопрос: можно ли полностью очищать столбцы с любыми данными макросом: в листе1-"А" "B" "D", в листе2-"A" "B"?Условия: 1) Нужно сохранить 1ую строку. 1) Желательно одновременное удаление с 2ух листов одним нажатием на кнопку. 2) Чтобы можно было очищать вниз до бесконечности, т.к. я вставляю в эту таблицу разное количество людей(от 2-3, до тысячи и больше).Автор - BTH Дата добавления - 06.10.2017 в 08:42
BTH
Дата: Пятница, 06.10.2017, 08:45 |
Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
Вроде понятно пояснил. Для ещё большей ясности, как я всё это вижу что должно быть в итоге .
Вроде понятно пояснил. Для ещё большей ясности, как я всё это вижу что должно быть в итоге . BTH
BlackTeaHappy
Ответить
Сообщение Вроде понятно пояснил. Для ещё большей ясности, как я всё это вижу что должно быть в итоге . Автор - BTH Дата добавления - 06.10.2017 в 08:45
_Igor_61
Дата: Пятница, 06.10.2017, 08:57 |
Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация:
90
±
Замечаний:
0% ±
Excel 2007
Здравствуйте! См. файл
Ответить
Сообщение Здравствуйте! См. файл Автор - _Igor_61 Дата добавления - 06.10.2017 в 08:57
InExSu
Дата: Пятница, 06.10.2017, 09:00 |
Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
привет! и так: [vba]Код
Sub InExSu_ТаблицуБезЗаголовков() On Error Resume Next For Each sh In Sheets Set tbl = sh.UsedRange tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Clear Next MsgBox "Макрос " & "InExSu" & " завершил работу" End Sub
[/vba]
привет! и так: [vba]Код
Sub InExSu_ТаблицуБезЗаголовков() On Error Resume Next For Each sh In Sheets Set tbl = sh.UsedRange tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Clear Next MsgBox "Макрос " & "InExSu" & " завершил работу" End Sub
[/vba] InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Сообщение отредактировал InExSu - Пятница, 06.10.2017, 12:29
Ответить
Сообщение привет! и так: [vba]Код
Sub InExSu_ТаблицуБезЗаголовков() On Error Resume Next For Each sh In Sheets Set tbl = sh.UsedRange tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Clear Next MsgBox "Макрос " & "InExSu" & " завершил работу" End Sub
[/vba] Автор - InExSu Дата добавления - 06.10.2017 в 09:00
BTH
Дата: Пятница, 06.10.2017, 09:11 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
"A2:A60000" здесь получается мы диапазон ставим, а не бесконечность? Так то да, у меня максимум получалось до 2500 строк задействовать.)) Этого диапазона будет достаточно. Спасибо большое, всё сработало! PS Что то я не могу поднимать репутацию
"A2:A60000" здесь получается мы диапазон ставим, а не бесконечность? Так то да, у меня максимум получалось до 2500 строк задействовать.)) Этого диапазона будет достаточно. Спасибо большое, всё сработало! PS Что то я не могу поднимать репутацию BTH
BlackTeaHappy
Сообщение отредактировал BTH - Пятница, 06.10.2017, 09:16
Ответить
Сообщение "A2:A60000" здесь получается мы диапазон ставим, а не бесконечность? Так то да, у меня максимум получалось до 2500 строк задействовать.)) Этого диапазона будет достаточно. Спасибо большое, всё сработало! PS Что то я не могу поднимать репутацию Автор - BTH Дата добавления - 06.10.2017 в 09:11
BTH
Дата: Пятница, 06.10.2017, 09:15 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
Спасибо, так тоже удобно! ) С предыдущим пришлось менять имена листов.
Спасибо, так тоже удобно! ) С предыдущим пришлось менять имена листов.BTH
BlackTeaHappy
Ответить
Сообщение Спасибо, так тоже удобно! ) С предыдущим пришлось менять имена листов.Автор - BTH Дата добавления - 06.10.2017 в 09:15
BTH
Дата: Пятница, 06.10.2017, 09:17 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
А историю получается не восстановить? об этом я не подумал. Макросы обычно в историю не прописываются?
А историю получается не восстановить? об этом я не подумал. Макросы обычно в историю не прописываются? BTH
BlackTeaHappy
Сообщение отредактировал BTH - Пятница, 06.10.2017, 09:18
Ответить
Сообщение А историю получается не восстановить? об этом я не подумал. Макросы обычно в историю не прописываются? Автор - BTH Дата добавления - 06.10.2017 в 09:17
and_evg
Дата: Пятница, 06.10.2017, 09:33 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 452
Репутация:
78
±
Замечаний:
0% ±
Excel 2007
А историю получается не восстановить?
Если имеете ввиду отмену последних действий, то нет. Действия макросов стандартными свойствами нельзя отменить.
А историю получается не восстановить?
Если имеете ввиду отмену последних действий, то нет. Действия макросов стандартными свойствами нельзя отменить.and_evg
Ответить
Сообщение А историю получается не восстановить?
Если имеете ввиду отмену последних действий, то нет. Действия макросов стандартными свойствами нельзя отменить.Автор - and_evg Дата добавления - 06.10.2017 в 09:33
BTH
Дата: Пятница, 06.10.2017, 10:35 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
Жаль. Спасибо за пояснения. Всем спасибо большое!!! + всем, как смогу!!! Блин, только захотел закрыть тему, у меня ошибка появляется какая-то при применении макроса.
Жаль. Спасибо за пояснения. Всем спасибо большое!!! + всем, как смогу!!! Блин, только захотел закрыть тему, у меня ошибка появляется какая-то при применении макроса.BTH
BlackTeaHappy
Сообщение отредактировал BTH - Пятница, 06.10.2017, 10:38
Ответить
Сообщение Жаль. Спасибо за пояснения. Всем спасибо большое!!! + всем, как смогу!!! Блин, только захотел закрыть тему, у меня ошибка появляется какая-то при применении макроса.Автор - BTH Дата добавления - 06.10.2017 в 10:35
BTH
Дата: Пятница, 06.10.2017, 10:40 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Clear
Вот здесь Run-time error "1004"
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Clear
Вот здесь Run-time error "1004"BTH
BlackTeaHappy
Ответить
Сообщение tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Clear
Вот здесь Run-time error "1004"Автор - BTH Дата добавления - 06.10.2017 в 10:40
InExSu
Дата: Пятница, 06.10.2017, 10:42 |
Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
ошибка появляется какая-то
Пожалуйста, файл.
ошибка появляется какая-то
Пожалуйста, файл.InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение ошибка появляется какая-то
Пожалуйста, файл.Автор - InExSu Дата добавления - 06.10.2017 в 10:42
BTH
Дата: Пятница, 06.10.2017, 11:35 |
Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
Я понял. Ошибка выскакивает когда нет значений в каком-нибудь листе. Я этот макрос вставил в свою форму, файл не прикрепляется...
Я понял. Ошибка выскакивает когда нет значений в каком-нибудь листе. Я этот макрос вставил в свою форму, файл не прикрепляется...BTH
BlackTeaHappy
Сообщение отредактировал BTH - Пятница, 06.10.2017, 11:36
Ответить
Сообщение Я понял. Ошибка выскакивает когда нет значений в каком-нибудь листе. Я этот макрос вставил в свою форму, файл не прикрепляется...Автор - BTH Дата добавления - 06.10.2017 в 11:35
BTH
Дата: Пятница, 06.10.2017, 11:38 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
А, вот тут может)
BlackTeaHappy
Ответить
Сообщение А, вот тут может) Автор - BTH Дата добавления - 06.10.2017 в 11:38
InExSu
Дата: Пятница, 06.10.2017, 12:31 |
Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Ошибка выскакивает когда нет значений
Изменил Сообщение № 4 добавил строку [vba][/vba]
Ошибка выскакивает когда нет значений
Изменил Сообщение № 4 добавил строку [vba][/vba]InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение Ошибка выскакивает когда нет значений
Изменил Сообщение № 4 добавил строку [vba][/vba]Автор - InExSu Дата добавления - 06.10.2017 в 12:31
BTH
Дата: Пятница, 06.10.2017, 13:04 |
Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
Отлично!!! Спасибо вам, выручили! Вот теперь точно можно закрывать тему. PS InExSu , заметил тут, что ваш код чистит вообще всё И даже сравнение таблиц(в условном форматировании которое). В принципе мой запрос был изначально такой. Спасибо, очень пригодиться и такой код. И код _Igor_61 тоже пригодился, т.к. он чистит без удаления сравнения.
Отлично!!! Спасибо вам, выручили! Вот теперь точно можно закрывать тему. PS InExSu , заметил тут, что ваш код чистит вообще всё И даже сравнение таблиц(в условном форматировании которое). В принципе мой запрос был изначально такой. Спасибо, очень пригодиться и такой код. И код _Igor_61 тоже пригодился, т.к. он чистит без удаления сравнения.BTH
BlackTeaHappy
Сообщение отредактировал BTH - Пятница, 06.10.2017, 13:46
Ответить
Сообщение Отлично!!! Спасибо вам, выручили! Вот теперь точно можно закрывать тему. PS InExSu , заметил тут, что ваш код чистит вообще всё И даже сравнение таблиц(в условном форматировании которое). В принципе мой запрос был изначально такой. Спасибо, очень пригодиться и такой код. И код _Igor_61 тоже пригодился, т.к. он чистит без удаления сравнения.Автор - BTH Дата добавления - 06.10.2017 в 13:04
BTH
Дата: Пятница, 06.10.2017, 13:52 |
Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация:
-1
±
Замечаний:
0% ±
Excel 2007
Хотя я так и не понял, иногда оставляет сохранение "условного форматирования". Фиг знает, это уже не в эту тему.) Спасибо ещё раз!
Хотя я так и не понял, иногда оставляет сохранение "условного форматирования". Фиг знает, это уже не в эту тему.) Спасибо ещё раз! BTH
BlackTeaHappy
Ответить
Сообщение Хотя я так и не понял, иногда оставляет сохранение "условного форматирования". Фиг знает, это уже не в эту тему.) Спасибо ещё раз! Автор - BTH Дата добавления - 06.10.2017 в 13:52