База оборудования. Помогите.

[petrzhebin]

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

[vefer]

Не лучше ли это все в каком нибудь акцессе сделать?

[IgorGO]

если на несколько отдельных позиций выписывается 1 гарантийный талон - никуда не деться от необходимости заполнять соответсвующее количество строк
а вот по двойному клику получение в бланк всех позиций по данному гарантийному, а не только той, по которой кликнули - это практически стандартная задача и решается она довольно легко.

[petrzhebin]

Сообщение от IgorGO

если на несколько отдельных позиций выписывается 1 гарантийный талон - никуда не деться от необходимости заполнять соответсвующее количество строк
а вот по двойному клику получение в бланк всех позиций по данному гарантийному, а не только той, по которой кликнули - это практически стандартная задача и решается она довольно легко.

Сейчас у меня решается так:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Target.Column = 2 And Target.Row > 2 Then
        Select Case MsgBox("Заполнить гарантийный талон?", vbYesNo + vbQuestion, "Подтвердите действие")
            Case vbYes
                Cancel = True
                Dim sh As Worksheet, c1 As Range: Set sh = ActiveWorkbook.Worksheets("ГарТалон")
                If sh Is Nothing Then Beep 100, 100: MsgBox "Отсутствует лист ГарТалон", vbCritical, "Ошибка": Exit Sub
                Set c1 = Target.EntireRow.Cells(1)

                ' на всякий случай сначала очищаем ячейки (чтобы заведомо избавиться от прежних данных)
                sh.Range("номер").FormulaR1C1 = ""
                sh.Range("дата").FormulaR1C1 = ""
                sh.Range("предприятие").FormulaR1C1 = ""
                sh.Range("город").FormulaR1C1 = ""
                sh.Range("наименование").FormulaR1C1 = ""
                sh.Range("серийник").FormulaR1C1 = ""
               
                ' записываем значения (полям в КАРТОЧКЕ присвоены имена)
                sh.Range("номер").Value = c1.Offset(, 1).Value
                sh.Range("предприятие").Value = c1.Offset(, 6).Value
                sh.Range("дата").Value = c1.Offset(, 0).Value
                sh.Range("город").Value = c1.Offset(, 7).Value
                sh.Range("наименование").Value = c1.Offset(, 2).Value & " " & c1.Offset(, 3).Value
                sh.Range("серийник").Value = c1.Offset(, 4).Value
                
                sh.Activate    ' активируем лист КАРТОЧКА
                Beep 800, 50
            Case Else
                Cancel = False
        End Select
    End If
End Sub

А как с добавлением второй строки? Раз это действительно просто.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[IgorGO]

если есть 2 строки с одним гарантийным - логично допустить, что их может быть и больше
и задачу есть смысл решать не на добавление 2-й строки, а на добавление ВСЕХ строк с данным гарантийным.
замечательный макрос, но нужен пример файла для понимание того что и куда писать

[petrzhebin]

Сообщение от IgorGO

если есть 2 строки с одним гарантийным - логично допустить, что их может быть и больше
и задачу есть смысл решать не на добавление 2-й строки, а на добавление ВСЕХ строк с данным гарантийным.
замечательный макрос, но нужен пример файла для понимание того что и куда писать

Только пришлось поддержку маркоса отключить чтоб сюда выложить