Добавление новой строки

[staniiislav]

Доброго времени суток уважаемые форумчане, есть вопрос по примеру...
В примере расписано что не получается сделать, если есть возможность, подскажите.
Заранее спасибо

[slan]

Private Sub Worksheet_Change(ByVal Target As Range)
'Dim Cell As Range
'Static AutoRun As Boolean
'
' If AutoRun Then Exit Sub
'
' AutoRun = True

ActiveSheet.Unprotect
Application.EnableEvents = False
With Cells(Target.Row - 1, 1).Resize(, ActiveSheet.UsedRange.Columns.Count )
.AutoFill Destination:=.Resize(2), Type:=xlFillDefault
End With
Application.EnableEvents = True

' For Each Cell In Application.Intersect(Target, ActiveSheet.UsedRange)
' If Cell.Locked = False Then
' If Cell.Offset(0, 1).Formula = "" Then
' Cell.Offset(0, 1).FormulaR1C1 = Cell.Offset(-1, 1).FormulaR1C1
' 'Cell.Offset(0, -1).FormulaR1C1 = Cell.Offset(-1, -1).FormulaR1C1
' End If
' End If
' Next Cell

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True

' AutoRun = False

End Sub

[staniiislav]

Работает не совсем правильно правильно:
1) удаление происходит как-то "интересно", двойным нажатием на ячейку...
2) не удаляются значения с добавленной строки нажатием DEL

Вот ссылочка где нашел код, может это кого нибудь натолкнет на мысль

http://www.sql.ru/forum/actualthread.aspx?tid=438139

Спасибо за то что отозвались slan

[staniiislav]

Оки... ну тогда подскажите, если делать через кнопку, почему выскакивает ошибка Run-time error '9': Subscript out of range?

[staniiislav]

Уже почти решил проблему, нужно немного меня подтолкнуть, почему в примере (Список) добавляет формулы, а у меня не добавляет (111)???
Подскажите пожалуйста?

[staniiislav]

Не кто не хочет помочь, или не может??? вообще не какой активности...

[staniiislav]

тему можно закрывать, кому интересно, вот решение проблемы:
http://www.planetaexcel.ru/forum.php...m=6#post220972
Всем спасибо за участие!