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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматический перенос данных динамического диапазона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматический перенос данных динамического диапазона (Формулы/Formulas)
Автоматический перенос данных динамического диапазона
slipmaxim Дата: Вторник, 04.07.2017, 19:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Помогите решить такую задачу... Имеется таблица (умная) на листе 1 (название листа является датой) в таблице периодически добавляются либо убираются строки. Внимание вопрос: как сделать так, чтоб при нажатии на кнопку (наверное макрос), при завершении заполнения таблицы, создавался новый лист с названием следующей даты месяца, переносом на него такой же таблицы (пустой) и данных с первых трёх столбцов уже заполненной. Надеюсь на вашу помощь
К сообщению приложен файл: 2174300.xlsx (16.1 Kb)
 
Ответить
СообщениеПомогите решить такую задачу... Имеется таблица (умная) на листе 1 (название листа является датой) в таблице периодически добавляются либо убираются строки. Внимание вопрос: как сделать так, чтоб при нажатии на кнопку (наверное макрос), при завершении заполнения таблицы, создавался новый лист с названием следующей даты месяца, переносом на него такой же таблицы (пустой) и данных с первых трёх столбцов уже заполненной. Надеюсь на вашу помощь

Автор - slipmaxim
Дата добавления - 04.07.2017 в 19:38
_Igor_61 Дата: Среда, 05.07.2017, 06:02 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте! Если правильно понял:
К сообщению приложен файл: slipmaxim_1.xlsm (22.2 Kb)
 
Ответить
СообщениеЗдравствуйте! Если правильно понял:

Автор - _Igor_61
Дата добавления - 05.07.2017 в 06:02
slipmaxim Дата: Среда, 05.07.2017, 08:25 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Да, именно то, что нужно, огромное спасибо!!!! Извините за наглость, но возможно ли к этой кнопке привязать ещё перенос в 4 столбец нового листа данных из последнего столбца текущего?
 
Ответить
СообщениеДа, именно то, что нужно, огромное спасибо!!!! Извините за наглость, но возможно ли к этой кнопке привязать ещё перенос в 4 столбец нового листа данных из последнего столбца текущего?

Автор - slipmaxim
Дата добавления - 05.07.2017 в 08:25
slipmaxim Дата: Среда, 05.07.2017, 09:26 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Igor_61, Да, именно то, что нужно, огромное спасибо!!!! Извините за наглость, но возможно ли к этой кнопке привязать ещё перенос в 4 столбец нового листа данных из последнего столбца текущего? А так же при нажатии на кнопку не переносятся формулы...
 
Ответить
Сообщение_Igor_61, Да, именно то, что нужно, огромное спасибо!!!! Извините за наглость, но возможно ли к этой кнопке привязать ещё перенос в 4 столбец нового листа данных из последнего столбца текущего? А так же при нажатии на кнопку не переносятся формулы...

Автор - slipmaxim
Дата добавления - 05.07.2017 в 09:26
slipmaxim Дата: Среда, 05.07.2017, 09:28 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
прикрепил файл с формулами
К сообщению приложен файл: 2329633.xlsm (22.5 Kb)
 
Ответить
Сообщениеприкрепил файл с формулами

Автор - slipmaxim
Дата добавления - 05.07.2017 в 09:28
sboy Дата: Среда, 05.07.2017, 11:10 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
slipmaxim, Чуть подправил макрос от _Igor_61
Проверяйте.
[vba]
Код
Option Explicit

Sub New_Sheets()
    Dim iName_ As String
    Dim sh As Worksheet
    Dim x
    Dim lr
    Set sh = ActiveSheet
    iName_ = CDate(sh.Name) + 1
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    x = Range("AB5:AB" & lr).Value
    sh.Copy After:=Sheets(sh.Index)
    ActiveSheet.Name = iName_
    Range("D5:D" & lr).Value = x
    Range("E5:AB" & lr).ClearContents
End Sub
[/vba]
К сообщению приложен файл: 8819468.xlsm (27.9 Kb)


Яндекс: 410016850021169
 
Ответить
Сообщениеslipmaxim, Чуть подправил макрос от _Igor_61
Проверяйте.
[vba]
Код
Option Explicit

Sub New_Sheets()
    Dim iName_ As String
    Dim sh As Worksheet
    Dim x
    Dim lr
    Set sh = ActiveSheet
    iName_ = CDate(sh.Name) + 1
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    x = Range("AB5:AB" & lr).Value
    sh.Copy After:=Sheets(sh.Index)
    ActiveSheet.Name = iName_
    Range("D5:D" & lr).Value = x
    Range("E5:AB" & lr).ClearContents
End Sub
[/vba]

Автор - sboy
Дата добавления - 05.07.2017 в 11:10
slipmaxim Дата: Среда, 05.07.2017, 12:09 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, всё работает, только формулы из последних трёх колонок не переносит на следующий лист(
 
Ответить
Сообщениеsboy, всё работает, только формулы из последних трёх колонок не переносит на следующий лист(

Автор - slipmaxim
Дата добавления - 05.07.2017 в 12:09
sboy Дата: Среда, 05.07.2017, 12:20 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
slipmaxim, в последней строке макроса замените АВ на Y
[vba]
Код
Range("E5:Y" & lr).ClearContents
[/vba]


Яндекс: 410016850021169
 
Ответить
Сообщениеslipmaxim, в последней строке макроса замените АВ на Y
[vba]
Код
Range("E5:Y" & lr).ClearContents
[/vba]

Автор - sboy
Дата добавления - 05.07.2017 в 12:20
slipmaxim Дата: Среда, 05.07.2017, 12:58 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, ЗАРАБОТАЛО!!!! Спасибо Вам обоим, есть ещё ЛЮДИ...
 
Ответить
Сообщениеsboy, ЗАРАБОТАЛО!!!! Спасибо Вам обоим, есть ещё ЛЮДИ...

Автор - slipmaxim
Дата добавления - 05.07.2017 в 12:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматический перенос данных динамического диапазона (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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