Помогите сравнить списки на трех листах

[ignatenko_e]

Здравствуйте! подскажите как сравнить списки на трех листах и выделить цветом те значения, которых нет на первых двух. спасибо

[Aleksandr H.]

топорно но работает.
Пишем формулу

=СЧЁТЕСЛИ(Зелень!$D$3:$D$7;итог!A2)+СЧЁТЕСЛИ(Овощи!$B$3:$B$7;итог!A2)

и основываясь что ее результат = 0 - красим с помощью УФ в желтый

[ignatenko_e]

извините, нужно макросом))

[Aleksandr H.]

Как планируете макросу показывать с какими диапазонами надо сравнивать?

[ignatenko_e]

Сообщение от Aleksandr H.

Как планируете макросу показывать с какими диапазонами надо сравнивать?

диапазоны не динамические

[Aleksandr H.]

Помощь, так себе посколько считает только на одном листе. Данные для сравнения в ячейках H15:I19;K15:L19. Может кто доделает.

Function calcSum(source As Variant, ParamArray vSomething() As Variant) As Double
        calcSum = 0
        Dim tmm As Variant
        Dim i, j
        Dim cel, tm
        For i = 0 To UBound(vSomething, 1)
            Set tmm = vSomething(i)

            Debug.Print tmm.Address
            tm = tmm.Cells.Count
            For j = 0 To tmm.Rows.Count
                cel = tmm.Cells(j, 1)
                If cel = source Then calcSum = calcSum + 1
            Next j
        Next i
End Function

usage

=calcSum(A7;H15:I19;K15:L19)

[ignatenko_e]

Сообщение от Aleksandr H.

Помощь, так себе посколько считает только на одном листе. Данные для сравнения в ячейках H15:I19;K15:L19. Может кто доделает.

Function calcSum(source As Variant, ParamArray vSomething() As Variant) As Double
        calcSum = 0
        Dim tmm As Variant
        Dim i, j
        Dim cel, tm
        For i = 0 To UBound(vSomething, 1)
            Set tmm = vSomething(i)

            Debug.Print tmm.Address
            tm = tmm.Cells.Count
            For j = 0 To tmm.Rows.Count
                cel = tmm.Cells(j, 1)
                If cel = source Then calcSum = calcSum + 1
            Next j
        Next i
End Function

usage

=calcSum(A7;H15:I19;K15:L19)

спасибо большое