Друзья, у меня просто перестал работать этот макрос. Он автоматически вставляет текущую дату если что-то вносят в ячейки а1-а100
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range("A2:A100")) Is Nothing Then
With cell.Offset(0, 1)
.Value = Now
.EntireColumn.AutoFit
End With
End If
Next cell
End Sub
|
Подскажите в чем может быть дело?? Все перепроверял, и даже тупо копипаст делал в новый файл и ноль реакции. Какие настройки могли поехать? т.к. код точно верный