Не получается. В итоге получился такой код , но не работает 
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a3:a400000,b3:b4000,q3:q4000,h3:h4000,i3:i4000,j3:j4000,k3:k4000,l3:l4000,m3:m4000"), Target) Is Nothing Then
If Target.Column = 1 Then Target.Offset(0, 1).Select
'If Not Intersect(Range("a3:a4000"), Target) Is Nothing Then
'Worksheet_Change
'If Target.Column = 2 Then Target.Offset(0, 14).Select
'ActiveCell.FormulaR1C1 = Now
With Target
If .Column = 2 Then
Cells(.Row, 16) = Now
.Offset(0, 6).Select
End If
'If Target.Column = 2 Then Target.Offset(0, 6).Select
'If Target.Column = 8 Then Target.Offset(0, 1).Select
If .Column = 8 Then
Cells(.Row, 17) = Now
.Offset(0, 1).Select
End If
If Target.Column = 9 Then Target.Offset(0, 1).Select
If Target.Column = 10 Then Target.Offset(0, 1).Select
If Target.Column = 11 Then Target.Offset(0, 1).Select
If Target.Column = 12 Then Target.Offset(0, 1).Select
If Target.Column = 13 Then Target.Offset(1, -12).Select
'End If
'With Target
' If .Column <> 2 And .Column <> 13 Then Exit Sub
' If .Column = 2 Then cl = 17 Else cl = 18
' Cells(.Row, cl) = Now
' Cells(.Row, 8).Select
End With
End Sub
|
Изменено: - 03.10.2014 10:26:15
