Когда объедению все равно ту же ошибку выдает. А объедению убирая 2 строки:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range([cell_address]).Interior.ColorIndex = 43 Then Range([cell_address]).Offset(, -1).Clear
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("J7:J10000"
) Is Nothing Then
If Target.Offset(, 1).Interior.ColorIndex = 43 Then Exit Sub
DateForm.Show
End If
If Not Intersect(Target, Range("K7:K10000"
) Is Nothing Then
With ThisWorkbook.Names
.Add "cell_address", Target.Address, False
.Add "cell_color", Target.Interior.ColorIndex, False
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim LastRow As Long
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D6:V6"
) Is Nothing Then
LastRow = Cells(Rows.Count, Target.Column).End(xlUp).Row
Range(Cells(7, 1), Cells(LastRow, 49)).Sort Key1:=Target.Offset(1, 0), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub
Я правильно делаю?