Excel vba макрос который отключает макрос

У меня есть 7 макросов, которые не позволяют пользователю копировать и вставлять в книгу.

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

Я могу только найти информацию о том, как отключить все макросы, и это невозможно сделать с помощью другого макроса.

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

Ниже приведены макросы, которые я использую для предотвращения копирования и вставки.

Private Sub Workbook_Activate()
    Application.CutCopyMode = False
    Application.OnKey "^c", ""
    Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
    Application.CellDragAndDrop = True
    Application.OnKey "^c"
    Application.CutCopyMode = False
End Sub
 Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    Application.CutCopyMode = False
    Application.OnKey "^c", ""
    Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.CellDragAndDrop = True
    Application.OnKey "^c"
    Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.OnKey "^c", ""
    Application.CellDragAndDrop = False
    Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Application.CutCopyMode = False
End Sub

Как принудительно остановить макрос другим макросом?

​Смотрите также​​ «стоп» Then Exit​ любом приложении офиса​
​ заканчивается, несмотря на​
​ и ещё на​ ==============================================================​Application.OnTime TimeValue(«08:01:00»), «Макрос_2″​.​
​ работают нормально. Делаем​
​ для этого придется​ цикл и запускать​
​ Nothing Then MsgBox​
​ на соответствие внесенных​ ìåñÿö»​ ìåñÿö​

​ < «30/09/2009» Then​​End If​Сергей​ Sub​
​Serge_PS​ то, что после​ каждый чих на​Surrogate​Application.OnTime TimeValue(«08:02:00»), «Макрос_3″​End Sub​ вывод: 1) хоть​
​ разбивать одну процедуру​ вручную каждые минут​ «Листа нет»​ данных определенному формату,​Range(«o51»).Select​MsgBox «Ââåäèòå êîððåêòíîå​ElseIf Range(«o51») =​Metka2: ‘ Ïðîâåðêà​: Макрос в VBA​

​ макрос, который должен​​ редактируемой книги.​ значение, чтоб он​Hugo121​End Sub​ и запуском макроса​ не в этом.​

​ нельзя прерывать счетчик​​ проц охлаждается)​ н работает​ данных, ячейка очищается,​End Sub​Range(«d51»).Select​Else:​If Range(«e51») =​А как мне​’vПоследняяСтрока = Worksheets(«данные2»).Range(«A1»).SpecialCells(xlLastCell).Row​

planetaexcel.ru

Команды для остановки выполнения макроса

​ запускаться автоматически, то​​Я даже могу​
​ не срабатывал сам​: Спасибо что заметили​
​и для кнопки​ «Workbook_Open» с кнопок​ Смотрим постановку вопроса.​ — то с​Sanja​KuklP​ выводится сообщение о​Sub Metka13s()​Selection.ClearContents​Metka12o​ «» Then​ написать остановку этого​ + 1​ нажав комбинацию клавиш​ сказать больше. У​ на себя.​ — может кто​может так?​ «пуск» и «стоп»,​vikttur​ определенным шагом запоминать​: Думаю, что лучше​: Set wsSh =​

​ < 1000000000000# Then​​Metka4g​ Причем можно остановить,​Vladimir2803​Sub aaa() Workbooks.Open​: Проверь пошагово​ формула (опять же,​ cell As Range​ другие возможности. На​ необходимо сделать кнопки​ прогами, грузящими сильно​ и останется неизвестной​ паузу ставить, а​expression — Required.​ не соответствуют условию​Sub Metka16v()​ ìåñÿö»​ElseIf Range(«u51″) =​End If​ а можно закончить​: Gustav Спасибо огромное,​ Filename:=»C:UsersWorkDesktopимя_файла.xlsm», Origin:= _​А у меня​ если я Вас​

​ Set cell =​​ Форуме уже было.​ пуска и остановки,​ процт.е. это читается​P.S. Сравнивать макрос​ макрос переписывать​ An expression that​ то запускается макрос,​

​Metka16v: ‘ Åñëè​​Range(«G51»).Select​ 0 Then​Metka5: ‘ Ïðîâåðêà​ работу.​ за помощь, обязательно​ xlWindows Range(«C3:H16»).Select Selection.Copy​ все нормально работает,​ правильно понял)​

​ ActiveCell: cellFormula =​​ytk5kyky​
​ которые необходимо будет​ как: он нагревается​
​ и перекодировщик видео​Показывайте код, —​ returns all other​ который выдает сообщение​ íå ââåäåíî çíà÷åíèå​Selection.ClearContents​Else:​ çíà÷åíèÿ îïëàòû ïî​соответственно:​ проверю ваш вариант!!!​ Windows(«имя_файла_куда переносим_данные.xlsm»).Activate ActiveSheet.Paste​ я правда запускаю​Private Sub Worksheet_Change(ByVal​ cell.Formula For i​: Увлекательная игра «ЧХИ»​ расположить на рабочем​ во всех программах,​ — вообще маразм.​ тогда будут более​ objects in the​
​ об ошибке,стирает неверно​ â ÿ÷åéêó îïëàòà​UserForm1.Show​Metka15u​ áàíêó 8-é ìåñÿö​1 stop​Vladimir2803​ End Sub и​ через кнопку​ Target As Range)​
​ = 1 To​ (Чего хочет Ирэна)​ листе. Если это​ которые грузят проц.​ Перекодировщики как раз​ конкретные советы​ Applies To list.​ веденные данные и​ ïî áàíêó 1-é​

​End Sub​​End If​If Range(«h51») =​2 exit sub(function)​: Gustav Еще раз​ это тоже работает!​и через сочетание​ ‘если пользователь заполняет​

planetaexcel.ru

Остановить выполнения макроса если ошибка

​ исправления.​​MsgBox «Ââåäèòå êîððåêòíîå​Metka5h: ‘ Åñëè​ çíà÷åíèÿ îïëàòû ïî​Metka5h​ макрос, нужно предусмотреть​ вариант отлично работает!!!​

​ горячих клавиш тоже!​​ Причина в чем​
​ 2, выходим If​ i) If cellFormula​
​ хотите, чтобы запуск​: всавьте элемент управления​ наверное, тогда такая​ большинстве именно так​ — не в​
​ {!!!} or index​Попробуйте открыть файл,​ çíà÷åíèå îïëàòû ïî​
​ íå ââåäåíî çíà÷åíèå​

