Добавление введенного значения на другой лист

[Barbarian12]

Добрый день!

Помогите, пожалуйста, добавить макрос, который при добавлении значений в желтые ячейки во вложенном файле и нажатии кнопки "добавить" переносил данные во второй лист, предварительно осуществив проверку ячейки с введенным по столбцу Е второго листа ИНН. Если по поиску ничего не найдено, выводилось сообщение "Клиент добавлен" и желтые ячейки обнулялись, если повторение нашлось - сообщение "Клиент уже прикреплен к ФИО ПМ (где ФИО берется из столбца С второго листа, где нашлось искомое значение).

Спасибо.

[RAN]

Код Выделить Развернуть

Private Sub CommandButton1_Click()
With Sheets(2)
Set Rng = .Range(.Cells(4, "E"), .Cells(Rows.Count, "E").End(xlUp))
If WorksheetFunction.CountIf(Rng, [D6]) > 0 Then
MsgBox "Уже есть": Exit Sub
Else
.Cells(Rows.Count, "C").End(xlUp).Offset(1).Resize(, 4).Value = [B6:E6].Value
MsgBox "Добавлено"
End If
End With
End Sub

[Barbarian12]

Есть файлик, с которым работает сразу несколько человек, занося ту информацию о своих клиентах (напротив каждого клиента стоит ФИО сотрудника, их внесшего). Вносится все это по специальной форме (см. файл), а сама инфо о клиенте поступает на другой скрытый лист. Необходимо как-то привязать учетную запись, из под которой заходит сотрудник к его клиентам, т.е. чтобы при нажатии на кнопку, каждому сотруднику выгружался список только его клиентов.

Возможно ли сделать так, чтобы при нажатии кнопки, макрос вытаскивал учетную запись человека, сверял ее с ФИО менеджера (колонка С второго листа) и выгружал только тех клиентов, напротив которых стоит его фамилия?

[Barbarian12]

Более-менее разобрался, но не до конца.

В файле есть две формы: первая - кнопочка чуть выше, по нажатии которой, введенный клиент добавляется в лист "база клиента" и в колонке О автоматом проставяется имя учетной записи пользователя, внесшего клиента. Необходимо чтобы по нажитии на кнопку "показать клиентов" выгружались только те клиенты, имя которых совпадает с именем пользователя, открывшего файл. Сейчас это работает немного через одно место, т.к. в макросах плохо ориентируюсь и просто написал формулу и записал макрос. Когда был маленький список, все было хорошо, но когда кол-во значений перевалило за тысячу, формула начала подтормаживать и приходится искать альтернативный, более простой путь. Помогите, пожалуйста

P.S. Если сейчас нажать на кнопку "показать клиентов" вывалятся нулевые значения, т.к. по нажии на кнопку имя учетной записи проставляется на листе "база клиентов" в ячейке P1.
(изменил файл, т.к. спутал колонки с учетной записью)