ошибка 1004

[Koljusha]

Здраствуйте

есть следующий код

Public lLastRow As Long
Public AddLine As Long
Dim a As Integer
Dim b As Integer
Dim x As Integer

Private Sub Worksheet_Activate()
lLastRow = Cells.SpecialCells(xlLastCell).Row
MsgBox (lLastRow)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

AddLine = Cells.SpecialCells(xlLastCell).Row
MsgBox (AddLine)
If AddLine > lLastRow Then


x = Target.Row
a = x + 6
b = a - 1
With Application.Worksheets("Report").Ac tivate
Worksheets("Report").Range("A" & a, "BH" & a).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.AutoFill Destination:=Range("A" & b, "BH" & a), Type:=xlFillDefault

End With
End If

End Sub




в месте обозначенным оранжевым выдает ошибку подскажите пожалуйста что поправить, код должен копировать формулы в диапазон

[EducatedFool]

Selection.AutoFill Destination:=Range("A" & b & ":BH" & a), Type:=xlFillDefault

А вообще, в макросе очень много лишнего.
Вы бы показали файл Excel, и пояснили, что там надо делать, - глядишь, форумчане помогли бы упростить макрос, и сократить его до 1-2 строк кода...

[Koljusha]

собственно сам документ я выложить не могу коммерческая тайна))


но вот пример скопировал выдает такую же ошибку при выполнении макроса

[Koljusha]

Этот код должен отслеживать вставку новой строки в любом месте листа1 и вставлять строку в соответствующем месте на лист2, связано это с тем что при вставке строки на листе 1 появляется промежуток в ссылочных ячейках.

Например вставили на листе строку меду 5-й и 6-й соответственно сслыки на ячейки на листе два будут А5 и А7 а 6 строка останется незадействованой

[Koljusha]

неужели ни кто не знает причину?

[Koljusha]

Public lLastRow As Long
Public AddLine As Long
Dim a As Integer
Dim b As Integer
Dim x As Integer

Private Sub Worksheet_Activate()
lLastRow = Cells.SpecialCells(xlLastCell).Row
MsgBox (lLastRow)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

AddLine = Cells.SpecialCells(xlLastCell).Row
MsgBox (AddLine)
If AddLine > lLastRow Then


x = Target.Row
a = x + 6
b = a - 1

With Application.Worksheets("Report").Ac tivate
Worksheets("Report").Range("A" & a, "BH" & a).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & b, "BH" & b).AutoFill Destination:=Range("A" & b, "BH" & a)
End With
End If

End Sub




нашел ошибку неправильно был указан диапазон метода autofill, спасибо за помощь!

теперь у меня возникла другая проблема эту строку прграмма просто игнорирует, подскажите почему?

[Koljusha]

Public lLastRow As Integer
Public AddLine As Integer

Private Sub Worksheet_Activate()
lLastRow = Cells(Rows.Count, "A").End(xlUp).Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

AddLine = Cells(Rows.Count, "A").End(xlUp).Row

x = Target.Row
b = x + 6
a = b - 1
If AddLine > lLastRow Then

Worksheets("Report").Range("A" & b, "BH" & b).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Set SourceRange = Worksheets("Report").Range("A" & a, "BH" & a)
Set fillRange = Worksheets("Report").Range("A" & a, "BH" & b)
SourceRange.AutoFill Destination:=fillRange

ElseIf AddLine < lLastRow Then
Worksheets("Report").Range("A" & b, "BH" & b).Delete

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lLastRow = Cells(Rows.Count, "A").End(xlUp).Row
End Sub


вот в таком виде код точно работает кому интересно, еще раз спасибо за помощь здесь очень участливые люди собрались)))