Копирование значений и форматирования

[Dophin]

а из самого кода строку

Application.OnTime Time() + TimeValue(shift), "Copy_lines"

надо соответсвенно удалить.


Макрос я так понимаю - писали не Вы?

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

[Eugenio]

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

а из самого кода строку

Application.OnTime Time() + TimeValue(shift), "Copy_lines"

надо соответсвенно удалить.


Макрос я так понимаю - писали не Вы?

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

Макрос я писал сам, вы зря хотите меня оскорбить "криворукие пользователи". Я вас не оскорблял.

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

[Dophin]

погодите. Вам надо чтобы:
1. макрос исполнился через опред время после нажатия?
2. выполнялся постоянно через заданный интервал?

[Eugenio]

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

погодите. Вам надо чтобы:
1. макрос исполнился через опред время после нажатия?
2. выполнялся постоянно через заданный интервал?

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

[Dophin]

у Вас не очень хорошо с логикой)
запишите по пунктам что Вам надо.

Сейчас у Вас
1. жмете кнопку
2.запускается макрос(раз копирование)
3. в конце макроса есть строка которая редписывает ему выполнится еще раз через n секунд
4. через n он снова выполняется и снова в конце его строка которая запускает его через n секунд
5 и т.д.

[Eugenio]

5. копирование идет пока не нажать снова на кнопку (т.е. пока First.ToggleButton1.Value = True)
6. скопированные данные размещаются на новой строчке на третьем листе, не удаляя и не меняя предыдущие копирования.

[doober]

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

[Eugenio]

Уфф, похоже действительно теперь все работает. Спасибо, doober, Dophin! Теперь буду пробовать прикрутить сюда копирование форматирования.

[Eugenio]

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

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

Почитал про функции activeworkbook и thisworkbook, но ничего не получается...
Спасибо.

[doober]

А что вам мешает так сделать

 Dim Name1 As String ' Имя книги,оно известно при ее открытии

 Dim Name2 As String '  Имя книги,оно известно при ее открытии

 Workbooks(Name1 ).Sheets("Лист1").Range("H15").Value=Workbooks(Name2).Sheets("Лист1").Range("B8")