Выполнения макроса(с подстановкой имени) при условии ячейки...

[MaxZoa]

И снова здраствуйте (:
Есть вообщем понятный вопрос как заставить работать макрос при условии данных в одной из ячеек ...
имею макрос создания листа ... как привязать его выполнение к ячейке ?
Конкретика в файле ...
задействованные колонки
A "Номер накладной"
I "Итого недостача количество"
J "Итого забракованно количество"
H "Итого недостача мест"
Макрос по созданию листа...

Действие: Если в ячейке из столбца I или J(не важно) не ноль а в столбце H=0 то срабатывает макрос создания листа но имя листа подтягивается из столбца A характерной по уровню ячейки ... (пример в файле)
при чём созданный лист уже имеет определенную шапку ...
и данные некоторые (которые подтягиваются из ОСНОВНОГО листа)

[SAS888]

По Вашим условиям запустить макрос можно, прописав в модуле нужного листа строку с кодом:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Cells(Target.Row, 9) <> 0 And Cells(Target.Row, 10) <> 0 And Cells(Target.Row, 8) = 0 Then Run "Macro1"
   
End Sub

Что должен содержать созданный лист и как его назвать - не совсем понятно. И что значит

подтягивается

?

[MaxZoa]

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

По Вашим условиям запустить макрос можно, прописав в модуле нужного листа строку с кодом:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Cells(Target.Row, 9) <> 0 And Cells(Target.Row, 10) <> 0 And Cells(Target.Row, 8) = 0 Then Run "Macro1"
   
End Sub

Что должен содержать созданный лист и как его назвать - не совсем понятно. И что значит подтягиваться ?

Лист должен называться по столбцу "номер накладной" (как в примере)

а подтягиваться должна в созданный лист
дата поступления
контейнер
номер накладной
Это не обязательно но если таки будет то будет класс!!!

[MaxZoa]

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

[SAS888]

Посмотрите вложение. По оговоренным условиям запускается макрос и создает лист (копию первого листа) с именем из ячейки столбца "C".
Если лист с таким именем уже есть - он будет удален и создан снова. Допишите макрос как Вам нужно. Добавьте (удалите, скопируйте, вставьте и т.д.) нужные столбцы из листа "Основной" во вновь созданный лист. Новый лист создается последним, поэтому обращаться к нему можно просто:
Sheets(Sheets.Count).

[MaxZoa]

Спасибо большое
вот итог ...
поправил там еще макрорекордером ...

[дмидми]

    Dim x As Worksheet, s As String
    
    s = Cells(MyRow, "C")
'КСТАТИ, А ЧТО ДЕЛАТЬ, ЕСЛИ ЯЧЕЙКА ПУСТА? А ЕСЛИ В НЕЙ НЕ СТРОКА,
'А, НАПРИМЕР, ЧИСЛО ИЛИ ДАТА?

    'ЗДЕСЬ ЗАМЕНИТЬ В s НЕДОПУСТИМЫЕ СИМВОЛЫ "&'*/:;<>?\|^[!]
    'КАКИМ-НИБУДЬ ДОПУСТИМЫМ, НАПРИМЕР ТИЛЬДОЙ ~
    'ИЛИ ПОДЧЁРКИВАНИЕМ _

    'x Is Nothing
    On Error Resume Next
    Set x = Sheets(s)
'    If Err <> 0 Then x.Delete 'НАОБОРОТ!
'    If Err = 0 Then x.Delete 'ВОТ!
    On Error GoTo 0 'СКОБКИ НАДО ЗАКРЫВАТЬ :)
    If Not x Is Nothing Then x.Delete
    
    Sheets("Основной").Copy After:=Sheets(Sheets.Count)
'    Sheets(Sheets.Count).Name = Cells(MyRow, "C") 'СЛОЖНО.
'СВЕЖЕСОЗДАННЫЙ ЛИСТ СТАНОВИТСЯ АКТИВНЫМ ЛИСТОМ
    ActiveSheet.Name = s

Sorry, без мелких придирок не обошлось

[SAS888]

Посмотрите, что у меня получилось в результате "чистки" Вашего макроса. Почувствуйте разницу. Совет на будущее - по-возможности не используйте метод Select. Во-первых, это заметно "тормозит", во-вторых, мелькает картинка на дисплее.
По поводу замечания от дмидми - отвечаю:
Благодаря наличию оператора On Error Resume Next, если ячейка, данные которой используются для задания имени листа, пуста, или содержит недопустимые символы, то новый лист будет создан с именем "Основной(2)" и т.д. Т.е. криминала нет. Конечно, если так не устраивает, можно-таки вставить проверку ячейки. И On Error GoTo 0 не выполняется, как раз потому, что нужно также игнорировать возможную ошибку при присвоении имени нового листа. Обработчик ошибок возвращается в "нормальное" состояние автоматически, по окончании работы макроса. (по этому я часто не вставляю в код строки вида On Error GoTo 0, Application.DisplayAlerts = True, Application.ScreenUpdating = True и т.д.).
С удалением листа (If Err = 0...), конечно, согласен. Это ошибка (описка). В следующем вложении все исправлено.

P.S. Еще раз напоминаю, что все, что здесь предлагается - это наброски, болванки, руководство к действию (как хотите). Поэтому все замечания и предложения - приветствуются.