Satır eklerken formül kaydırma.

[kaya41]

Herkese günaydın.

Yine bu sitede yer alan değerli arkadaşların paylaşımlarıyla kullanmış olduğum kodu aşağıda belirtiyorum.

bu kod ile satır başını çift tıklayıp artırmak istediğim satır sayısını belirtiyorum.
gayet başarılı çalışıyor.

sorunum şu: bu vba ile satır eklediğimde d,ab,ac gizli sütunlarında yer alan formüllerin kaymaması. araya boş satırlar ekliyor.
Tamam boş satır eklemek istiyorum ama d,ab,ac sütunlarındaki formüllerin aşağı doğru kaymaya devam etmesini istiyorum.

örnek dosya hazırladım ekleyemedim bir türlü...

kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target <> "" Then Exit Sub
a = InputBox("Artırmak istediğiniz satır sayısını belirtin.!", "windowslive.com")
Rows(Target.Row & ":" & a + Target.Row - 1).Insert Shift:=xlDown
End Sub

 

[PLİNT]

Merhaba
Satır eklerken aktif satırın bir üst satırındaki hücrede formül olmak kaydıyla; aşağıdaki gibi olabilir:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target <> "" Then Exit Sub
a = InputBox("Artırmak istediğiniz satır sayısını belirtin.!", "windowslive.com")
b = Target.Row - 1
Rows(Target.Row & ":" & a + Target.Row - 1).Insert Shift:=xlDown
Range("AB" & b & ":AC" & b).AutoFill Destination:=Range("AB" & b & ":AC" & b + a), Type:=xlFillDefault
Range("D" & b).AutoFill Destination:=Range("D" & b & ":D" & b + a), Type:=xlFillDefault
End Sub

 

[kaya41]

Önünüzde saygı ile eğiliyor ve teşekkür ediyorum.
iyi akşamlar.