verileri grup altında toplamak

[matrax410]

merhabalar,

ekteki dosya içerisinde anlattım. kısaca şöyle tarif edeyim. sistemden çektiğim dataları , belirlenen grup altında % değerlerini toplattırmak.

şimdiden desteğiniz için teşekkür ederim.

saygılarımla ,

 

[Ziynettin]

Merhaba,

Sub test()
    Set dc = CreateObject("scripting.dictionary")
    Set dz = CreateObject("scripting.dictionary")
   
    son = 0
    son = Range("O" & Rows.Count).End(3).Row
    a = Range("O2:P" & son).Value
   
   
    For i = 2 To UBound(a)
        dc(a(i, 1)) = a(i, 2)
    Next i
   
    son = 0
    son = Range("B" & Rows.Count).End(3).Row
    a = Range("B3:D" & son).Value
   
    For i = 2 To UBound(a)
        If dc.exists(a(i, 1)) Then
            y = dc(a(i, 1))
            dz(y) = dz(y) + a(i, 3)
        End If
    Next i
   
   
    Range("G6:H" & Rows.Count).ClearContents
    Range("G6:H" & Rows.Count).ClearFormats
   
    [G5].Resize(dz.Count + 2, 2).Borders.Color = rgbSilver
    [G6].Resize(dz.Count, 2) = Application.Transpose(Array(dz.keys, dz.items))
    [G6].Offset(dz.Count) = "Toplam"
    [G6].Offset(dz.Count, 1) = Application.Sum(dz.items)
   
    MsgBox "İşlem tamam.", vbInformation
End Sub

 

[matrax410]

Ziynettin hocam merhaba ,

bu kodu bir modüle kopyalayıp , butona mı ekleyeceğim. bir deneme yaptım fakat makro ile ilgili bir hata aldım.

desteğiniz için teşekkürler

 

[Ziynettin]

Çalışma dosyanızı ekledim.

 

[matrax410]

hocam çok teşekkür ederim , elinize ,yüreğinize sağlık.

iyi ki varsınız.
selamlar

 

[matrax410]

merhaba hocam ,

dosyada bir güncelleme istiyorum. çalıştır butonuna tıkladığımda , istediğim sıralamayı dosya içerisinde yazdım. ona göre bir düzenleme yapma imkanı var mıdır.

desteğiniz için teşekkürler,
saygılarımla,

 

[matrax410]

merhabalar,

destek rica,
teşekkürker

 

[Korhan Ayhan]

Alternatif...

Ben makro yerine bir yardımcı sütun kullanarak (A sütunu) dinamik alan yöntemiyle PIVOT TABLE (Özet Tablo) ile sonuca gittim.

A sütunundaki formül 1.000 satıra kadar devam ediyor. Veri sayınız fazla ise formülü alta doğru sürükleyebilirsiniz.

Özet tablonun avantajı üzerinde sağ tıklayıp YENİLE dediğinizde otomatik olarak sonuçları güncelleyecektir.
Sürükle-Bırak yöntemiyle dilediğiniz gibi biçimlendirme yapabilirsiniz.

Dilerseniz kullanabilirsiniz...

 

[matrax410]

merhaba hocam,

çalışma sayfamda birden fazla sheet var. her shette makro var. yeni sütun eklemek toplam sheetteki makroda hata almama neden oluyor. mevcut makroda bir düzeltme yapmak işimi daha kolaylaştıracaktır.

 

[matrax410]

merhabalar,

hatırltmak için tekrar gönderiyorum. dosya içerisindeki makroya entegre yapma imkanı var mıdır.

teşekkürler,

saygılarımla

 

[imas]

teşekkürler

 

[md3m1ray]

merhabalar,

hatırltmak için tekrar gönderiyorum. dosya içerisindeki makroya entegre yapma imkanı var mıdır.

teşekkürler,

saygılarımla

 

[matrax410]

merhaba md3m1ray hocam,

teşekkür ediyorum , elinize sağlık.

saygılarımla,

 

[Korhan Ayhan]

Son önerilen çözüm sizin istediğiniz çözüm değil..

Son çözümde benim önerdiğim özet tablonun makro ile yenilenmesi sağlanmış.

 

[matrax410]

Korhan hocam merhaba,

öncelikle teşekkür ederim. emeğinize sağlık.

dosya içerisinde A kolonundaki veriyi almıyorum. Dosya içinde kullandığım başka bir genel data macrosu var. orda hata veriyor. Düşeyara tablosunu sayfanın başka bir bölümünü ekleyip , ordan verileri sıralattırıyorum.

elinize sağlık,
teşekkürler,