Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 685 След.
Узнать какой макрос висит в фоне
 
Понял. Спасибо.
Узнать какой макрос висит в фоне
 
Здравствуйте.
Столкнулся с такой не то что бы проблемой, но непоняткой.
Пишу себе код в ВБА и иногда при каких то изменениях вылетает сообщение типа "Это остановит выполнение макроса" (это был неверный перевод)   This action will reset your project
и кнопки ОК, Отмена и Справка.
Хотя в это время никакой макрос не выполняется и на паузе не стоит.
Что это может быть?
П.С. Файлик прикрепить не могу, так как он завязан на сетевое подключение к внутренней сети и там много всего.
а вырезать что то и оставлять - не знаю что оставлять.
Изменено: Dima S - 04.03.2021 19:21:54
Сбор данных с нескольких таблиц при определенных условиях. Не выводить повторяющиеся элементы
 
Код
Sub rrrr(dtime, dname , ddat )
 
gh = (ThisWorkbook.Worksheets("Лист4").UsedRange.Row - 1 + ThisWorkbook.Worksheets("Лист4").UsedRange.Rows.Count) + 1
Set wdat = ThisWorkbook.Worksheets("Лист4").Cells(gh, 1)
Set wtime = ThisWorkbook.Worksheets("Лист4").Cells(gh, 2)
Set wname = ThisWorkbook.Worksheets("Лист4").Cells(gh, 3)
Set ganr = ThisWorkbook.Worksheets("Лист4").Cells(gh, 4)
Set wvoz = ThisWorkbook.Worksheets("Лист4").Cells(gh, 5)
Set wanot = ThisWorkbook.Worksheets("Лист4").Cells(gh, 6)
 
If dtime.Value > 0 Then
   wtime.Value = dtime
   wname.Value = dname
   wdat.Value = ddat.Value
i = dname
j = Application.Match(i, [Название], 0)
wvoz.Value = Application.Index([ОписаниеПрограмм], j, 2)
ganr.Value = Application.Index([ОписаниеПрограмм], j, 3)
wanot.Value = Application.Index([ОписаниеПрограмм], j, 4)

End sub

Sub cycler ()

Set dtime = ThisWorkbook.Worksheets("Эфирная сетка").Cells(con1, 2)
Set dname = ThisWorkbook.Worksheets("Эфирная сетка").Cells(con1, 4)
Set ddat = ThisWorkbook.Worksheets("Эфирная сетка").Cells(1, 2)

Call rrrr(dtime, dname , ddat )

Set dtime = ThisWorkbook.Worksheets("Эфирная сетка").Cells(con2, 8)
Set dname = ThisWorkbook.Worksheets("Эфирная сетка").Cells(con2, 10)
Set ddat = ThisWorkbook.Worksheets("Эфирная сетка").Cells(1, 8)
Call rrrr(dtime, dname , ddat )
'....
End sub
Изменено: Dima S - 15.12.2020 01:03:18
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 685 След.
Наверх