Проверка диапазона на наличие значений в определенных ячейках

[caustic_]

Добрый день!

хочу обратиться за помощью в написании макроса

есть небольшая табличка со студентами.
наименование и несколько столбцов со значениями.

И у меня уже есть макрос который проверяет значение каждой ячейки в диапазоне C:G по каждой строчке, и если хоть одна окажется со значением <=0 (либо пуст.ячейка = 0), ячейка 1ого столбца закрашивается в красный цвет:

Sub RedColor()
Dim lLastRow As Long

    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim s As Range
    For Each s In ActiveSheet.Range("C2:G" & lLastRow)
                If IsNumeric(s) Or IsEmpty(s) Then
            If s <= 0 Then Cells(s.Row, 1).Interior.Color = vbRed
        End If
    Next

End Sub

Трудность в том, что его нужно научить мыслить немного шире:

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

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

с уважением

[Serge 007]

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

...нужно проверять значения в ячейках напротив студента.
Т.е. важно, чтобы именно по этим колонкам (шапки которых прописаны в одноименных со студентами вкладках (студент1, студент2 и тп) проверялось заполненность положительными значениями.

Но ведь в листах студентов нет никаких значений?
Так что проверять-то?

[caustic_]

Сообщение от Serge 007

Но ведь в листах студентов нет никаких значений?
Так что проверять-то?

в листах с именами студентов (студент 1, студент 2, студент 3) есть список - это часть шапки таблицы из 1ого листа

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

P.S. предвидя возможное предложение сразу скажу: УФ к сожалению не подойдет. его нельзя прописать в макросе. а это ключевое условие

[Serge 007]

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

...УФ к сожалению не подойдет. его нельзя прописать в макросе...

caustic_, отрыжка киберфорума?
Юзайте Conditional Formatting в VBA, можно его прописать

[caustic_]

Сообщение от Serge 007

caustic_, отрыжка киберфорума?
Юзайте Conditional Formatting в VBA, можно его прописать

не совсем.
просто знаю вас по тому же кибер-форуму как специалиста в области Excel а не VBA, как вы всегда себя позиционировали

[caustic_]

кстати, макрос решающий мою задачу. может кому нить пригодиться:

Option Explicit 

Sub RedColor() 
Dim lLastRow As Long 
Dim iStudent As String 
Dim iVremDen As String 
Dim iFound As Range 

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row 

Dim s As Range 

For Each s In ActiveSheet.Range("C2:G" & lLastRow) 
If IsNumeric(s) Or IsEmpty(s) Then 
If s <= 0 Then 
iStudent = Cells(s.Row, 1) 
iVremDen = Cells(1, s.Column) 
Set iFound = Sheets(iStudent).Columns(1).Find(iVremDen, , xlFormulas, xlWhole) 
If Not iFound Is Nothing Then 
Cells(s.Row, 1).Interior.Color = vbRed 
End If 
End If 
End If 
Next

[Serge 007]

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

... знаю вас по тому же кибер-форуму как специалиста в области Excel а не VBA, как вы всегда себя позиционировали

Времена меняются
Теперь и VBA балуемся