Как покрасить диапазон с переменной в координатах?

[Basarga]

Добвремсуток.
Поиск не помогает из-за огромных массивов инфы выдаваемых на запросы, которые не могу нормально сформулировать.

Итак, при активном листе LIST3 происходит следующая операция:

With Sheets("LIST1").Rows(NomerStroki & ":" & NomerStroki)
    .Interior.Color = Sheets("LIST2").Cells(13, 2).Interior.Color
    .Font.Color = Sheets("LIST2").Cells(13, 3).Interior.Color
End With

Т.е. на неактивном листе LIST1 красится шрифт и фон строки NomerStroki в цвета ячеек 13, 2 и 13, 3 неактивного листа LIST2.

Вопрос: как покрасить не всю строку, а только ячейки в ней с 1 по 10?
LIST3 должен оставаться активным.

пробовал так:

With Sheets("LIST1").Range(Cells(NomerStroki, 1), Cells(NomerStroki, 10))
    .Interior.Color = Sheets("LIST2").Cells(13, 2).Interior.Color
    .Font.Color = Sheets("LIST2").Cells(13, 3).Interior.Color
End With

ругается, грозит курсором, посылает спать(((

у мну Excel 2010

[Hugo121]

Попробуйте

With Sheets("LIST1").Rows(NomerStroki & ":" & NomerStroki)(1).Resize(, 10)

Во втором случае не указали чьи cells!

[Basarga]

Ваш код не помог, но большое спасибо за найденную ошибку!
Сделал так:

With Sheets("LIST1").Range(Sheets("LIST1").Cells(NomerStroki, 1), Sheets("LIST1").Cells(NomerStroki, 10))
    .Interior.Color = Sheets("LIST2").Cells(13, 2).Interior.Color
    .Font.Color = Sheets("LIST2").Cells(13, 3).Interior.Color
End With

И всё заработало)))
Мы рыцари джедаи, мы борцы со злом

[Hugo121]

Как это не помог? Я из рабочего кода копипастил, проверил!

[Basarga]

вруврувру! всё у вас правильно. это я ошибся при внедрении кода.

кстати, подскажите, когда копипастю из редактора код то кириллица вся кракозябрами отображается. Приходится править. Как этого можно избежать? Если дело в шрифте редактора, на какой можно поменять? А больше на ум ничего и не приходит(

[IgorGO]

перед копированием (в исходном окне) активируйте кириллическую раскладку потом Ctrl+C дальше не важно (кажется)

[Hugo121]

Совсем простое решение - перед копипащеньем переключите раскладку в редакторе
Есть и другие софтовые советы - но железное решение надёжнее

[Basarga]

спасибо)
всё гениальное просто)