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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматическое создание нового листа c копированием данных (Формулы/Formulas)
Автоматическое создание нового листа c копированием данных
brewer Дата: Четверг, 21.06.2018, 14:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Знатоки подскажите, как можно сделать, что бы автоматически создавался новый лист по графику (к примеру в 6 утра, или наступлении новой даты) и при этом данные из столбца C переносились в столбец А

Подробнее : Есть таблица(прилагается), где столбцы T U V остаток на утро, W X Y Z AA AB поступление в течении дня, AC AD AE итог на вечер. Нужно, что бы с утра был новый лист (наименованием даты создания) копия предыдущего с остатками вчерашнего дня в столбцах T U V, а столцы W X Y Z AA AB обнулены. Если лист с текущей датой уже есть то создавать копию не нужно. Можно так сделать?

Заранее спасибо
К сообщению приложен файл: ___.xls (99.5 Kb)
 
Ответить
СообщениеЗнатоки подскажите, как можно сделать, что бы автоматически создавался новый лист по графику (к примеру в 6 утра, или наступлении новой даты) и при этом данные из столбца C переносились в столбец А

Подробнее : Есть таблица(прилагается), где столбцы T U V остаток на утро, W X Y Z AA AB поступление в течении дня, AC AD AE итог на вечер. Нужно, что бы с утра был новый лист (наименованием даты создания) копия предыдущего с остатками вчерашнего дня в столбцах T U V, а столцы W X Y Z AA AB обнулены. Если лист с текущей датой уже есть то создавать копию не нужно. Можно так сделать?

Заранее спасибо

Автор - brewer
Дата добавления - 21.06.2018 в 14:01
brewer Дата: Четверг, 21.06.2018, 15:09 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Если у кого похожая ситуация, вот такой вариант подойдет.

[vba]
Код
Private Sub Workbook_Open()
Dim sh As Worksheet
Dim D As String
D = Format(Date, "DD.MM")
For Each sh In Worksheets
If sh.Name = D Then Exit Sub
Next
MsgBox "Сейчас будет добавлен новый лист """ & D & """", vbInformation ' вывод сообщения можно закомментировать
Sheets(Format(Date - 1, "DD.MM")).Copy After:=Sheets(Format(Date - 1, "DD.MM"))
Set sh = Sheets(Sheets(Format(Date - 1, "DD.MM")).Index + 1)
With sh
.Name = D
.Range("T5:V18").Value = .Range("AC5:AE18").Value
.Range("W5:AB18").Value = 0
End With
End Sub
[/vba]
 
Ответить
СообщениеЕсли у кого похожая ситуация, вот такой вариант подойдет.

[vba]
Код
Private Sub Workbook_Open()
Dim sh As Worksheet
Dim D As String
D = Format(Date, "DD.MM")
For Each sh In Worksheets
If sh.Name = D Then Exit Sub
Next
MsgBox "Сейчас будет добавлен новый лист """ & D & """", vbInformation ' вывод сообщения можно закомментировать
Sheets(Format(Date - 1, "DD.MM")).Copy After:=Sheets(Format(Date - 1, "DD.MM"))
Set sh = Sheets(Sheets(Format(Date - 1, "DD.MM")).Index + 1)
With sh
.Name = D
.Range("T5:V18").Value = .Range("AC5:AE18").Value
.Range("W5:AB18").Value = 0
End With
End Sub
[/vba]

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

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