Добрый день. Друг попросил помочь, а я мало того что забыл, да еще и не особо знал))
Допустим есть диапазон на листе1 b2:b9
на нем из выпадающей строки выбираются текстовые значения - методы(каждому методу будет соответствовать макрос, методов будет штук 20, ну или около того)
далее требуется пройти по каждой ячейке и позапускать макросы согласно значению
но что то я делаю не так.
Скорее всего строки
If Value = "ГГКц" Then ГГКц
If Value = "ГК,ЛМ" Then Application.Run ("!Акт-заказ.xlsb!Module1.ГК_ЛМ")
Я думал для каждого метода прописать If... Then.... где "ГГКц", "ГК,ЛМ" это методы/макросы..
т.е. простыми словами на лист итоговый акт вставляются по порядку таблички, согласно их последовательности в b2:b9
Допустим есть диапазон на листе1 b2:b9
на нем из выпадающей строки выбираются текстовые значения - методы(каждому методу будет соответствовать макрос, методов будет штук 20, ну или около того)
далее требуется пройти по каждой ячейке и позапускать макросы согласно значению
но что то я делаю не так.
Скорее всего строки
If Value = "ГГКц" Then ГГКц
If Value = "ГК,ЛМ" Then Application.Run ("!Акт-заказ.xlsb!Module1.ГК_ЛМ")
Код |
---|
Sheets("Старт").Activate For Counter = 2 To 9 Set curCell = Worksheets("Старт").Cells(Counter, 2) If Value = "ГГКц" Then ГГКц If Value = "ГК,ЛМ" Then Application.Run ("!Акт-заказ.xlsb!Module1.ГК_ЛМ") Next Counter |
Я думал для каждого метода прописать If... Then.... где "ГГКц", "ГК,ЛМ" это методы/макросы..
т.е. простыми словами на лист итоговый акт вставляются по порядку таблички, согласно их последовательности в b2:b9