Запуск макроса с другого листа.

[Mag0G]

Добрый день!
Извините что отнимаю ваше время, но гугл и своя голова уже не помогают.
Постараюсь быть кратким.

Создал автозаписью макрос на Лист2. Хочу запустить его "дистанционно" с Лист1, но при запуске макрос обрабатывает данные на Лист1.
Вот код:

Sub ПротянутьИУбратьДубликаты()
With Sheets(2)

    Range("B2:K2").Select
    Selection.AutoFill Destination:=Range("B2:K6001")
    Range("B2:K6001").Select
    Selection.FillDown
    Range("$B$1:$K$6001").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _
        , 7, 8, 9, 10), Header:=xlYes
End With
End Sub

Спасибо большое всем откликнувшимся!

P.S. Код помещен в модуль и вызывается соответственно оттуда.

[Aleksandr H.]

Sub ПротянутьИУбратьДубликаты()
With Sheets(2)
    .Range("B2:K2").AutoFill Destination:=.Range("B2:K6001")
    .Range("B2:K6001").FillDown
    .Range("$B$1:$K$6001").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _
        , 7, 8, 9, 10), Header:=xlYes
End With
End Sub

[Mag0G]

Не срабатывает. Запускаю макрос как на Лист1 так и на Лист2. Что то там вычисляет а результата нет.

[IgorGO]

как только напишете корректный макрос все тут же начнет работать.
хоть с другого листа, хоть с другой книги, хоть с другого компьютера...

[kuklp]

Все срабатывает. Закомментируйте строку:

.Range("$B$1:$K$6001").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _ , 7, 8, 9, 10), Header:=xlYes

и посмотрите, что получилось. А Вы чего ожидали?

[Mag0G]

Никак не срабатывает.
Выложил на Яндекс Диске пример работы макроса.
https://yadi.sk/d/QtaTFHQ6pW325


На второй вкладке есть кнопка запускающая целевой макрос и все срабатывает просто прекрасно, но стоит перейти в первую вкладку и вызвать его вручную - он отрабатывает на этой самой вкладке.

На всякий случай опишу алгоритм работы макроса.
1. Выделить строку с диапазоном B2:K2
2. "Протащить" ее до B2:K6001 (в ячейках стоят формулы)
3. Удалить дублирующиеся строчки в B2:K6001

Макрос называется "ПротянутьИУбратьДубликатыВЗаголовк ах" в модуле "LaunchToKonstr".

P.S. Прошу не обращать внимания на мой индусский код в остальных макросах, пишу как умею.

[IgorGO]

упаковываете файл архиватором, прикрепляете к сообщению...

[Mag0G]

Вы правы, извиняюсь, сразу не заметил иконки вложения в инструментарии.
Поудалял лишнего в файле чтобы влезть в разрешенный размер.

[Hugo121]

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

Не срабатывает. Запускаю макрос как на Лист1 так и на Лист2. Что то там вычисляет а результата нет.

Ну так если ничего не менять в несрабатывающем макросе - он так и будет продолжать не срабатывать...

[IgorGO]

и теперь главный вопрос: а какую задачу Вы решали? (что хотите сделать)

видите-ли мой опыт программирования подсказывает мне, что обычно макрос делает не то, как сформулировано его название
например "ПротянутьИУбратьДубликаты"
а делает то, что написано в коде

и если в коде ерунда, то тоже самое происходит на листе.