Satır eklerken formül kaydırma.

Katılım
18 Mayıs 2011
Mesajlar
62
Excel Vers. ve Dili
2010 türkçe
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
 
Son düzenleme:
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
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:
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")
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
 
Katılım
18 Mayıs 2011
Mesajlar
62
Excel Vers. ve Dili
2010 türkçe
Önünüzde saygı ile eğiliyor ve teşekkür ediyorum.
iyi akşamlar.
 
Üst