​ áàíêó 1-é êâ.​​ElseIf Range(«h51») >​ обработку возвращаемого значения​

​Я создал макрос​​у меня правда​ то другом​
​ Target.Column <> 2​ = convFormula Then​
​ макросов назначался при​ Commandbutton1 и Commandbutton2​
​ должна быть: проц​ и реализованы. Особенно,​
​ этой теме.​ number {!!!} for​
​ нажать на статью​ áàíêó 1-é êâ.​
​ â ÿ÷åéêó îïëàòà​

​ 2010​​ 0# And Range(«h51»)​ вызываемого макроса.​

​ < 1000000000000# Then​​т.е.​ в нужную ячейку​

​ как не дают​​А уровень безопасности​ ‘в ячейку в​

​ Application.ReferenceStyle, Application.ReferenceStyle, i​​ запускать вручную? Тогда​ пишите​

​End Sub​​ áàíêó 8-é ìåñÿö»​
​ 0# And Range(«v51»)​
​Metka5h​if exit then​ Стопом.​
​Vladimir2803​
​Workbooks.Open («С:otch.xlsx»)​ формулу Target.Offset(0, -1).FormulaR1C1​
​С уважением, Аксима​Application.OnTime TimeValue(«08:00:00»), «Макрос_1″​ написать?​ Но не перекодировщик​
​ вешает — это​ а может быть​ (т.к. объект -​ не числовое значение(где​Sub Metka17w()​

​Application.OnTime TimeValue(«08:02:00»), «Макрос_3″​​: Я понял, что​Mirage74​ было тут подумать​ охлаждение…​ Variant). но почему​ ввести отрицательное значение.​ íå ââåäåíî çíà÷åíèå​

planetaexcel.ru

Как приостановить выполнение макроса VBA, чтобы процессор был не занят

​UserForm1.Show​​ 0 Then​
​ çíà÷åíèÿ íà÷èñëåíèÿ ïî​end sub​ActiveCell.FormulaR1C1 = «Стоп»​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub General()​ всего вчем то​Makroshka​ пересчитывает формулы на​Application.OnTime TimeValue(«08:03:00»), «Макрос_4″​ Вы хотите. Я​: Вопрос был «как​ о проблемном железе…​Mirage74​ такой вариант для​Проблема в том​ â ÿ÷åéêó íà÷èñëåíèå​End Sub​Else:​ áàíêó 8-é ìåñÿö​sub макрос2(exit as​Range(«A3»).Select​Dim vПоследняяСтрока As​ другом​: Спасибо, заработало!​ листе каждую секунду:​End Sub​ не понимаю как​

​ сделать паузу в​​Mirage74​: Дело не в​ него предпочтительный -​ что, после исправления​ ïî áàíêó 4-é​Sub Metka6i()​

​Metka16v​​If Range(«i51») =​ boolean)​End Sub​ Long​Serge_PS​Hugo121​Sub calctimer() ActiveSheet.Calculate​
​Если кнопка Стоп​ можно остановить октрытие​ приложении, …..»​: Я ценю Ваши​ макросе, все там​ всё же непонятно.​

​ всех ошибок,макросы proverka​​ êâàðòàë​Metka6i: ‘ Åñëè​End If​ «» Then​exit=false​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub General()​vПоследняяСтрока = Worksheets(«данные2»).Range(«A1»).SpecialCells(xlLastCell).Row​: Запустить пошагово можно​: Нужно ещё отключить​ Application.OnTime Now +​ в Вашем понимании​ уже открытой книги?​
​Ни один из​ ответы, и уже​ нормально. Комп вешается​впрочем, это не​ и vstavka срабатывают​MsgBox «Ââåäèòå êîððåêòíîå​ íå ââåäåíî çíà÷åíèå​Metka17: ‘ Ïðîâåðêà​
​Metka6i​if .. then​

​Range(«A2»).FormulaR1C1 = «Работает»​​ + 1​ только из VBA​ реакцию на одновременное​
​ TimeSerial(0, 0, 1),​ это отмена запуска​ И зачем кнопкой​

​ перечисленный Вами ответов​​ читаю кстати про​ и от других​ страшно и не​

​ дважды, а при​​ çíà÷åíèå íà÷èñëåíèÿ ïî​ â ÿ÷åéêó íà÷èñëåíèå​ çíà÷åíèÿ íà÷èñëåíèÿ ïî​ElseIf Range(«i51») >​exit=true​Dim vПоследняяСтрока As​Worksheets(«данные2»).Cells(vПоследняяСтрока, 1).Value =​

​ редактора, а если​​ изменение нескольких ячеек:​ «calctimer» End Sub​ в назначенное время,​ «Пуск» открывать УЖЕ​ не был ответом​ оптимизацию кода -​ прог, которые грузят​ сложно дописать пяток​ отсутствии ошибок при​ áàíêó 1-é êâ.​ ïî áàíêó 8-é​ áàíêó 1-é êâ.​ 0# And Range(«i51»)​exit sub​ Long​ Format(Now, «hh:mm:ss»)​

​ запускать из редактора​​if target.cells.count>1 then​Проблема состоит в​ то код такой:​ открытую книгу? Вот​ на мой вопрос.​ очень полезная и​ проц — например​ символов в коде.​ первом вводе,все срабатывает​ 2010″​ ìåñÿö​ 2010​ < 1000000000000# Then​

​end if​​If Worksheets(«Графики»).Range(«A2»).Value =​Worksheets(«данные2»).Cells(vПоследняяСтрока, 2).Value =​ у меня все​

​ exit subну или​​ том, что не​Private Sub CommandButton2_Click()​ это мне не​ Хотя несомненно содержал​ доступная инфа. Но​ перекодировщик видео. Кулер​но — когда​

​ как надо, т.е.​​Range(«w51»).Select​

​MsgBox «Ââåäèòå êîððåêòíîå​​If Range(«w51») =​ElseIf Range(«i51») =​..​ «Стоп» Then Exit​ Worksheets(«Лист2»).Range(«C3»).Value​ работает​ всегда обрабатывать только​

​ возможно закрыть книгу​​Application.OnTime TimeValue(«08:00:00»), «Макрос_1»,​ ясно. Может кнопка​
​ полезную информацию.​ обращаю внимание: Комп​ не справляется. Да,​ знаешь.​ один раз​Selection.ClearContents​ çíà÷åíèå íà÷èñëåíèÿ ïî​ «» Then​ 0 Then​end sub​

​ Sub​​Worksheets(«данные2»).Cells(vПоследняяСтрока, 3).Value =​Тоже не работает​ target.cells(1)​ и остановить макрос.​

​ , False​​ «Пуск» должна открывать​Mirage74​ подвисает от перегрева​

​ нужно менять железо​​KuklP​Volhv​UserForm1.Show​ áàíêó 8-é ìåñÿö»​Metka17w​Else:​слэн​vПоследняяСтрока = Worksheets(«x;y»).Range(«A»​ Worksheets(«Лист2»).Range(«C5»).Value​работает только в​Vlad999​ На форумах пишут,​Application.OnTime TimeValue(«08:01:00»), «Макрос_2»,​

​ ДРУГУЮ книгу?​​: Прошу прощения, этот​ проца не из-за​ — но ведь​: Мож так понятней:​: Спасибо всем за​End Sub​Range(«i51»).Select​ElseIf Range(«w51») >​Metka6i​: с именами я,​ & Rows.Count).End(xlUp).Row +​Application.OnTime Now +​
​ том случае, если​
​: Application.EnableEvents = False​ что проблема в​ , False​Попробуйте описать примерно​ пост я действительно​ тормознутого макроса, а​ вопрос не в​Set Statement​ участие в решении​Sub Metka18x()​Selection.ClearContents​ 0# And Range(«w51»)​End If​ конечно, не прав​ 1​ TimeValue(«00:00:10»), «General»​ запускаю из редактора​ ‘отключаем отслеживание событий​ Application.OnTime Now, но​Application.OnTime TimeValue(«08:02:00»), «Макрос_3»,​ так: «Я открываю​ почему-то пропустил. Ontime​ из-за аппаратного обеспечения.​ этом. По существу​Assigns an object​ проблемы, методом тыка​Metka18x: ‘ Åñëè​UserForm1.Show​ < 1000000000000# Then​Metka7: ‘ Ïðîâåðêà​ — нельзя использовать​’vПоследняяСтрока = Worksheets(«x;y»).Range(«A1»).SpecialCells(xlLastCell).Row​End Sub​
​А вы когда​ …код Application.EnableEvents =​ как ее решить​ , False​ книгу, начинают работать​ вполне может помочь​ Это происходит и​ кто-то может знает​ reference to a​ проблема решена,Ура, осталось​ íå ââåäåíî çíà÷åíèå​End Sub​ElseIf Range(«w51») =​ çíà÷åíèÿ îïëàòû ïî​ имя exit, можно​ + 1​Помогите пожалуйста:​

​ запускали у вас​​ True ‘включаем отслеживание​ — самостоятельно не​Application.OnTime TimeValue(«08:03:00»), «Макрос_4»,​ некие макросы. Я​ решить мою проблему.​ в другими прогами,​ ? Нету такой​ variable or property.​ понять почему все​ â ÿ÷åéêó îïëàòà​Sub Metka7j()​ 0 Then​ êàññå 8-é ìåñÿö​ exit_ или ex_it​Worksheets(«x;y»).Cells(vПоследняяСтрока, 1).Value =​- Сделать кнопку​ было активно окно​ событийне повредит если​ разобрался. Прошу помощи!​ , False​ хочу кнопкой «Пуск»​ А комп вешает,​ грузящими сильно проц.​ возможности в программе​Syntax​ так странно работает​ ïî êàññå 1-é​Metka7j: ‘ Åñëè​Else:​If Range(«j51») =​ или..​ Format(Now, «hh:mm:ss»)​
​ ActiveX или сочетание​ редактора или экселя?​ с умом применить.​Sanja​End Sub​ сделать …. ,​ например, когда жена​
​ Несомненно, я смогу​

​ сделать паузу ?​​Set objectvar =​ в VBA!​ êâ. 2010​ íå ââåäåíî çíà÷åíèå​Metka17w​ «» Then​
​Сергей​Worksheets(«x;y»).Cells(vПоследняяСтрока, 2).Value =​ клавиш что бы​Владимир_Сар​Serge_PS​: А зачем вообще​

​А Private Sub​​ а кнопкой «Стоп»​
​ играет в одноклассниках​
​ оптимизировать свой код.​
​Mirage74​ [New] objectexpression​DimaLulchuk​
​MsgBox «Ââåäèòå êîððåêòíîå​ â ÿ÷åéêó îïëàòà​End If​
​Metka7j​: Причниа следующая. Макрос1​
​ Worksheets(«Расчеты»).Range(«C3»).Value​ остановить его повторение.​: открыт Ексель, редактор​: Всем добрый день!​ такой макрос? Включите​ Workbook_Open() удалите/закомментируйте.​ сделать …»​
​ в какую-то игру,​ Это займет время,​: Поменял кулер, купил​То есть из-за​

​: Добрый день. Уменя​​ çíà÷åíèå îïëàòû ïî​ ïî êàññå 8-é​Metka18: ‘ Ïðîâåðêà​ElseIf Range(«j51») >​ запускается по определенному​Worksheets(«x;y»).Cells(vПоследняяСтрока, 3).Value =​- И что​ закрыт​Сталкнулся с проблемой.​ автопересчет листа​AAAAAAAmidi​Ведь работу самого​ где разные фигурки​ и не факт,​ новый, и термопаста​ ключевого слов Set​ маленькая проблема с​ êàññå 1-é êâ.​

​ ìåñÿö​​ çíà÷åíèÿ îïëàòû ïî​ 0# And Range(«j51»)​ условию и заставляет​

​ Worksheets(«Расчеты»).Range(«C5»).Value​​ бы при очистке​Serge_PS​

​ Мне надо, чтобы​​Samvel​: Привет. Макрос (видимо)​ макроса Workbook_Open не​ падают и она​ что он успеет​ естессно. Стал вешаться​ компилятор ожидает именно​ макросом.​ 2010″​MsgBox «Ââåäèòå êîððåêòíîå​ êàññå 1-é êâ.​ < 1000000000000# Then​ мигать (постоянно) ячейку.​Application.OnTime Now +​ листа «Данные2» макрос​: попробовал на другом​ макрос Excel сам​: Использую формулу и​ зациклился и колбасит​ остановить. Он УЖЕ​ их как-то стыкует.​ выполниться до перегрева​
​ реже. Похоже проц​ объект. А​Sub Макрос​Range(«x51»).Select​ çíà÷åíèå îïëàòû ïî​ 2010​ElseIf Range(«j51») =​ Хочу на кнопку​ TimeValue(«00:00:10»), «General»​ делал записи с​ компе. Тоже не​ открыл другой файл​ нужно, чтобы она​ уже час вместо​ сработал — вызвал​ А от перекодировщика​ проца. Меня устраивает​ надо менять и​Sheets(«Лист1»).[B1] и есть​Sheets(2).Copy After:=Sheets(2)​Selection.ClearContents​ êàññå 8-é ìåñÿö»​If Range(«x51») =​ 0 Then​

​ подвесить Макрос2, который​​End Sub​ начала листа, а​ работает​
​ excel и взял​ перещитывалась самостоятельно​ положеных 10 минут.​ на исполнение другие​ видео раньше комп​ протестированный и работающий​

​ т.д.и т.п. Мой​​ объект range. Если​Sheets(1).Select​UserForm1.Show​Range(«j51»).Select​ «» Then​Else:​ в любой нужный​Vladimir2803​ то да же​все заканчивается тем,​ оттуда кое-какие данные.​Казанский​ Ни на что​ макросы.​ не падал, когда​ сейчас код, пусть​
​ вопрос не в​ явно не указать​

​Sheets(3).Name = Cells(1,​​End Sub​​Selection.ClearContents​Metka18x​

​Metka7j​​ мне момент прекратит​

​: Так же добавил​​ после его очистки​ что на экране​ Открываю файл так:​: Samvel, изучите​ не реагирует, собственно.​Рустам​ был моложе )​ и медленный, т.к.за​ этом — то,​ его свойство -​ 2)​Sub Metka19y()​UserForm1.Show​ElseIf Range(«x51») >​End If​ работу Макрос1.​ прописывание Стоп и​ макрос запоминает куда​ появляется содержимое файла,​ Workbooks.Open Filename:=»C:отчет.xls»​Makroshka​ Хотя параллельно могу​: а можно ли​Спасибо за реально​ неделю я получу​ что покупка нового​ value.​End Sub​Metka19y: ‘ Åñëè​End Sub​ 0# And Range(«x51»)​Metka8: ‘ Ïðîâåðêà​
​Volhv​ Работает на определенных​ писались последние данные​ который открыл макрос​Файл открывается, но…​: Добрый день!​

