extrafant, добрый день. Я, наверное, что-то не так понял, но нужна ли мера, может базовая сумма по столбцу подойдет для конкретного примера.

Lego5y, добрый день. https://www.planetaexcel.ru/techniques/8/16952/  - Преимущество 2. Подсчёт количества уникальных значений

Но для начала, наверное , стоит ознакомиться

nivini, добрый день. С помощью Power Query

sir go, вы не обижайтесь, но Вы пытаетесь что-то сделать не зная базовых основ синтаксиса VBA.
Зачем-то добавили еще один обязательный аргумент в процедуру col3, размножили строчку не по основам синтаксиса End WithОшибка еще и в том, что в строчке нужно теперь передавать 4 обязательных аргумента, т.к. Вы добавили col3.Я Вам уже дал рекомендацию
Считаю, что на этом этапе можно закончить обсуждения, т.к. Все Ваши попытки совладать с синтаксисом VBA не относятся к заявленной теме.

Нет, не лишены.
Ну значит файл в прошлом сообщении должен подойти.
Удачи)

sir go, Вы, наверное, не до конца поняли, что я от Вас хочу. Вот у Вас комбо1(фио) и комбо2(должность) связаны, выбрав из комбо1 значение, он заполняется в таблицу ниже, и далее через впр(хотя если есть одинаковые фамилии в справочнике, то будет косяк, т.к. впр  тянет только первый встречающийся) подтягивается должность этого фио, а если вводите вручную (нажимаете энтер), то значение подтягивается еще и в database. Так вот комбо2, как должен себя вести при этом, тоже в него вводите значение и нажимаете энтер и тогда вводится значение в database напротив значения из комбо1 или там уже выбрано значение из выпадающего списка?
Короче не совсем понятна логика действий.
Может Вам стоит обратиться в раздел Работа, там куча классных специалистов, которые реализуют все Ваши пожелания.
Но если все комбо независимые то во вложении

sir go, добрый день.
Может и можно. Но я, к сожалению, телепатией не обладаю (а так хотелось бы   ).
Логику Ваших действий опишите, пожалуйста, при взаимодействии комбобоксов между собой, к тому же их стало уже 4 судя по файлу.
В приложенном файле Ваших проб не нашел, может не туда смотрел, конечно.

sir go, Это не глюки. Это срабатывает автозаполнение и далее событие Change. Чтоб это убрать, установите свойства comboboxa в режиме конструктора
MatchEntry    = fmMatchEntryNone
MatchRequired = False
Это кода клавиши Энтер, так как отслеживается событие ComboBox1_KeyDown, то есть нажатие клавиш клавиатуры.

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

Добрый день. Если правильно понял. Новые значения заполняются в справочник по нажатию Enter.

Добрый день. Макрофункция ВЫЧИСЛИТЬ()

vgik1985, найдите 10 отличий, как говорится   :

и вставлено в код

vgik1985, Что именно не работает?

vgik1985, у метода .PrintOut есть аргумент Copies, с ними работайте:
   .PrintOut Copies:=2

vgik1985, не совсем понял последовательность Ваших действий, но, может, проблема в в цикле, а точнее в строчке

.Range("А5") = "GO" & Format(Val(Mid(.Range("А5"), 3)) + 1, "000000")

то есть значение в А5 увеличивается на 1 при каждом проходе цикла, соответственно меняется и штр-код.

АннаО, добрый день. Может достаточно будет обычной сводной таблицы?

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

Добрый день.

Оксиген Ёлкина, вспомнил, где читал : https://www.excel-vba.ru/chto-umeet-excel/kak-podschitat-kolichestvo-povtorenij/ (раздел Особенность при работе с функцией СЧЁТЕСЛИ)

и тут обсуждалось https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=146575&TITLE_SEO...

Добрый день.

Где-то обсуждалось на форуме, что функции типа счетесли, суммесли и т.д неявно преобразовывают значения похожие на числа в числа, из-за этого и не работает корректно, поэтому нужно явно преобразовать значения в текст, например, добавив впереди ' , тогда будет просто COUNTIF($A:$A;A2)>1

rexrainy, добрый день. А зачем там ВПР, может достаточно =СУММЕСЛИМН(Лист2!C2:C297;Лист2!A2:A297;A3)? А может я что-то не так понял, тогда извиняюсь за комментарий.

Cristal, добрый день. Массивная:
=ПСТР(F3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(ПОДСТАВИТЬ("@"&F3;" ";"@");СТРОКА($M$1:$M$300);1)="@";СТРОКА($M$1:$M$300);99999);СТРОКА($N$1:$N$20));НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(ПОДСТАВИТЬ("@"&F3;" ";"@");СТРОКА($M$1:$M$300);1)="@";СТРОКА($M$1:$M$300);99999);СТРОКА($N$2:$N$21))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(ПОДСТАВИТЬ("@"&F3;" ";"@");СТРОКА($M$1:$M$300);1)="@";СТРОКА($M$1:$M$300);99999);СТРОКА($N$1:$N$20)))

korsar_75, может тут https://www.planetaexcel.ru/techniques/3/11772/ найдете ответ?

Элли93, добрый день
=ИНДЕКС(ДВССЫЛ("'РВ ("&$A10&")'!$B$2:$F$4");ПОИСКПОЗ('7. Тех (пов ур)'!$B10;ДВССЫЛ("'РВ ("&$A10&")'!$A$2:$A$4");0);ПОИСКПОЗ('7. Тех (пов ур)'!C$9;ДВССЫЛ("'РВ ("&$A10&")'!$B$1:$F$1");0))

xuk, добрый вечер. Может так?

belsergey, добрый день.

ПавелW, здравствуйте.
«Краткость — сестра таланта»  

Добрый день. Через УФ:
для
=ИЛИ(ОСТАТ(СТРОКА();4)=0;ОСТАТ(СТРОКА();4)=1)

=ИЛИ(ОСТАТ(СТРОКА();4)=2;ОСТАТ(СТРОКА();4)=3)

visors16, добрый день.
Может поможет сообщение 6 и 7 из темы https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=152153

и про это же последнее сообщение https://learn.microsoft.com/en-us/answers/questions/5159578/microsoft-has-blocked-macros-from-runnin...

еще вариант:
=СУММПРОИЗВ(--(МУМНОЖ(--(E11:G382>0);{1:1:1})>0);--(МУМНОЖ(--(B11:D382>0);{1:1:1})=0))
=СУММПРОИЗВ(--(МУМНОЖ(--(E11:G382>0);{1:1:1})>=1);--(МУМНОЖ(--(B11:D382>0);{1:1:1})>=1))
=СУММПРОИЗВ(--(МУМНОЖ(--(E11:G382>0);{1:1:1})=0);--(МУМНОЖ(--(B11:D382>0);{1:1:1})>0))

anchik, может так достаточно?
=СУММПРОИЗВ((--ЕСЛИ(ЕТЕКСТ(D6:D9);ПСТР(D6:D9;1;ПОИСК("/";D6:D9)-1);0)))