Всё. Понял. Дописал код по своему.  Теперь корректно идет проверка.

Здравствуйте всем! Позвольте поднять тему.
Подскажите почему, если контрольная сумма начинается с нуля, то горит красным.Как исправить?

Спасибо. Подошла первая

Добрый день! Имеется список и форма для поиска начинающая работать после ввода трех символов. Как сделать чтобы она сама закрывалась после выполнения поиска?

Все. Спасибо. Разобрался с этим.  А вот как второй блок с комобоксами для других данных установить на эту-же форму?  

Я не пойму куда это вставить?

Спасибо! То, что нужно! А можно еще объяснить какая команда указывает на запись значений  в ячейки B1 и B2

Добрый вечер! Объясните пожалуйста. Почему так? Есть список с удалением использованных элементов I2:I19 с именем "вид". В форме есть 2 CoboBox, при выборе из диапазона "вид" какого либо значения оно должно записываться в ячейку таблицы  B1 или B3, но почему-то записываются значение находящееся ниже по списку.
А если можете - поправьте пожалуйста.

Спасибо. Оба варианта подходят.

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

Ну и ладно. Прийдется  вводить вручную.

Добрый вечер! Помогите. На форме есть календарь, но при перезапусках файла он начинает понемногу увеличиваться в размерах и выходит за предел формы. В чем дело?

Спасибо! То что нужно!

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

Добрый всем вечер! Помогите сделать проверку в форме на количество введенных цифр ( для СНИЛС 11 цифр). При вводе менее 11 окно подсвечивается, а при 11 становится снова белым. и при нажатии на "ввод" появлялось в ячейке  А1

Спасибо. Оба варианта подошли. Первый на узе созданные блоки, а второй  при создании..

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

О,  и мне пригодилось.

Добрый день!
Имеется файл данных (может находиться в любом месте на компьютере или даже в локальной сети).
Как написать в макросе строку запроса на путь и файл для импорта? Т.е. вызвать проводник и там указать файл и где он находится.

Спасибо. В самую точку!

EXCEL 2013 пишет "Неверная функция"

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

Спасибо! Помогло!

Почему-то я в оглавлении не вижу тему и сам пост

А в файле с которым я работаю, при сохранении подсвечивается строка

Доброе утро!
В книге 2 листа с разными табличками. Имеется макрос сохранения листа в отдельный файл. В нем не указывается имя листа на котором он работает,  я понимаю, что на активном.
На Лист1 сохранение идет правильно, а на Лист2 сохраняется все равно Лист1.
Поправьте пожалуйста или скажите как сделать чтобы сохранялся Лист2.

Благодарю.

Добрый вечер всем и с Новым годом!
Нужно из одного файла скопировать данные в другой файл не открывая файл источник вручную.
Напишите пожалуйста код как из  "Книга 1", открыть "Книга 2" лежащую в одной паке с "Книга 1"  

Добрый день! Внесите пожалуйста изменения в макрос

Sub CopyTable()    Dim wbSource As Workbook, wbDestination As Workbook
   Dim myTable As Range, myNewTable As Range, Cell As Range
   
   Application.ScreenUpdating = False
   
   Set wbSource = ThisWorkbook
   Set myTable = wbSource.Worksheets(1).Range("A2").CurrentRegion
   Set wbDestination = Workbooks.Add
   
   myTable.Copy
   wbDestination.Worksheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
   wbDestination.Worksheets(1).Range("A1").PasteSpecial xlPasteValues
   wbDestination.Worksheets(1).Range("A1").PasteSpecial xlPasteFormats
   
   Set myNewTable = wbDestination.Worksheets(1).Range("A2").CurrentRegion
   
   For Each Cell In myTable
       myNewTable.Range(Cell.Address).Interior.Color = Cell.DisplayFormat.Interior.Color
   Next Cell
   myNewTable.Cells(1, 1).Select
   Application.CutCopyMode = False End Sub

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

Спасибо! То что нужно!