Помогиет написать простенький макрос

[Vit981]

Доброго всем дня!
Прошу помощи в написании макроса.
Для профи задача совсем не трудная, только я не профи

Дано:
Два листа - "Квитанция" и "Клиенты"
Задача:
После того, как пользователь заполнит все данные в квитанции, по нажатию кнопки должно происходить следующее:
Данные из Листа "Квитанция" (ячейки ФИО и место жительства) добавляются в лист "Клиенты" (в ячейки ФИО и место жительства соотвественно), НО клиенты не должны повторяться! При успешном добавлении - msgbox "Добавлено", при совпадении ФИО msgbox "Клиент уже есть". Еще должен автоматически ставится номер клиента.

Заранее благодарен всем откликнувшимся!

ps за мою кнопку сильно не ругайте - ибо чайник

[аналитика]

вместо своего квазимакроса подставишь этот:

Sub М1()
   Dim FIO As String, MestoJitelstva As String
   Dim i As Long, lr As Long
   
   FIO = Range("J13")
   MestoJitelstva = Range("J15")
   
   With Sheets("Клиенты")
      lr = .Range("B" & Cells.Rows.Count).End(xlUp).Row
      
      For i = 1 To lr - 3
         If FIO & MestoJitelstva = .Cells(3 + i, 2) & .Cells(3 + i, 3) Then
            MsgBox "Клиент уже есть"
            Exit Sub
         End If
      Next i
      
      .Cells(lr + 1, 1) = lr - 2
      .Cells(lr + 1, 2) = FIO
      .Cells(lr + 1, 3) = MestoJitelstva
      MsgBox "Добавлено", , "№ клиента в списке - " & lr - 2
   End With
End Sub

[Vit981]

СПАСИБО ОГРОМНОЕ!!!!!!
Только небольщая проблемка - если попробовать в Open office, то после добавления курсор становиться на листе "Клиенты" в ячейку J13

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

ps сам добавил кнопку "печать" - сильно за неё не ругайте, если что не так - но, кнопка работает

[аналитика]

по поводу Open office - вопрос мимо.
Выпадающий список тебе усовершенствовал - он забирает значения со 2-го листа (ч/з именованный диапазон), алгоритм точно такой же как и с клиентами:

[Vit981]

Спасибо тебе, умный человек!
Только вот услуги непойму как работают. Нужно, что бы они считались, т.е допустим копирование - 35, если добавляем еще одного клиента, то +1, т.е 36 и т.д

[аналитика]

Только вот услуги непойму как работают

диспетчер имен открой, там будет имя "Услуги" - используется формула СМЕЩ + СЧЁТЗ, чтобы подтягивать все услуги.

тебе нужно знать общее кол-во услуг или пронумеровать их как клиентов?

[Vit981]

Нужно колличество услуг, независимо от клиентов.

[аналитика]

напиши в любую ячейку не столбца "E" формулу
=СЧЁТЗ($E:$E)-1
-1 - это заголовок.

[Vit981]

Благодарю!

[ALEKS2008]

опишите где ошибка. СПАСИБО