Formül Kopyalama

[odinnn]

Herkese merhaba. Ekteki hakediş tablosunda bina sayısını duruma göre artırmayı istiyorum. Yalnız bina arttığı zaman ilk 2 binadaki formül ve hücre biçimlendirmesinin yeni eklenen binaya da aynen aktarılması gerekli. Aynı şey satır eklerken de olmalı. Eklenen satır üstteki satırın formülünü almalı. Şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz:

Sub binaekle()
a = Cells(Rows.Count, 1).End(3).Row
    Rows(a - 14 & ":" & a - 1).Select
    Selection.Copy
    Rows(a).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range(Cells(a, 2), Cells(a, 8)).Select
    Selection.ClearContents
    Range(Cells(a + 12, 1), Cells(a + 12, 8)).Select
    Selection.ClearContents
    Cells(a + 14, 7).Select
    ActiveCell.FormulaR1C1 = "=SUMIF(R10C1:R" & a + 13 & "C1,""Alttoplam"",R10C7:R" & a + 13 & "C7)"
    Cells(a + 13, 1).Select
End Sub

 

[odinnn]

Dediğinizi yaptım. 3 tane sorun var:
1- Bina ekle butonuna bastığım zaman yeni bina eklemiyor.
2- Satır ekleye bastığım zaman G sütunundaki formül çalışmıyor.
3- Bir de satır ekleye bastığım zaman PC'mdeki başka bir excel dosyası otomatik açılıyor.
Teşekkür ederim ilginize.

 

[odinnn]

Bir de "Alttoplam" formülleri yeni eklenen satırlardaki değerleri kapsamıyor.

 

[YUSUF44]

Benim mesajımı dikkate almayınız. Eksik ve hatalı yapmışım.