Доброго вечера форумчане.
Появилась нужда реализовать несколько условий проверки в одной ячейке, а так как книга в общем доступе рассматриваются только формулы, на форуме ничего похожего не нашел. Может кто подскажет без VBA это возможно реализовать или нет?
Пример; в ячейку можно вносить данные дат от 01.01.2021 до 31.12.2021 либо одно определенное слово, например СТОП. Если пользователь указал неправильный год либо написал другое слово либо вышеуказанное слово "СТОП" внёс с орфографическими ошибками, вылетает предупреждение о не корректности внесенных данных.  

Доброй ночи форумчане, подскажите пожалуйста что за глюк в Exel 2016, один раз записал макрос и сохранил в книге Personal, теперь постоянно с любой книгой дополнительно самопроизвольно открывается книга Personal.xlsb, удаление макроса не помогло, переключиться в книгу почему-то то-же не получается. Что это может быть???????????

Доброго дня.
Подскажите уважаемые гуру по Exel.
Как открыть макросом из книги Exel облачный диск который расположен на локальном диске ну например на диске K?

При попытке ввести в ячейку любую информацию книга, Exel 2013, закрывается "Прекращена работа Microsoft Exel" или перезагружается, другие книги работают без проблем, пробовал скопировать всю таблицу в новую созданную книгу проблема повторяется. Также на другом компьютере проблемная книга работает без проблем, правда с Exel 2010.
Что это может быть и возможно ли восстановить работоспособность таблицы?

Есть макрос записанный рекордером, как его заставить работать на всех листах книги. Код прилагается.

Sub Сортировка1()
'
' Сортировка1 Макрос
'
   Range("B76:E83").Select
   Range("B83").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B76:B83") _
       , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "По возрастанию", DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("B76:E83")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   Range("B69:E73").Select
   Range("B73").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B69:B73") _
       , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "По возрастанию", DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("B69:E73")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   Range("B59:E66").Select
   Range("B66").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B59:B66") _
       , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "По возрастанию", DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("B59:E66")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   Range("H76:K80").Select
   Range("H80").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H76:H80") _
       , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "По возрастанию", DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("H76:K80")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   Range("H59:K73").Select
   Range("H73").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H59:H73") _
       , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "По возрастанию", DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("H59:K73")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   ActiveWindow.SmallScroll Down:=-24
   Range("H31:K54").Select
   Range("H54").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H31:H54") _
       , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
       "По возрастанию", DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("H31:K54")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   ActiveWindow.SmallScroll Down:=-12
   Range("H5:K28").Select
   Range("H28").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H5:H28"), _
       SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="По возрастанию" _
       , DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("H5:K28")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   ActiveWindow.SmallScroll Down:=18
   Range("B5:E54").Select
   Range("B54").Activate
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B5:B54"), _
       SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="По возрастанию" _
       , DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Лист1").Sort
       .SetRange Range("B5:E54")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   ActiveWindow.SmallScroll Down:=-42
   Range("A2").Select
 
End Sub