hücre ekleme (formülleri taşımalı)

[burhancavus61]

1 satırdan 59 satırına kadar dolu olan ve sabit formüllü satırlarım var 60 satıdan itibaren yada sonra gelen satırdan itibaren ekleme yaptığım zaman formüllerle beraber taşıyacak olan bir makronuz varmı şimdiden teşekkürler

 

[danersin]

Böyle birşey yapılabilir ama hücrenizdeki formüllere bağlı olarak tutarsızlık oluşabilir formüllerde...bir deneyin isterseniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 1 And ActiveCell.Value = "" And ActiveCell.Offset(1, 0) <> "" Then
ActiveCell.Offset(-1, 0).Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub

 

[burhancavus61]

beceremedi neden acaba