Сопоставление и добавление данных по условию

[tt8989]

Уважаемые знатоки экселя, помогите решить проблему:

есть два списка "план" и "факт", нужно к "плану" подтянуть факт (т.е. на листе "план" должен появиться столбец с "фактом";

трудности:
- 2 критерия для сравнения
- в "факте" есть критерии которых нет в "плане" (отсутствующим критерием может быть как первый так и второй либо оба), а нужно чтобы строка в которой отсутствует хотябы 1 критерий добавились в "план" (либо в конец списка, либо в то место где они подходят по алфавиту")

сводная таблица не подходит, нужно именно добавить данные на лист "план"

основная проблема написать код, который будет автоматически добавлять недостающие строки

реализация нужна либо в 2003 либо в 2007 экселе

во вложение пример файла (короткий)

Заранее благодарен за любую помощь!

[R Dmitry]

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

Уважаемые знатоки экселя, помогите решить проблему:

есть два списка "план" и "факт", нужно к "плану" подтянуть факт (т.е. на листе "план" должен появиться столбец с "фактом";

трудности:
- 2 критерия для сравнения
- в "факте" есть критерии которых нет в "плане" (отсутствующим критерием может быть как первый так и второй либо оба), а нужно чтобы строка в которой отсутствует хотябы 1 критерий добавились в "план" (либо в конец списка, либо в то место где они подходят по алфавиту")

сводная таблица не подходит, нужно именно добавить данные на лист "план"

основная проблема написать код, который будет автоматически добавлять недостающие строки

реализация нужна либо в 2003 либо в 2007 экселе

во вложение пример файла (короткий)

Заранее благодарен за любую помощь!

так подойдет ?
если не получиться переделать под Реальный файл, обращайтесь...
реквизиты в подписи

[IgorGO]

вставте этот

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Lr As Long, R As Long, Sm As Single
  If Target.Column <> 3 Then Exit Sub
  Lr = Cells(Rows.Count, 1).End(xlUp).Row
  Sm = Application.Evaluate("SumProduct((A2:A" & Lr & "=A" & Target.Row & _
  ")*(B2:B" & Lr & "=B" & Target.Row & ")*C2:C" & Lr & ")")
  With Sheets("план")
    Lr = .Cells(Rows.Count, 1).End(xlUp).Row - 1
    ex = "max((план!A2:A" & Lr & "=A" & Target.Row & _
     ")*(план!B2:B" & Lr & "=B" & Target.Row & ")*row(план!A2:A" & Lr & "))"
    R = Application.Evaluate(ex)
    If R = 0 Then
      For R = 2 To Lr
        If .Cells(R, 1) > Cells(Target.Row, 1) Then Exit For
        If .Cells(R, 1) = Cells(Target.Row, 1) And _
           .Cells(R, 2) > Cells(Target.Row, 2) Then Exit For
      Next
      .Rows(R).Insert Shift:=xlDown
      .Cells(R, 1) = Cells(Target.Row, 1)
      .Cells(R, 2) = Cells(Target.Row, 2)
      If .Cells(R - 1, 1) = .Cells(R, 1) Then .Range(.Cells(R, 1), .Cells(R, 4)).Borders(xlEdgeTop).Weight = xlThin
      If .Cells(R + 1, 1) <> .Cells(R, 1) Then .Range(.Cells(R, 1), .Cells(R, 4)).Borders(xlEdgeBottom).Weight = xlMedium
    End If
    .Cells(R, 4) = Sm
  End With
End Sub

в модуль листа ФАКТ. имитируйте изменение значения в 3-й колонке листа факт (не обязательно изменять значение, достаточно поставить курсор в ячейку и нажать Enter) поменяли значение? изучайте лист план.