planetaexcel.ru

Остановка и запуск макроса

​ ìåñÿö​​У меня такая​ макрос стал прописывать​ дальше, хотя строки​Добавлено через 5 минут​ макроса останавливается. Макрос​ почему заедает макрос.​Я так понимаю,​ кнопка пуск не​:​ на оптимизацию затрачу,​ бы и сам​ ждет объекты от​ имя из лист1​ ïî áàíêó 2-é​Selection.ClearContents​ 0 Then​

​If Range(«h51») =​​ проблема.​ работает через каждые​ выше пустые, помогает​уровень безопасности в​

​ запускается горячими клавишами​​ Суть макроса в​ что теперь тольуко​ выполнена то переход​Правила, пункт об излишнем​ возможно, больше. Возможно​ догадываюсь​ ЛЮБОЙ части того​ ячейка В1. Макрос​ êâ. 2010​End Sub​Else:​ 0 And Range(«j51»)​Есть два макроса,​ 10 секунд на​ только удаление и​ самом excel поставил​ из Excel. Заметил,​ следующем: при появлении​

​ принудительное закрытие книги?​​ макросов по времени​ цитировании.​ кто-то напишет я​The_Prist​

​ что справа? :)​​ работает, но если​MsgBox «Ââåäèòå êîððåêòíîå​Sub Metka8k()​

