Как мне закрасить строку стиль ссылок нужен RC
перебирается на одном листе результат пишется на другой лист

Range("B" + Trim(Str(i))).Select
If Selection.Font.Bold = True Then
Range("B" + Trim(Str(i))).Select

''' Range("A" + Trim(Str(i)) + ":F" + Trim(Str(i))).Select
''' With Selection.Interior
''' .ColorIndex = 4
''' .Pattern = xlSolid
''' End With

ts.Cells(i + 3, 6).Select <- неработает

With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With

ts.Cells(i + 3, 6).Value = "Гр."
End If


Scio me nihil scire

<<Jojo®>>