Değişken satır no toplamı

[TAHA2001]

Merhabalar;
Ekteki Dosyadaki AÇIKPOLİÇELER sayfasındaki AKTAR butonundaki toplam formülünün doğrusunu yapabilirmisiniz.

Teşekkürler. Saygılar.

Taha

 

[Korhan Ayhan]

Merhaba,

Neden makro içinde TOPLA.ÇARPIM kullandınız anlamadım. İstediğiniz sonuca TOPLA formülü ilede gidebilirsiniz.

ActiveCell.Offset(S, 3) = Evaluate("=Sum(" & sRangeA & ")")

 

[TAHA2001]

Cevabınız için çok teşekkürler. Modülün en altına kopyaladım ama #DEGER! hatası verdi. Acaba ben mi bir hata yaptım. Size zahmet dosya nın içinde bir de siz deneyebilirmisiniz.


TOPLA.ÇARPIM konusuna gelince; insan acemi olunca öyle oluyor. Kaç gündür (gecedir) forum daki eski ve örnek uygulamaları inceleyerek kendi problemimi çözmeye çalıştım ama malesef olmadı.

 

[Korhan Ayhan]

Merhabsa,

Tabiki foruma eklediğim kodları deniyorum. Çalıştığından emin olduktan sonra foruma ekliyorum.

Aşağıdaki şekilde uygulayın.

Sub Suz_ve_Aktar()
    Dim i As Long
    
    Application.ScreenUpdating = False
    Sheets("RAPOR").Activate
    Range("A2:H2000").Select
    Selection.ClearContents
    Sheets("AÇIKPOLİÇELER").Activate
    If ActiveSheet.FilterMode = True Then Selection.AutoFilter
    i = Cells(Rows.Count, "A").End(3).Row
    
    Range("$A$1:$H$" & i).AutoFilter Field:=3, Criteria1:=ActiveCell.Offset(0, 0)
    Range("A1").CurrentRegion.Copy Sheets("RAPOR").Range("A1")
    Sheets("RAPOR").Activate
    Range("A1").Select
    S = Cells(Rows.Count, "A").End(3).Row
    ActiveCell.Offset(S, 2).Value = "BAKİYE"
    sRangeA = "RAPOR!D2:D" & S
 
    ActiveCell.Offset(S, 3) = Evaluate("=Sum(" & sRangeA & ")")
End Sub

 

[TAHA2001]

Sayın Korhan Ayhan Çok Teşekkür Ederim. İyi Çalışmalar.