fonksiyonla çıkartma işlemi

[Erhan Üstünel]

Cells(sira + 2, 2).Select
    Selection.Value = "TOPLAM"
    Selection.Offset(0, 7).Formula = "=SUM(I2:I" & sira + 1 & ")"
    
    

     Cells(sira + 2, 2).Select
    Selection.Value = "TOPLAM"
    Selection.Offset(0, 6).Formula = "=SUM(H2:H" & sira + 1 & ")"

Bu kodlar ile aktarma yaptığım sayfalardan, H. sutun ile I. sutun toplamlarını en alttaki satıra aldırıyorum,
J. sutununa : I-H sonucunu verecek formul nasıl olmalı ?

bilgisi olan arkadaşlar yardımcı olursa sevinirim

 

[Korhan Ayhan]

Aşağıdaki satır işinize yarayabilir.

Selection.Offset(0, 8) = Selection.Offset(0, 7) - Selection.Offset(0, 6)

 

[Korhan Ayhan]

Ayrıca "Select" ifadesini kodlarınızda mümkün olduğunca kullanmamaya gayret edin. Bu komut olmadan da işlemlerinizi yaptırabilirsiniz.

 

[Erhan Üstünel]

Aşağıdaki satır işinize yarayabilir.

Selection.Offset(0, 8).Formula = Selection.Offset(0, 7) - Selection.Offset(0, 6)

Hocam ilginiz için teşekkürler, ama malesef çıkartma işlemini yapmadı

 

[Korhan Ayhan]

Üstteki mesajımı güncelledim. Tekrar deneyiniz.

 

[Erhan Üstünel]

Üstteki mesajımı güncelledim. Tekrar deneyiniz.

Malesef hocam, dosyamı gönderiyorum

 

[Erhan Üstünel]

    Selection.Offset(0, 8).FormulaR1C1 = "=RC[-1]-RC[-2]"

fonksiyonu ile problem çözülmüştür,