Закрасить ячейки

[amadeus017]

Доброго времени суток, уважаемые форумчане!

У меня к вам вопрос, можно ли написать макрос, который бы при условии встречающихся значений в столбике А, окрашивал ячейку по данной строке в столбике N.
Т.е., существует файл, в котором множество листов и листы по разному называются, но если на листе есть определенное условие, то ячейку в по данной строке в столбике N, необходимо окрасить в желтый или зеленый цвет. Раскрасить нужно по всем листам в книге, значение не затираем, только раскрасить.

[Казанский]

Зачем макрос - условным форматированием легко сделать.

[27102014]

Макрос

Sub Colour()

For y = 1 To ThisWorkbook.Sheets.Count
  Sheets(y).Select
 
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row ' счетчик последней строки     
  For i = 1 To lLastRow
          If Cells(i, 1) = "Итого скорректировано по начислениям" Then
          Cells(i, 14).Select
              With Selection.Interior
                  .Pattern = xlSolid
                  .PatternColorIndex = xlAutomatic
                  .Color = 5296274 'зеленый
                  .TintAndShade = 0
                  .PatternTintAndShade = 0
              End With
          End If
          
          If Cells(i, 1) = "Итого скорректировано по предоплатам" Then
          Cells(i, 14).Select
              With Selection.Interior
                  .Pattern = xlSolid
                  .PatternColorIndex = xlAutomatic
                  .Color = 65535 'желтый
                  .TintAndShade = 0
                  .PatternTintAndShade = 0
              End With
          End If
          
          If Cells(i, 1) = "В т.ч. по предоплатам" Then
          Cells(i, 14).Select
              With Selection.Interior
                  .Pattern = xlSolid
                  .PatternColorIndex = xlAutomatic
                  .Color = 65535 'желтый
                  .TintAndShade = 0
                  .PatternTintAndShade = 0
              End With
          End If
      
      Next i
      
    Next y
      
    
End Sub

[amadeus017]

Надо именно макрос, т.к., если я не ошибаюсь, то формат ячеек, нужно делать на каждом листе, а это долго, тогда уж лучше закрасить вручную...
Спасибо большое "27102014", все работает, буду тестить на реальных файлах.

[amadeus017]

Макрос работает, еще раз большое спасибо, только маленький недочет. Данный макрос, приходится копировать в каждый файл (Alt + F11, в "ЭтаКнига"), из другого файла, макрос не запускается (выдает ошибку). Однако, это лучше чем вручную "лопатить" весь файл!

[27102014]

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

Макрос работает, еще раз большое спасибо, только маленький недочет. Данный макрос, приходится копировать в каждый файл (Alt + F11, в "ЭтаКнига"), из другого файла, макрос не запускается (выдает ошибку). Однако, это лучше чем вручную "лопатить" весь файл!

Если Вам так часто нужно использовать данный макрос, поместите его в личную книгу макросов

[IgorGO]

это не

маленький недочет

макроса, это зияющая дыра в поставновке задачи

[27102014]

For y = 1 To ThisWorkbook.Sheets.Count

Исправьте на

For y = 1 To ActiveWorkbook.Sheets.Count

В этом случае будет работать во всех книгах

[Казанский]

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

если я не ошибаюсь, то формат ячеек, нужно делать на каждом листе

Создавать правила УФ, действительно, можно только на одном листе. Но потом можно копировать формат столбца с УФ (кисть), выделить все остальные листы и кликнуть кистью по заголовку столбца.