Hücreye hazır formülü atama

[tamer42]

Merhaba,

Hücreye bir satır ekleyince; bu satıra bir üstündeki satırda yazan formülleri nasıl atayabiliriz?
satırda bu şekilde bir formül yazılı olsun, altına boş bir satır eklediğimiz zaman, bu satırdaki formülleri eklenen satıra da koplayacak


"=ETOPLA('Eylül'!A:A;B12;'Eylül'!AF:AF)"

Sub SATIR_EKLE()
    Dim SATIR As Long
    
    SATIR = [B65536].End(3).Row + 1
    Rows(SATIR).Insert Shift:=xlDown

End sub

teşekkürler, iyi çalışmalar.

 

[ÖmerBey]

Merhaba,
Kodunuzun sonuna ilave edip deneyiniz...

For Each hcr In Intersect(ActiveSheet.UsedRange, Rows(SATIR - 1))
    If hcr.HasFormula Then hcr.Copy hcr.Offset(1)
Next

 

[tamer42]

Merhaba,
Kodunuzun sonuna ilave edip deneyiniz...

For Each hcr In Intersect(ActiveSheet.UsedRange, Rows(SATIR - 1))
    If hcr.HasFormula Then hcr.Copy hcr.Offset(1)
Next

teşekkürler Ömer Hocam

 

[tamer42]

Merhaba,
Kodunuzun sonuna ilave edip deneyiniz...

For Each hcr In Intersect(ActiveSheet.UsedRange, Rows(SATIR - 1))
    If hcr.HasFormula Then hcr.Copy hcr.Offset(1)
Next

Ömer Hocam bir sorun daha var, en üst satırda =TOPLA(E2:E13) şeklinde Toplam formülü mevcut, yeni bir satır eklendiği zaman bu formülü de düzenlememiz gerekecek. =TOPLA(E2:E14) şekline getirmeliyiz.

bu konuda da yardımcı olabilir misiniz

Teşekkürler,
iyi akşamlar.

 

[ÖmerBey]

Aşağıdaki iki kodu da kullanabilirsiniz...

Range(xx).Formula = "=SUM(E2:E" & SATIR & ")"
Range(xx).FormulaLocal = "=TOPLA(E2:E" & SATIR & ")"

 

[tamer42]

Aşağıdaki iki kodu da kullanabilirsiniz...

Range(xx).Formula = "=SUM(E2:E" & SATIR & ")"
Range(xx).FormulaLocal = "=TOPLA(E2:E" & SATIR & ")"

teşekkürler.