​GoTo Metka18​​ = 0 Then​ условно макрос1 и​ любом листе где​ новое создание листа.​ самый низкий​ что если запускать​ данных в столбце​вопрос: можно ли​ ….​Казанский​ так понимаю напрашивающийся​: т.е. читать все​
​set x=sheets(…) -​ лист с таким​ çíà÷åíèå îïëàòû ïî​Metka8k: ‘Åñëè íå​End If​Metka8k_1​ макрос2.Макрос1 проверяет значения​ я нахожусь.​
​Спасибо!​Владимир_Сар​ макрос из окна​ В должна автоматически​ в макрос засунуть​Application.OnTime TimeValue(«08:00:00»), «Макрос_1″​

​: перезапусти ексель, а​​ VBA редактора, то​ вставляться формула в​

​ какую-то инструкцию, которая​​Application.OnTime TimeValue(«08:01:00»), «Макрос_2″​Mirage74​»Такой возможности (приостановить​ стали?​но sheets(…) и​ выбивает ошибку. Мне​ 2010″​ 8-é ìåñÿö​ çíà÷åíèÿ îïëàòû ïî​ «01/08/2009» And Range(«k51»)​ если значения не​Оформляйте коды тегами​

​: 1) С​​ еще может перегрузи​ выполнение макроса после​ столбец А. Но,​ будет заставлять макрос​

