добавление листа в книгу по условию

[Sasha K]

Добрый день, подскажите, plz.
Есть два листа, на одном есть номер_накладной, список_кодов_продуктов, его наименование, на другом код_продукта и цена. Надо сделать кнопку, при нажатии на которую добавлялись листы (на каждый номер_накладной один лист), а на листе продукт и цена.

[pashulka]

Sasha K, Если Вы не хотите использовать для решения своей задач MS Access, то позволю себе поинтересоваться :
- действительно ли нужна, такая структур таблиц … На мой взгляд, цена товара более уместна в базе данных (код, наименование, цена) (пример прилагается)
- и второе, если Вы планируете пользоваться созданной кнопкой, например, раз в месяц, то создать этот лист можно и вручную, а заполнить, используя стандартную функцию рабочего листа =ВПР()
Если же создание листов будет происходить часто, то здесь уместно напомнить, что количество рабочих листов в книге, всё же ограничено (пусть и размером доступной памяти) и весьма вероятно, что в какой-то момент времени программа просто не сможет выполнить свои обязанности. Я уже не говорю о том, что существует риск потери данных, поэтому, возможно имеет смысл подумать над тем, чтобы созданная накладная представляла собой отдельный лист в новой рабочей книге ...

[Sasha K]

Да, в Access'e конечно проще, только в Excel, т.к. надо на один лист загрузить данные из одно txt файла, на др. лист из другого txt файла. Каждый лист в отдельной книге будет накладно, их получится более 200. В принципе, я обошел эту проблему, добавив автофильтр и функция =Vlookup(), не такая уж проблема, хотя получилось немного коряво...

[pashulka]

Двести относительно небольших файлов могут оказаться более удобным делом, чем один гигантский файл. Впрочем, если Вам удобнее иметь дело со множеством листов, то в варианте с использованием фильтра и функции ВПР/VLookUp нет ничего корявого. Только после применения формул имеет смысл заменить их на результаты, которые эти формулы возвращают. Для этого можно использовать копирование + специальную вставку(значения) или же :

With Worksheets.Add
      .Range("C2:C10").Formula = "=ТекстВашейФормулы"
      .Range("C2:C10").Value = .Range("C2:C10").Value
End With

[Sasha K]

Спасибо, буду делать.