Создание листа с последующим обращением к оному

[ShamanK]

добрые день уважаемые программисты.
вот такой вопрос у меня:
как программно создать новый лист и потом к нему обращаться?

суть:

есть книга в которой только один пока ПУСТОЙ лист (СВОДНАЯ)
в этом листе прописана функция на изменения в ячейках.
как только в ячейке произойдет какое либо изменение функция считывает данные с изменившейся ячейки (какое либо название) и создает новый лист с этим названием.
в последующем необходимо чтобы все изменения в строке с названием отображались в одноменном листе.

пример
пустой лист.
в ячейке строка 1 столбец 1 пишу ЯБЛОКИ
создается лист с названием ЯБЛОКИ
в следующей строке 2 столбец 1 пишу ГРУШИ - создается лист с таким же именем.
и тд..

после чего в строке ЯБЛОКИ в ячейке 2 вношу какую либо цифру, необходимо, чтобы скрипт скопировал эту цифру и перенес ее в лист с именем ЯБЛОКИ (ячейка пока не важна )
и так же со всеми остальными строками.

другими словами - подскажите как сделать динамичное создание новых страник книги, чтобы в будущем можно было обращаться к ним по имени
с Уважением и надеждой на помощь

[ShamanK]

написал модуль создания нового листа:

PHP код:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim line As Integer, stlb As Integer, sym As String, _
    sht As Worksheet, s As Integer

line = Target.Rows(1).Row
stlb = Target.Column

    If Target.Column = 2 Then
    
        sym = Cells(line, stlb)
          
        s = Sheets.Count
        Sheets.Add After:=Sheets(s)
        Set sht = Sheets(s + 1)
        sht.Name = sym

    End If
    
End Sub 


новый лист создается.
остался один непонятный вопрос, как теперь обратиться к листу?
имя листа в переменной sym

[nerv]

Sub io()

Dim x As Object
Set x = Sheets.Add ' с записью в переменную
x.[A1] = 1

'----------------------

With Sheets.Add ' без
    .[A1] = 1
End With

End Sub

[ShamanK]

Сообщение от nerv

Sub io()

Dim x As Object
Set x = Sheets.Add ' с записью в переменную
x.[A1] = 1

'----------------------

With Sheets.Add ' без
    .[A1] = 1
End With

End Sub

спасибо за пример, насколько я понял в вашем примере запись в ячейки идет сразу же после создания листа.
а как обращаться к листу намного позже его создания?

то есть я сначала создал листы
и после этого вношу изменения которые должны отображаться в разных листах в зависимости от их имен

[nerv]

Sheets("ИмяЛиста").[A1] = 1

а как обращаться к листу намного позже его создания?

Если в ходе выполнения 1-го макроса, то можно так, как я показывал с переменной. Так же можно использовать переменные уровня модуля, статически и глобальные. Но лучше, проще (по возможности) : )

[ShamanK]

Сообщение от nerv

Sheets("ИмяЛиста").[A1] = 1

Если в ходе выполнения 1-го макроса, то можно так, как я показывал с переменной. Так же можно использовать переменные уровня модуля, статически и глобальные. Но лучше, проще (по возможности) : )

спасибо вам что уделяете время, однако ваш пример не совсем корректен ((
или я чего либо не догоняю

Sheets("ИмяЛиста").[A1] = 1

самый главный вопрос:
КАК в ИМЯЛИСТА ВОТКНУТЬ переменную?

sym = ИмяЛиста
Sheets(sym).[A1] = 1

так не работает, необходимы кавычки ""

[kuklp]

Зачем? Вы как присваивали значение?
sym = Cells(line, stlb)
Вот и берите его оттуда. Только имя листа, где эта Cells(line, stlb) не забудьде указать.

[ShamanK]

Сообщение от kuklp

Зачем? Вы как присваивали значение?
sym = Cells(line, stlb)
Вот и берите его оттуда. Только имя листа, где эта Cells(line, stlb) не забудьде указать.

спасибо все заработало, хотя странно вроде пробовал до этого и выдавало ошибку
еще раз ВСЕМ спасибо за помощь!