Выделение строк цветом

[Sergey112233]

Уважаемые форумчане.
Есть программы выделения строк цветом

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone

With Target.EntireRow.Interior
.ColorIndex = 37
.Pattern = xlGray25
.PatternColorIndex = 24
End With
End Sub

или

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <= 2500 Then
' Проверка на количество ячеек. Слишком большое количество
' выделенных ячеек замедляет работу, т.к. при выполнении макроса
' определяется адрес каждой выделенной ячейки.
ActiveSheet.Cells.FormatConditions.Delete
Dim RSMin As Integer
Dim CSMin As Integer
Dim RSMax As Integer
Dim CSMax As Integer
' ---------начало блока------------
For Each Target In Selection.Cells
If RSMin = 0 Then RSMin = Target.Row
If CSMin = 0 Then CSMin = Target.Column
If Target.Row < RSMin Then
RSMin = Target.Row
ElseIf Target.Row > RSMax Then
RSMax = Target.Row
End If
If Target.Column < CSMin Then
CSMin = Target.Column
ElseIf Target.Column > CSMax Then
CSMax = Target.Column
End If
Next
'--------конец блока--------------
' определяются максимальные и минимальные
' срока и столбец выделенного блока
'--------начало блока-------------
With Range(Cells(RSMin, 1), Cells(RSMax, 256))
.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
.FormatConditions(1).Interior.ColorIndex = 40
End With
'--------конец блока---------------
' выделяются сроки выделенного диапазона
'--------начало блока---------------
'With Range(Cells(1, CSMin), Cells(65000, CSMax))
'.FormatConditions.Delete
'.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
'.FormatConditions(1).Interior.ColorIndex = 36
'End With
'--------конец блока---------------
' выделяются столбцы выделенного диапазона
'--------начало блока---------------
With Range(Cells(RSMin, CSMin), Cells(RSMax, CSMax))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
.FormatConditions(1).Interior.ColorIndex = 34
End With
'--------конец блока---------------
' выделяется выделенный диапазон
Else
End If
End Sub

При этом изменяется цвет (как свойство) ячейки. И не работает режим копирование/вставка.

Возможны ли такие действия:
1. Кликаем на ячейку (активация) .
2. "Подсвечиваетя" вся строка.
3. Копируем значение из выделенной ячейки и вставляем в другую ячейку. Или не только значение, но и все параметры ячейки которыми она обладала до подсвечивания строки?

Т.е. раскраска листа должна оставаться неизменной. А подсвечивание должно помогать только ориентироваться в записях и давать возможность работать в режиме копирование/вставка.

[Sergey112233]

Уважаемые форумчане.

По этому вопросу

И не работает режим копирование/вставка

заметил одну особенность. После копирования данные остаются в буфере обмена, но, в Excel-е в меню (Правка) Вставка не активна. Может быть знает кто - как ее сделать активной?

[Sergey112233]

Уважаемые форумчане.
Кто-нибудь сталкивался с такой проблемой: выделение строки цветом при активации ячейки и, одновременно, чтобы можно было копировать/вставить значение из этой ячейки в другое место?