• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

verileri grup altında toplamak

M

matrax410

Katılım
20 Eylül 2018
Mesajlar
92
Excel Vers. ve Dili
Office 365
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 ,
 

Ekli dosyalar

Merhaba,

Kod: 
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
 

Ekli dosyalar

Son düzenleme:
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
 
hocam çok teşekkür ederim , elinize ,yüreğinize sağlık.

iyi ki varsınız.
selamlar
 
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,
 

Ekli dosyalar

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...
 

Ekli dosyalar

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.
 
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
 
Son önerilen çözüm sizin istediğiniz çözüm değil..

Son çözümde benim önerdiğim özet tablonun makro ile yenilenmesi sağlanmış.
 
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,
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst