Вопрос : Нутряной цвет

Я имею Кодего под тем worksand использован на другой части workbook. Но я хотел был бы для того чтобы мочь сделать должен теперь сделать эти же но если цвет клетки назначения нутряной или желт или, то красным цветом после этого только купель будет entered.

On прикрепленный архив курсы BRIO, котор будут ОРИГИНАЛОМ и необходима, что перенесена эта информация на ограничения по sheet.
So курса цветы на оригинале возвращены на лист курсов но не когда лист назначения уже имеет нутряное colour.

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

Is это по возможности? class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

id= " codeSnippet787816 " class= "

 ' Maroon QRNational формы
Для каждого c в rngClr1
'Для каждого c в ActiveSheet.UsedRange
    'проверите для желтого цвета
    Если c.Interior.ColorIndex = 9 после этого
        shtJIL.Activate
        
'Клетки ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Клетки ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 9
        Клетки ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Клетки ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = True


        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Закончитесь если
Затем

'Пурпур формы Тихий океан национальный
Для каждого c в rngClr1
'Для каждого c в ActiveSheet.UsedRange
    'проверите для желтого цвета
    Если c.Interior.ColorIndex = 13 после этого
        shtJIL.Activate
        
'Клетки ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Клетки ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 13
        Клетки ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Клетки ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = True

        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Закончитесь если
Затем

class= " lastRow

>Attachments " имени " class= class= " значение "

Вариант точный Общественное Sub ApplyBRIO () Тусклое wksFrom как рабочий лист Тусклое wksTo как рабочий лист Тусклое rngFrom как ряд Тусклое rngTo как ряд Тусклый c как ряд Тусклое lngColArea как длиной Установите wksFrom = рабочий лист («курсы BRIO x JIL») Установите wksTo = рабочий лист («ограничения по ex JIL курса») Application.ScreenUpdating = ложно Для каждого c в wksFrom.Range («B1: O1») Если c.NumberFormat любят «ddd *» после этого Если rngFrom ничего после этого Установите rngFrom = wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column)) Еще Установите rngFrom = соединение (rngFrom, wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column))) Закончитесь если Закончитесь если Затем Установите rngTo = wksTo.Range («B3: H62») Для lngColArea = 1 к rngFrom.Areas.Count Для каждого c в rngFrom.Areas (lngColArea). Клетки Если Len, то (уравновешивание (c.Value)) <> 0 после этого Выберите случай rngTo.Cells (c.Row - 2, lngColArea). Interior.Color Покрывайте vbRed vbYellow, 'как раз переход текст rngTo.Cells (c.Row - 2, lngColArea). Значение = c.Value Случай еще 'возвратите и текст и нутряной цвет rngTo.Cells (c.Row - 2, lngColArea). Значение = c.Value rngTo.Cells (c.Row - 2, lngColArea). Interior.Color = c.Interior.Color rngTo.Cells (c.Row - 2, lngColArea). Font.Color = c.Font.Color Конец отборный 'Стоп Закончитесь если Затем Затем Application.ScreenUpdating = True Подводная лодка конца

Вопрос : Нутряной цвет

Ответ : Нутряной цвет