​ < «31/08/2009» Then​​ удовлетворяют определенному условию,​ (кнопка #)​Application.OnTime​ комп, может какие​ открытия файла продолжается.​ так как пользователь​ реагировать на контрол​Application.OnTime TimeValue(«08:03:00»), «Макрос_4″​ помогает, к сожалению,​
​ проц не был​: Проц сильно грузится​ указанный по имени​ возникновении ошибки робота​Selection.ClearContents​

​UserForm1.Show​​ ìåñÿö»​If Range(«y51») =​ «01/08/2009» Or Range(«k51»)​
​ просьбой заменить значения​: Возникла проблема подскажите​

​ команду:​​ по таймеру -​вот это загадка…​Владимир_Сар​
​ в лист, а​спасибо​Юрий М​ образом: 1, 3​ этом неизвестно. «​ в том, почему​ нет.​
​ существует».​
​Metka20z: ‘ Åñëè​
​UserForm1.Show​
​ElseIf Range(«y51») >​
​End If​
​ то вызывается макрос2,​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ надо писать некую​Кстати, есть интересная​: В 2003 Екселе​ как раз это​
​Hugo121​
​: Не представляю, как​ и 4 ядра​
​Вот и все.​ он грузится и​
​но это же​KuklP​
​ íå ââåäåíî çíà÷åíèå​End Sub​
​ 0# And Range(«y51»)​
​Metka9: ‘ Ïðîâåðêà​ который копирует значения​

planetaexcel.ru

Как прервать работу зацикленного макроса, если CTRL/Break не «того»?

​Worksheets(«Графики»).Range(«A2»).FormulaR1C1 = «Работает»​​ обвязку (минимум три​ особенность: если назначить​ после открытия другого​ у меня и​: DoEvents​ это сделать. Может​ где-то между 45-55%,​The_Prist​ нагревается.​
​ не означает, что​: Да нет, лучше​ â ÿ÷åéêó íà÷èñëåíèå​
​Sub Metka9l()​ < 1000000000000# Then​ çíà÷åíèÿ îïëàòû ïî​ из данных ячеек,​Выполнить только один​ процедуры), что-то типа:​ макросу кнопку, то​ файла нужно активировать​
​ не получается и​

​Это вообще полезно​​ быть Вы хотите​
​ а 2-е ядро​: Еще раз: не​
​Sanja​ «…» — тоже​
​ перед копированием проверить,​ ïî áàíêó 2-é​Metka9l: ‘ Åñëè​ElseIf Range(«y51») =​ áàíêó 9-é ìåñÿö​ в определенную строку.​ раз а не​ event-процедура, отмечающая вкл/выкл​ все выполняется, а​ главный файл​ документ зависает намертво.​ в длинных циклах.​ кнопкой «Стоп», после​ на 80-90%. Когда​ путайте проги, намеренно​: Ну как знаете​ должен быть объект?​ нет ли такого​ êâ. 2010​ íå ââåäåíî çíà÷åíèå​ 0 Then​If Range(«l51») =​ Проблема в том,​ каждые 10 секунд​ и вызывающая SET-процедуру​ при использовании назначенной​Workbooks(Name).Activateгде Name имя​Private Sub Worksheet_Change(ByVal​Вот кстати нашёл​ того как началось​ дело доходит до​ вешающие проц и​Mirage74​это непонятно.​ листа. И если​MsgBox «Ââåäèòå êîððåêòíîå​ â ÿ÷åéêó îïëàòà​Else:​ «» Then​ что после выполнения​ как весь макрос?​ ; SET-процедура, задающая​ комбинации кнопок -​ главного файла в​ Target As Range)​

​ в закромах:​​ выполнение макросов, перечисленных​ цикла для паузы​

​ макросы, которые это​​: Смысл в том,​Дмитрий, Сергей, большое​ есть — не​ çíà÷åíèå íà÷èñëåíèÿ ïî​ ïî áàíêó 9-é​End If​

​Metka9l​​ всех действий,в макросе1​Vladimir2803​ параметры в зависимости​ нет. Выходит что​ кавычках​ Dim frm As​============================================================== имеется макрос​ в Workbook_Open, в​ с использованием WaitMessage,​
​ делают только в​ чтобы я запустил​ спасибо за разъяснения.​ копировать.​ áàíêó 2-é êâ.​ ìåñÿö​Metka20: ‘ Ïðîâåðêà​ElseIf Range(«l51») >​ и макросе2,запускается опять​: Не знаю корректно​ от состояния вкл/выкл,​ дело не в​Serge_PS​ Long, lLastRowF As​

​ (см ниже), который​ нужный Вам момент​ происходит следующее: 1,​ случае своей неоптимальности.​ макрос, и уехал​
​у меня вопросов​DimaLulchuk​ 2010″​MsgBox «Ââåäèòå êîððåêòíîå​ çíà÷åíèÿ íà÷èñëåíèÿ ïî​ 0# And Range(«l51»)​ макрос1 с новой​ или нет сделал​ устанавливающая основную WORK-процедуру​ том, активен или​: попробовал, не получается​ Long lLastRowF =​ нормально работает, но​ времени приостановить выполнение​ 3 и 4​ЦитатаMirage74 написал: Возможно​ по делам. А​ больше нет. буду​
​: Sub Макрос2()​

CyberForum.ru

Как остановить выполнение макроса

​Range(«z51»).Select​​ çíà÷åíèå îïëàòû ïî​ áàíêó 2-é êâ.​ < 1000000000000# Then​
​ проверкой и макрос2​ запуск General через​ и задающая OnTime​ нет VBA редактор.​
​мой макрос находится​ Cells(Rows.Count, 2).End(xlUp).Row For​ остановить работу макроса​ этого списка? А​ ядра отдыхают, загрузка​ кто-то напишет я​ он сам себе​ знать и пользоваться​On Error Resume​Selection.ClearContents​

​ áàíêó 9-é ìåñÿö»​​ 2010​ElseIf Range(«l51») =​ с очередной ставкой.​

​ другой макрос​​ (причем с использованием​аналитика​ в личной книге​

​ frm = 2​​ получается только кнопкой​

planetaexcel.ru

Остановка макроса при выполнении условия

​ по кнопке «Пуск»​​ по2-10%, а 2-е​
​ так понимаю напрашивающийся​ паузы делает и​ так, как требует​ Next​UserForm1.Show​Else: Range(«l51»).Select​If Range(«z51″) =​ 0 Then​ Как остановить повторное​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ Shedule) ; рабочая​: попробуй поиграться с​ макросов, получается что​ To lLastRowF If​ Reset в редакторе​ продолжить?​ ядро продолжает впахивать​
​ ответ ?Будете читать​ дальше работает ))​ Excel.​Set wsSh =​End Sub​Selection.ClearContents​ «» Then​Metka9l​ выполнение макросов????​Sub Start_G()​ процедура, заканчивающаяся вызовом​ разными сочетаниями клавиш,​ главного файла у​ Cells(frm, 2).Value >​ VB или путем​Chae​ за всех, загрузка​ ответы полностью -​Mirage74​KuklP​ Sheets(Как указать чтоб​

​Sub Metka21aa()​​UserForm1.Show​Metka20z​End If​
​Guest​Worksheets(«Графики»).Range(«A2»).FormulaR1C1 = «Работает»​ SET-процедуры).​ но если честно,​

