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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание нового листа с имени по выделенной ячейке (Макросы/Sub)
Создание нового листа с имени по выделенной ячейке
elo4ka07 Дата: Четверг, 03.09.2015, 07:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Суть работы в том, что есть база номеров товаров, которая пополняется и по каждому номеру должен создаваться новый лист с таблицей по единому шаблону. Я сделала кнопку по которой создается новый лист с таблицей, но никак не получается сделать автоматическое присвоение новому листу имени по последнему вводимому номеру товара.
Код создания листа:
[vba]
Код
Sub Кнопка2_Щелчок()
With Application.Workbooks.Item("Primer.xlsm")
Sheets("Test").Copy , after:=Sheets("Лист1")
ActiveSheet.Name = x
End With
End Sub
[/vba]

Вывод данных для имени листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
x = Cells(Target.Row, Target.Column).Value
End Sub
[/vba]
К сообщению приложен файл: Primer.xlsm (79.1 Kb)


Сообщение отредактировал Serge_007 - Четверг, 03.09.2015, 08:00
 
Ответить
СообщениеСуть работы в том, что есть база номеров товаров, которая пополняется и по каждому номеру должен создаваться новый лист с таблицей по единому шаблону. Я сделала кнопку по которой создается новый лист с таблицей, но никак не получается сделать автоматическое присвоение новому листу имени по последнему вводимому номеру товара.
Код создания листа:
[vba]
Код
Sub Кнопка2_Щелчок()
With Application.Workbooks.Item("Primer.xlsm")
Sheets("Test").Copy , after:=Sheets("Лист1")
ActiveSheet.Name = x
End With
End Sub
[/vba]

Вывод данных для имени листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
x = Cells(Target.Row, Target.Column).Value
End Sub
[/vba]
Автор - elo4ka07
Дата добавления - 03.09.2015 в 07:56
anvg Дата: Четверг, 03.09.2015, 08:13 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток
Если по активной ячейке листа с кнопкой, то так
[vba]
Код
Sub Кнопка2_Щелчок()
     With Application.Workbooks.Item("Primer.xlsm")
         If (ActiveCell.Column = 1) And (Not IsEmpty(ActiveCell.Value)) Then
             x = ActiveCell.Value
             Sheets("Test").Copy , after:=Sheets("Лист1")
             ActiveSheet.Name = x
         End If
     End With
End Sub
[/vba]
Что вы подразумеваете под "последний вводимый номер товара" - последнюю с низу заполненную ячейку столбца А листа "Лист1"?
 
Ответить
СообщениеДоброе время суток
Если по активной ячейке листа с кнопкой, то так
[vba]
Код
Sub Кнопка2_Щелчок()
     With Application.Workbooks.Item("Primer.xlsm")
         If (ActiveCell.Column = 1) And (Not IsEmpty(ActiveCell.Value)) Then
             x = ActiveCell.Value
             Sheets("Test").Copy , after:=Sheets("Лист1")
             ActiveSheet.Name = x
         End If
     End With
End Sub
[/vba]
Что вы подразумеваете под "последний вводимый номер товара" - последнюю с низу заполненную ячейку столбца А листа "Лист1"?
Автор - anvg
Дата добавления - 03.09.2015 в 08:13
elo4ka07 Дата: Четверг, 03.09.2015, 08:39 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
anvg, Спасибо большое!!! всё отлично работает!
 
Ответить
Сообщениеanvg, Спасибо большое!!! всё отлично работает!
Автор - elo4ka07
Дата добавления - 03.09.2015 в 08:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание нового листа с имени по выделенной ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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