Управление условным форматированием

[valerij]

SAS888
При работе, выявились недостатки, самой концепции сверки.
Все объяснения в аттаче.

[valerij]

Вот как у меня получилось, дюже просто(сам удивляюсь), может не верно?
Но это пол задачи, пояснение в аттаче, файл Prover.xls

[SAS888]

Посмотрите вложение. Запустите макрос "Sum".
Сделал для первого листа. Если надо, задайте цикл по нужным листам. Обратите внимание, что поиск ведется не по столбцу "C" листа "НАКЛ", а по столбцу "IU", т.к. в файле-источнике (на ячейки которого идут ссылки) данные находятся в различных (каких попало) форматах.

[valerij]

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

Посмотрите вложение. Запустите макрос "Sum".
Сделал для первого листа. Если надо, задайте цикл по нужным листам. Обратите внимание, что поиск ведется не по столбцу "C" листа "НАКЛ", а по столбцу "IU", т.к. в файле-источнике (на ячейки которого идут ссылки) данные находятся в различных (каких попало) форматах.

SAS888
Вообщем сделал цикл, вставил в макрос книги:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
--------------------------------
With Sh.Range("I10:I15").Offset(iCount& * 48)
.FormulaR1C1 = "=IF(COUNTIF(НАКЛ!R2C255:R619C2 55,R[-7]C)>0,R[-7]C,0)"
.Value = .Value
End With

Получилось нормально, т. е. задействован тот период в котором работаешь, очень экономит время, а как сделать, привязать макрос "Sum()", таким же образом??

C и IU я понял, исправлю!

[SAS888]

Да просто в конце Вашего цикла (до "End With") можно вставить

Run "Sum"

Только в коде макроса Sum заменить Sheets(1) на точку (.)

[valerij]

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

Только в коде макроса Sum заменить Sheets(1) на точку (.)

Все, Sheets(1) которые есть в макросе, менять Sheets(.)?
Если да, то красным становится
If Sheets(.).Cells(i, "I") <> "" And Sheets(.).Cells(i, "I") <> 0 _
And Sheets(.).Cells(i, "I").HasFormula Then myCollect _
.Add Sheets(.).Cells(i, "I").Value, CStr(Sheets(.).Cells(i, "I").Value)

[SAS888]

Не на Sheets(.), а просто на точку. Например:

If .Cells(i, "I") <> "" And .Cells(i, "I") <> 0 _
        And .Cells(i, "I").HasFormula Then myCollect _
        .Add .Cells(i, "I").Value, CStr(.Cells(i, "I").Value)

т.е. если With Sh ............. End With, то внутри блока Sh опускаем.
Не Sh.Cells(x, y), а .Cells(x, y)

[valerij]

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

Не на Sheets(.), а просто на точку. Например:

If .Cells(i, "I") <> "" And .Cells(i, "I") <> 0 _
        And .Cells(i, "I").HasFormula Then myCollect _
        .Add .Cells(i, "I").Value, CStr(.Cells(i, "I").Value)

т.е. если With Sh ............. End With, то внутри блока Sh опускаем.
Не Sh.Cells(x, y), а .Cells(x, y)

SAS888!
Все равно, ошибка, блин
Compile error:
Invalid or unqualified reference
(Компилируйте ошибку:
Нетрудоспособная или неквалифицированная ссылка)

[SAS888]

Прошу прощения. Нужно в процедуру Sum передавать параметр Sh.
Это можно сделать, например, так:

Sub Ваш_макрос()

    Dim Sh As Worksheet
'
'
'Я не знаю, как у Вас организован цикл по нужным листам
'поэтому, пусть есть массив MyArray() с именами нужных листов
'Тогда так:
'
    For i = LBound(MyArray) To UBound(MyArray)
        Set Sh = ActiveWorkbook.Sheets(MyArray(i))
        Call Sum(Sh) 'Вызов подпрограммы Sum с параметром Sh
    Next

End Sub

Sub Sum(Sh) 'Это сама подпрограмма

'Например

    With Sh
        .Cells(1, 1) = 111 'Ввод в ячейку "A1" значения 111
        .Cells(2, 2) = 222 'Ввод в ячейку "B2" значения 222
    End With

End Sub

[valerij]

SAS888
О!!!
Темень.
Вставь, пожалуйста САМ, тебе это секунды