Нельзя ли объяснить смысл:
       Err.Clear: Uniq.Add Arr1(b, 1), CStr(Arr1(b, 1))
       If Err Then Uniq1.Add Arr1(b, 1), CStr(Arr1(b, 1))
И прошу прощение за тривиальный вопрос (мало опыта), а зачем Err.Clear: Uniq.Add Arr1(b, 1), CStr(Arr1(b, 1)) (я так понимаю, при возникновении ошибки происходит очищение). Почему нельзя сразу указать Uniq1.Add Arr1(b, 1), CStr(Arr1(b, 1)). Мы же объявили две коллекции.

Спасибо за комментарии и за предложенный вариант.

Добрый день, форумчане! Прошу Вас оказать помощь в решении следующей задачи (на форуме необходимый вариант решения не нашел): есть два столбца с данными на разных листах. Необходимо сравнить два столбца друг с другом и в случае, если есть число, которое присутствует только в одном из 2-х столбцов, вывести это число на Лист3.
Есть файл, в котором есть начало программы - необходимо грамотное завершение (ВАЖНО - завершение именно данного варианта с помощью массива и без использования справочника).

Спасибо.

для чего в Dim используете # и & (lRow&, i&, j&, dBeg#, dFin#, dTmp#)

Спасибо. Если я правильно Вас понимаю, то в данном случае лучше вообще не указывать тип данных (по умолчанию будет Variant)? Ваш пример я обязательно посмотрю и уверен, что из него извлеку для себя новое и полезное.  

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

Добрый день, Георгий! Возможно поможет данный макрос:

Спасибо Всем за помощь.

Претензии приняты и учтены.

Спасибо всем за помощь. До скорой связи.  

Leanna, отдельное спасибо за комментарии к вопросам и за оперативность в ответах.

Спасибо ))). Хотел бы уточнить ряд ньюансов по данному макросу:
1) для чего в коде используется iQ = iQ + 1
        If Cells(i, 1) & Cells(i, 2) = txtBase & txtData Then
            iSum = iSum + Cells(i, 3)
           iQ = iQ + 1
        End If
Если отключить данную строку, ровным счетом ничего не меняется (или я не прав).

2) при вводе названия правильной базы и не правильной даты (если не использовать комбобокс, за что еще раз спасибо), высвечивается Сумма выдач =, а не "Не корректно введены данные ". Эксперементировал, ничего дельного не получатся.

Спасибо за ответ на 2 вопрос. Завтра постараюсь разобраться с вопросом 1 (если у Вас есть соображения, поделитесь). Возможно необходима будет помощь, обращусь еще раз.
Еще раз спасибо.

Спасибо большое за помощь.
Есть 2 ньюанса:
1) как написать в макросе, что если название базы введено верно, а дата нет, сообщение об ошибке (например, есть база "Проверено" и к ней относится только дата 20.01.2013, но вводим вместо 20.01.2013 любую другую дату)
2) сейчас только один раз можно ввести данные в форму (чтобы ввести повторно и получить результат необходимо закрыть форму и затем заново запустить). Можно ли обнулять информацию, вносить ее заново и получать ответ без закрытия форму?
Спасибо за помощь и содействие

Спасибо, но при вводе названия базы и даты (в данном случае они в одной строке), сумма не выводится. Выводится сообщение сообщение об ошибке и подсвечивается MsgBox iSum.

Еще раз спасибо за отклик. Сумма выводится на форму под кнопкой "Результат" (Toolbox - Label - в файле name - LabelSum)

Добрый день, форумчане! Прошу Вас оказать помощь в написании макроса (файл с формой прилагается). Использование фильтров не подходит.
Есть 3 столбца на 1 листе. Через форму вводится название базы (независимо от регистра), дата. Если база и дата совпадают (в одной строке и обязательно введена база и дата), то выводится результат столбца "Выдано" анологичной строки. Если результатов несколько - то сумма результатов столбца "Выдано".
Прошу по возможности вкратце указать комментарии.
Заранее огромное спасибо.