​ меня как такового​​ 0 Then Cells(frm,​ закрытия файла. Подскажите​: Да именно это​ на 90-100%. В​ получите ответ.​: Кнопка цитирования не​: ikki, можно проверить,​ имя листа сверялось​

​Metka21aa: ‘ Åñëè​​End Sub​ElseIf Range(«z51») >​Metka10: ‘ Ïðîâåðêà​: > Макрос1 проверяет​Call General​
​Ну или так,​ попахивает клиникой.​ нет​ 1).FormulaR1C1 = «=ROW(R[-1]C)»​ как его можно​ я и хочу​ результате температура процессора,​vikttur​ для ответа [МОДЕРАТОР]​

​ отключив On Error​​ с Лист1 ячейка​ íå ââåäåíî çíà÷åíèå​Sub Metka10m()​
​ 0# And Range(«z51»)​ çíà÷åíèÿ íà÷èñëåíèÿ ïî​
​ значения в ячейках​End Sub​ как далее показано​Или ты запуск​Владимир_Сар​

​ End If Next​​ выключить? Const ИмяФайла7​​ сделать, но не​​ которую я наблюдал​: Взаимно.​Вопрос был есть​ Resume Next. Получим​ В1?)​
​ â ÿ÷åéêó îïëàòà​Metka10m: ‘ Åñëè​ < 1000000000000# Then​ áàíêó 9-é ìåñÿö​Этот макрос случайно​_Boroda_​ у​ производишь при пустой​
​: Я работаю в​
​ frm If Cells(frm,​ = «C:Alex.txt» Const​
​ знаю как.​ во время работы​Предложили:​ ли такая функция/метод​ неверный тип данных.​If wsSh Is​ ïî êàññå 2-é​ íå ââåäåíî çíà÷åíèå​ElseIf Range(«z51») =​If Range(«m51») =​
​ не является обработчиком​: Да, все нормально.​_Boroda_​ среде и скрытом​ 2003 и я​ 1) > 0​ ИмяФайла8 = «C:Alex1.txt»​Рустам​ цикла, снизилась только​- оптимизация кода;​ а Вы мне​ Не вилит Экс​ Nothing Then MsgBox​ êâ. 2010​

​ â ÿ÷åéêó íà÷èñëåíèå​​ 0 Then​

​ «» Then​​ событий листа?​В итоге у​(старт-стоп-работа)…​
​ Personal-e, обработчик ошибок​ не сталкивался с​ And Cells(frm, 2)​ Public РазмерФайла7 As​

​: Workbook_Activate​​ на 2 градуса​- DoEvents, тогда​ ссылку даете на​ в range строку,​ «Листа нет»​MsgBox «Ââåäèòå êîððåêòíîå​

CyberForum.ru

Останавливается выполнение макроса

​ ïî áàíêó 9-é​​Else:​
​Metka10m​Типа такого:​ Вас должно получиться​2) Все зависит​ есть?​ 2007. Процедура открытия​ > 0 Then​ Long, РазмерФайла8 As​
​если пуск нажат​ за 2 минуты,​ код можно будет​ курс по оптимизации​ видит объект.​End Sub​ çíà÷åíèå îïëàòû ïî​ ìåñÿö​Metka20z​ElseIf Range(«m51») >​
​Private Sub Worksheet_Change(ByVal​ примерно следующее:​
​ от того, как​

​Может какая-нибудь критич.​​ и работы с​ Stop End If​ Long, ПоискИзмененийВременноОтключён As​ то выполняется макрос1,2​
​ с 71 до​ прервать по Ctrl+Pause(Break);​ программирования ) Наверняка​

​Mirage74​​ikki​
​ êàññå 2-é êâ.​MsgBox «Ââåäèòå êîððåêòíîå​End If​ 0# And Range(«m51″)​ Target As Range)​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Start_G()​

​ именно вы очищаете​​ ошибка возникает и​ другими файлами нормально​ End SubЧто я​ Boolean Const ВременнойИнтервалМеждуПроверками​ и.т.д.,​ 69. Возможно я​- КАК ПОЛУЧИТЬ​ кстати полезная, как​: Здравствуйте.​

​: Set wsSh =​​ 2010″​ çíà÷åíèå íà÷èñëåíèÿ ïî​Metka21: ‘ Ïðîâåðêà​ < 1000000000000# Then​
​’ код​If Worksheets(«Графики»).Range(«A2») =​ лист. Если отдельной​ он, как тебе​ работает 2003, а​ неправильно делаю или​ = 2 Public​если нет, то​ неправильно использую эту​ ДАННЫЕ ИЗ ЗАКРЫТОЙ​

​ мне показалась на​​У меня такая​ Sheets(Sheets(«Лист1»).[B1])​Range(«aa51»).Select​ áàíêó 9-é ìåñÿö»​ çíà÷åíèÿ îïëàòû ïî​ElseIf Range(«m51») =​End Sub​ «Стоп» Then Exit​ процедурой (кодом), а​ кажется останавливается, а​ как в 2007​ как это можно​ Sub СлежениеЗаФайлом() On​ он запустится сам​
​ функцию ? У​ КНИГИ?​ первый взгляд, обязательно​ проблема: я запуская​KuklP​Selection.ClearContents​Range(«m51»).Select​ êàññå 2-é êâ.​ 0 Then​Выложите код обоих​ Sub​
​ не вручную -​ на самом деле​ извини незнаю.​ сделать другим путем.​ Error Resume Next​
​может так стоит​
​ меня самый простой​Ничего не подходит.​
​ изучу, спасибо​
​ в Excel макрос,​
​: Function WorksheetExist(wsname As​
​End Sub​

​Selection.ClearContents​​ 2010​Else:​ макросов.​Worksheets(«Графики»).Range(«A2») = «Работает»​ то имеет смысл​ он «вхолостую» доходит​

​ironegg​​Vlad999​ Do While True​ написать?​ цикл:​ Ответ:​vikttur​ он выполняется долго​

​ String) As Boolean​​Макрос2​
​UserForm1.Show​If Range(«aa51») =​Metka10m​Посмотрим, что можно​
​General​ переменную​ до End Sub​: а как насчет​
​: а заранее написать​
​ ‘ бесконечный цикл​Юрий М​
​newMinute = Minute(Now())​
​Цитата…не из-за тормознутого​
​: Вы в полуторку​​ и мой кулер​
​’Возвращает ИСТИНА, если​Sub vstavka()​End Sub​

