Alt Toplam

[acemiler]

Belirli bir mal koduna göre alt toplam alabiliyorum. Fakat aynı koda sahip farklı fiyatlarda olan malların fiyatlarına gören alt toplam almak istiyorum. Çok uğraştım ama nafile yapamadım.
Dosyayı ekledim.

 

[baydeniro]

Merhaba acemiler. Aşağıdaki formül sana çözüm olabilir. F33 hücresine kopyalanacak.

=SUMPRODUCT((A2:A31=A33)*(B2:B31=B33)*(C2:C31=C33)*(F2:F31=E33)*(F2:F31))

1d için A33, 2D için B33, 3D için C33, Fiyatı için D33 hücrelerine gerekli verileri yazarsan F33 hücresinde bu formül ile aradığın toplamı lede edebilirsin.

Örneğin : A33=100, B33=01, C33=01, D33=875 YAZARSAN F33 Hücresinde 3,500.00 YTL yazacak.

 

[acemiler]

Ben fiyat değerini vermeden mevcut fiyatları kendisi kodlarıyla birlikte sınıflandırabilir mi? Ayrıca yaşımın ileri olmasından dolayı bilgisayara biraz yabancıyım. Ben Office Türkçe kullanıyorum. Kodlarda Türkçe kullanırsanız sevinirim. Sumproduct'ın türkçe karşılığı nedir? bilemiyorum.

 

[ECYavuz]

=TOPLA.ÇARPIM((A2:A31=A33)*(B2:B31=B33)*(C2:C31=C33) *(F2:F31=E33)*(F2:F31))

Şeklinde deneyin.
SUMPRODUCT 'ın türkçe karşılığın TOPLA.ÇARPIM dır.

 

[acemiler]

Cevabınız için teşekkürler. peki listede 100.01.01 koduna karşılık gelen fiyatları kendi arasında aynı değere sahip olanları alt alt dizerek toplaması, Fiyatları farklı olan ayni cins ürünleri ayrı ayrı göstermek lazım, anlatmakta biraz güçlük çekiyorum ama. İnşallah anlatabilmişimdir.

 

[acemiler]

Örnek dosyayı göndererek daha iyi anlatabileceğimi zannediyorum. Excel dosyasınında Üstteki tablo alttaki tablo haline dönüşmesini istiyorum. Teşekkürler.

 

[acemiler]

Örnek listeyi yolladım. Günlerce ben uğraştım. Fakat bir türlü yapamadım.

 

[kulomer46]

aşağıdaki makro kodunu sayfanızın modülüne yapıştırıp çalıştırınız. İsteğinize uygun sonuç çıkacaktır..
Sub Makro1()

Columns("A:F").Select
Range("F1").Activate
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True


End Sub

 

[acemiler]

Cevabınız için çok teşekkürler.Cevabınızı uyguladım fakat toplamları almıyor.

 

[kulomer46]

ufak bir ayrıntı gözümden kaçmış, düzeltilmiş hali aşağıdadır, aşağıdaki kodlarla tekrar deneyiniz..

Sub Makro1()

Columns("A:F").Select
Range("F1").Activate
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal


Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(5, 6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True


End Sub

 

[acemiler]

klomer46 çok sağolun. Yüzünüzden gülümseme, yaşantınızda hiç darlık olmasın.
saygılarımla.

 

[acemiler]

3 sütünlu kodlarda sıralama yapan bu makro 6 sütünlu kodlarda sıralama yapabilir mi? Daha önce 3 sütunlu istiyordum. Şimdi 6 sütüna çıkardım ama
olursa çok sevinirim.

 

[acemiler]

alt toplam

arkadaşın yolladığı kodları 6 kolon olarak uyarlayarak yapmaya çalıştım. Ama bir türlü başaramadım. Kodlardan anlayan bir arkadaşın yardımcı olmasınına sevinirim. Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub ALT_TOPLAM()
    Application.ScreenUpdating = False
    ActiveSheet.Cells.RemoveSubtotal
    Range("J2").FormulaR1C1 = "=RC[-9]&RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1]"
    Range("J2").AutoFill Destination:=Range("J2:J" & [A65536].End(3).Row), Type:=xlFillDefault
    Range("J1").FormulaR1C1 = "FİLTRE"
    Range("A1").Select
    Range("A1:J" & [A65536].End(3).Row).Sort Key1:=Range("J2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Subtotal GroupBy:=10, Function:=xlSum, TotalList:=Array(8, 9), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Range("G1:G" & [A65536].End(3).Row + 2).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "TOPLAM"
    Columns("J:J").ClearContents
    Cells.EntireColumn.AutoFit
    Application.ScreenUpdating = True
    Range("A1").Select
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[acemiler]

kodlarda sıralama yapıyor fakat aynı koda sahip aynı fiyatlı ürünlerin alt toplamını almak istiyorum. Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz örnek dosya üzerinde kodları deneyerek göndermiştim. Siz uyguladığınız dosyayının örneğini eklerseniz yardımcı olabiliriz.

 

[acemiler]

Çok özür dilerim. Doğru çalışıyor. Yardımlarınız için çok teşekkürler

 

[acemiler]

Kodlar

Kodları tek başlıkta topladım. Örnek dosya ekledim. Kodlar her değiştiğinde kendi içinde fiyat farklılıklarını da dikkate alarak bir alt toplam oluşturmasını istiyorum. Yardımlarınız şimdiden teşekkürler

 

[acemiler]

Sorum ile ilgili yardımlarınızı bekliyorum. Daha önceki örneklerden uyarlama yapamadım.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.