Verileri Kategoriliyerek Sonuç Vermesi.

[cqners]

Merhaba;


Ek'teki dosyada veri, sonuç ve kişiler sayfaları bulunmaktadır.
Veriler sayfasındaki bilgiler sistemden çekilmektedir.
A Sutunu Sabıt.
B Sutunu İsim ve Soyisimler (Değişken)
C Sutunu Kategoriler veriler sabittir. (ELEKTRONIK, IT, OPTIK, OZEL URUNLER, TELEKOM)
J Sutunundan O Sutununa kadar sayısal değerler.

İstenen makronun çalışma biçimi:

Veriler sayfasındaki verilere bakarak her kişi için birsayfa açması ve kategori bazında sınıflara ayırarak katogori sayısal verilereini toplaması.

Yani : Veriler sayfasındaki B Sutununa bakarak isim ve soyisimlere bir sayfa açarak C Sutunundaki kategori başlıklarını toplaması.


Konu hakkında yardımlarınızı rica ederim.

 

[kulomer46]

Sayın S.CANER,
istediğiniz gibi bir program ek'tedir. İnşallah isteklerinizi karşılar..
( Makro kodları açıklamalıdır..)
Cuma gününden beri boş kaldıkça uğraştım..

 

[kulomer46]

evet dosya şimdi ekte:

 

[cqners]

Sen varya sen harikasın. Eline sağlık çok güzel bir çalışma olmuş.

Sana yemek borcum var tahsil edersen beni sevindirirsin. canersarigul@gmail.com

 

[cqners]

Sayfa olarak açılan isimlerin, sonuç sayfasındaki gibi ürün gruplarının toplamlarını almamız mümkünmü. ?

 

[kulomer46]

Tamam, yemek yeriz ancak ben K.Maraştayım nasıl olacak?
(yemek önemli değil sağolasın, bu arada programın işine yaramasına çok sevindim.Başarılar..)

 

[cqners]

Mail adresime cep telefonunu atarsan sevinirim.

İkinci sorumla ilgili yardımcı olabileceğin bir cevap varmı ?

 

[zafer]

Merhaba

Aşağıdaki kodları modüle yapıştırıp Listele makrosunu çalıştırınız.

Sub listele()
Sheets("veri").Select
For A = 1 To Cells(65536, 2).End(xlUp).Row
Cells(A, 256) = Cells(A, 2) & Cells(A, 3)
Next
 
For b = 5 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("IV2:IV" & b), Cells(b, 256)) = 1 Then
c = c + 1
Sheets("sonuc").Cells(c + 4, 2) = Cells(b, 2).Value
Sheets("sonuc").Cells(c + 4, 3) = Cells(b, 3).Value
End If
Next
Columns(256).ClearContents
VeriTopla
End Sub
 
Sub VeriTopla()
    Dim aranan As Range
 
 
 
   Set S2 = Sheets("veri")
   Set s1 = Sheets("sonuc")
 
 
       For i = 5 To s1.Cells(65536, 2).End(xlUp).Row
       x = S2.Cells(65536, 2).End(xlUp).Row
       For Each aranan In S2.Range("b5:b" & x)
       tt = aranan & aranan.Offset(0, 1)
              vv = s1.Cells(i, 2) & s1.Cells(i, 3)
            If tt = vv Then
                For y = 1 To 6
                s1.Cells(i, y + 9).Value = s1.Cells(i, y + 9).Value + aranan.Offset(0, y + 7).Value
                Next
            End If
        Next
    Next
 
    S2.Select
End Sub

 

[cqners]

Sonuç değişmedi.

Sn.kulomer46 Sonuç sayfasındaki kategori toplamının aynısını kişiler için açmış olduğu sayfalardada vermesi.
yani kişiler için açılan sayfadaki verilerin kategori olarak toplanmış olması. Başlıkları altında (ELEKTRONIK, IT, OPTIK, OZEL URUNLER, TELEKOM)

 

[kulomer46]

Bir bak bakalım istediğin gibi olmuş mu?

 

[cqners]

Sn.kulomer46 ve Sn.Zafer bey ilginiz için teşekkürler.

Veri sayfasındaki sayfa dağıtım işlemini sonuc sayfasına yönlendirince işlem düzeldi. İlginiz ve yardımlarınız için tekrardan Teşekkürler.

 

[cqners]

Sn. kulomer46 ikinci gönderdiğiniz örnekte işime yarayabilir. Fakat ben buna grafikler vb şablonlar uygulayacağım için, Toplamların üst satırlarda ve hepsinin satır sütün numaralarının aynı yerde olması lazım.
Yani sizin örnekte en alta kategori bazında toplama işlemi gerçekleştirmekte bunu üstten yapabilirsek bu son yaptığımız uygulamayı büyük bir hevesle kullanacağım.

 

[kulomer46]

isteğine uygun değişiklikler yaptım. sorun olursa bildir..

 

[cqners]

Sn.kulomer46 En son gönderdiğiniz örnek dosya süper oldu. Buna dış veri al, grafik, resetleme, rapor, başka pcde çalışmama, sayfaların saklanması, veri sonucuna göre yorum vb. şeyler ekliycem. Bunları öğrenmiştim. Siteyle tanıştıktan sonra öğrendim excel.web.tr ve ekibine sonsuz teşekkürler.

Telefon numaranızı aldım. Günümü ayarlar, size haber veririm musayit olursanız K.Maraş'a gelirim, yemek borcumu öder, çayınızı içerim.
İlgi ve yardımlarınız için teşekkürler.

 

[kulomer46]

Faydalı olabildiysek ne mutlu, ben teşekkür ederim....