​ «» Then​​End If​ сделать.​End Sub​ПоследняяСтрока​Serge_PS​ получить его имя​
​ формулу на листе​
​ If Not ПоискИзмененийВременноОтключён​: Ну что же​ If newMinute <​
​ макроса, а из-за​ грузите 5 тонн​ не справляется с​ лист существует​

​Dim a As​​Sub Metka11n()​Metka21aa​

​Metka11: ‘ Ïðîâåðêà​​Volhv​Sub Stop_G()​сделать глобальной (а​
​: Похоже разобрался​ во время выполнения​ не вариант?​ Then If ПоискИзмененийВременноОтключён​ Вы… Посмотрите сколько​
​ 58 Then While​
​ аппаратного обеспеченияЗакрывайте другие​ и спрашиваете, почему​ охлаждением. В результате​

​Dim x As​​ Integer​Metka11n: ‘ Åñëè​ElseIf Range(«aa51») >​ çíà÷åíèÿ îïëàòû ïî​

​: Макрос1​​Worksheets(«Графики»).Range(«A2») = «Стоп»​
​ не вычисляемой) и​
​Для запуска макроса​ макроса? чтото вроде​зачем цикл если​ Then Exit Sub​ времени потрачено, чтобы​ newMinute + 2​ приложения, берите веер​ она не едет…​ процессор перегревается и​ Worksheet​

​a = Range(«C53»)​​ íå ââåäåíî çíà÷åíèå​ 0# And Range(«aa51»)​ êàññå 9-é ìåñÿö​Sub proverka()​
​End Sub​ сбрасывать её значение​ я использовал комбинацию​имя_книги_из_которой_запустили_макрос = ActiveWorkbook.Nameправда​ как я понял​
​ НовыйРазмерФайла7 = CreateObject(«scripting.filesystemo​ понять ЧТО Вы​ > Minute(Now()) WaitMessage​ и махайте им​Sanja​ комп зависает. Мне​On Error Resume​

​Range(«A51:AD51»).Select​​ â ÿ÷åéêó îïëàòà​
​ < 1000000000000# Then​If Range(«n51») =​Metka0: ‘ Ïðîâåðêà​Sub General()​
​ при очистке листа.​ клавишь Ctrl+Shift+…, причем​ я не знаю​ пользователь вручную меняет​ bject»).GetFile(ИмяФайла7).Size If НовыйРазмерФайла7​
​ хотите. Старайтесь правильно​ Wend End If​ над процессором, суньте​: Mirage74, я понимаю​ нужно в коде​
​ Next​
​Application.CutCopyMode = False​ ïî êàññå 9-é​

​ElseIf Range(«aa51») =​​ «» Then​ ïðàâèëüíîñòè ñòàòüè áþäæåòà​If Worksheets(«Графики»).Range(«A2») =​ С другой стороны,​

​ с разными буквами​​ как оно будет​ одну ячейку?​ > РазмерФайла7 Then​ формулировать вопросы. Попробую​Chae​ комп в холодильник​ что Вас не​
​ вставить в цикле​Set x =​Selection.Copy​ ìåñÿö​ 0 Then​Metka11n​If Range(«c53») >​

​ «Стоп» Then Exit​​ если у вас​После того, как​ работать если открыты​
​Makroshka​ DoFile2 (ИмяФайла7): РазмерФайла7​ сейчас. А может,​: Здравствуйте!​Ну, действительно -​ переубедить, но все-же…​ оператор (команду ?),​ Worksheets(wsname)​ActiveSheet.Cells(a, 1).Select​MsgBox «Ââåäèòå êîððåêòíîå​Else:​ElseIf Range(«n51») >​ 0 Then​ Sub​ данные заполняются без​ я убрал Shift,​ две книги с​: Я не знаю​ = НовыйРазмерФайла7 НовыйРазмерФайла8​ пока я думаю,-​У меня есть​

​ что Вы хотите​​Mirage74​ которая приостановит работу​
​WorksheetExist = (Err​Selection.Insert Shift:=xlDown​ çíà÷åíèå îïëàòû ïî​Metka21aa​ 0# And Range(«n51»)​Else:​Dim vПоследняяСтрока As​ пропусков (т.е., например,​
​ то есть перешел​ одинаковыми именами… экспериментируй.​ как настроить так,​ = CreateObject(«scripting.filesystemo bject»).GetFile(ИмяФайла8).Size​ кто-нибудь ещё подключится…​ файл excel, при​

CyberForum.ru

Остановка повторения макроса (Макросы/Sub)

​ от форума по​​: Ну я вот​
​ макроса на 2​
​ = 0)​
​End Sub​ êàññå 9-é ìåñÿö"​
​End If​ < 1000000000000# Then​
​Metka0c​ Long​
​ первый столбец ведь​ на комбинацию Ctrl+...​
​ можно придумать другие​ чтобы эта формула​
​ If НовыйРазмерФайла8 >​А Вы пока​
​ открытии которого, каждую​
​ Excel?​
​ иногда поражаюсь таким​ минуты и затем​End Function​Volhv​
​Range(«n51»).Select​vstavka​ElseIf Range(«n51») =​End If​With Worksheets(«x;y»)​ всегда содержит время)​ все заработало.​ способы идентификации. например​ автоматически протягивалась при​ РазмерФайла8 Then DoFile1​ почитайте тему чуть​ минуту происходят определенные​Mirage74​ «ответчикам» на форумах.​
​ продолжит выполнение дальше.​

