изменение шрифта

[Obey177]

Ребят есть код

Sub gotov()
Dim i As Long, j As Long, g As Long, colonend As Long
colonend = Sheets("RDY_DATA").Cells(Rows.Count, 2).End(xlUp).Row
g = 2
For i = 2 To colonend

For j = 1 To Worksheets("RDY_DATA").Cells(i, Columns.Count).End(xlToLeft).Column
Set NameMode = Worksheets("RDY_DATA").Cells(i, j)
Worksheets("Eeno1").Cells(g, 2) = NameMode
g = g + 1
Next
Next
End Sub

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

[kuklp]

Sub gotov()
Dim i As Long, j As Long, g As Long, colonend As Long
colonend = Sheets("RDY_DATA").Cells(Rows.Count, 2).End(xlUp).Row
g = 2
For i = 2 To colonend
range(Worksheets("RDY_DATA").Cells(i,1),Worksheets("RDY_DATA").Cells(i, _
Worksheets("RDY_DATA").Cells(i, Columns.Count).End(xlToLeft).Column).copy Worksheets("Eeno1").Cells(g, 2)
g = g + 1
Next
End Sub

[Obey177]

Как скопировать именно цвет без значения ячейки

Worksheets("Лист1").Cells(i, 2).Colour.Copy

- Есть что то подобное?

[ShAM66]

Можно формат скопировать.

Worksheets("Лист1").Cells(i, 2).Copy
Range("куда копируем").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

[kuklp]

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

Как скопировать именно цвет без значения ячейки

А в первом посте Вы что писали?

[ShAM66]

Ну, примерно:

...и ячейки должны копироваться вместе с цветом

Сергей, вроде, все в порядке.