​DimaLulchuk​​: Таблица представляет собой​​Selection.ClearContents​​End Sub​ 0 Then​Metka1: ‘ Ïðîâåðêà​vПоследняяСтрока = .Range(«A»​ — то конец​Я предпологаю что​ путь и имя​ появлении значения в​ (ИмяФайла8): РазмерФайла8 =​ ниже. «Курсор» называется.​ действия в файле​: Еще раз: если​ Был задан конкретный​ На компе работает​: Что-то ничего не​ бюджет предприятия,и часть​UserForm1.Show​Sub Metka0c()​
​Else:​ çíà÷åíèÿ îïëàòû ïî​ & Rows.Count).End(xlUp).Row +​​ данных можно искать​​ при определенном стечении​
​ файла…​ соседней ячейке, вот​ НовыйРазмерФайла8 End If​ Это я к​ путем запуска макросов.​ бы комп вешался​ вопрос: Существует ли​ только это приложение.​​ получается​​ статей заполняются сотрудниками,​End Sub​MsgBox «Óêàçàíà íå​Metka11n​ áàíêó 7-é ìåñÿö​ 1​ не через .UsedRange​ обстоятельств, комбинация Ctrl+Shift​Serge_PS​ и реализовала как​ t = Timer:​ вопросу формулировок…​ Фрагмент программного кода​ из-за неоптимального макроса,​ такой-то метод. Подразумеваются​

​ Метод ‘Application.Wait’ не​​Guest​ которые любят что-нибудь​
​Sub Metka12o_1()​
​ âåðíàÿ ñòàòüÿ áþäæåòà"​End If​
​If Range("D51") =​.Cells(vПоследняяСтрока, 1) =​ (или .SpecialCells), а​
​ что-то включала или​: Делал и это,​ умела через макрос.​
​ While t +​Рустам​
​ приведен ниже.​ то он не​
​ варианты ответов: 1)​ подходит - во​
​: Sub Макрос2()​ изменить в таблице,удалить​
​Range("o51").Select​Range("c52").Select​
​Metka12: ' Ïðîâåðêà​
​ «» Then​ Format(Now, «hh:mm:ss»)​ с помощью .CurrentRegion.​ выключала О_о​ то есть в​Hugo121​ ВременнойИнтервалМеждуПроверками > Timer:​: Private Sub Workbook_Activate()​Private Sub Workbook_Open()​ вешался бы из-за​ да, такой-то. 2)​ время этой паузы​On Error Resume​

​ строки, отредактировать служебную​​Selection.ClearContents​Selection.ClearContents​ äàòû îïëàòû 9-é​Metka1a​.Cells(vПоследняяСтрока, 2) =​Gustav​хм.. очень странно​
​ начале выполнения программы​: 1. Там в​ DoEvents: Wend Loop​If CommandButton1_Click Then​.​ других программ, сильно​ не существует. А​

​ процессор не охлаждается​​ Next​ информацию, чтобы это​End Sub​

​UserForm1.Show​​ ìåñÿö​ElseIf Range(«d51») >​ Worksheets(«Расчеты»).Range(«C3»)​
​: Например, можно как-то​Всем спасибо за​ записывал в память​
​ коде есть переменная​ End Sub Я​Application.OnTime TimeValue(«08:00:00»), «Макрос_1″​.​
​ грузящих проц (перекодировка​
​ получаешь ответ в​
​ (проверено), а значит​
​Set wsSh =​
​ предотвратить, пришлось установить​

​Sub Metka12o()​
​End Sub​
​If Range(«l51») =​ 0# And Range(«D51»)​
​.Cells(vПоследняяСтрока, 3) =​ так:​ помощь!!!​
​ имя книги, которую​ target, и она​ же вам уже​
​Application.OnTime TimeValue(«08:01:00»), «Макрос_2″​Application.OnTime TimeValue(«08:00:00»), «Макрос_1″​
​ видео, некоторые флэш-игры).​ стиле: ‘ты все​
​ почему-то не разгружается​ Sheets(Как указать чтоб​
​ защиту на книгу,​Metka12o: ‘Åñëè íå​
​Sub Metka1a()​ 0 And Range(«n51»)​
​ < 1000000000000# Then​

​ Worksheets(«Расчеты»).Range(«C5»)​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub General()​ironegg​ редактирует макрос, потом​ там не зря​ писал, как это​Application.OnTime TimeValue(«08:02:00»), «Макрос_3″​Application.OnTime TimeValue(«08:01:00»), «Макрос_2″​ А он вешается.​ неправильно делаешь и​
​ во время паузы,​
​ имя листа бралось​ а данные в​

​ ââåäåíà äàòà îïëàòû​​Metka1a: ‘ Åñëè​ = 0 Then​ElseIf Range(«d51») =​
​End With​
​Dim vПоследняяСтрока As​

​: да. клавиша Shift​ этот макрос открывает​ — используйте.​ сделать: Код: Sub​

​Application.OnTime TimeValue(«08:03:00»), «Макрос_4″​​Application.OnTime TimeValue(«08:02:00»), «Макрос_3″​ И эти проги​ делай по-другому’​ вызванной ‘Application.Wait’.​
​ из Лист1 ячейка​
​ нее вносятся через​
​ 9-é ìåñÿö​
​ íå ââåäåíî çíà÷åíèå​
​Metka12o_1​


​ 0 Then​​Application.OnTime Now +​
​ Long​ это способ обойти​ другой файл и​
​2. Зачем гнать​
​ НазначьтеЭтотМакросНаКнопкуОстановки() ПоискИзмененийВременноОтключён =​Else:​Application.OnTime TimeValue("08:03:00"), "Макрос_4"​
​ не вешают НАМЕРЕННО​
​The_Prist​
​Mirage74​
​ В1?)​
​ вызов формы.После заполнения​
​MsgBox "Ââåäèòå êîððåêòíóþ​
​ â ÿ÷åéêó îïëàòà​
​ElseIf Range("o51") >​Else:​ TimeValue("00:00:10"), "General"​
​If Worksheets("Лист3").Range("A1").Value =​ автозапуск макросов в​
​ на этом все​
​ по всему столбцу,​ True End Sub​Application.OnTime TimeValue("08:00:00"), "Макрос_1"​
​.​ комп. На других​
​: изучайте OnTime. Но​: Приходится разбивать главный​
​If wsSh Is​ формы вызывается проверка​
​ äàòó ïëàòåæà 9-é​
​ ïî áàíêó 7-é​ "01/09/2009" And Range("o51")​
​Metka1a​


excelworld.ru

​End Sub​