Aynı tarihe ait bilgileri süzerek chartta gostermek

[cenkatli]

Arkadaşlar, öncelikle herkese güzel haftasonları.
Yapmak istediğim çalışmada, yaklaşık 5000 in üzerinde satırdan oluşan ki bu çalışma sayfası SQL bağlantısı ile veri alımını sürekli güncelliyor buda yıl sonuna dogru 10000 satıra ulaşacağa benziyen bir çalışma.
Aynı güne ait bircok veri var ama ben bunları aylık olarak yani gün gün değilde ocak subat mart gibi verileri alabilecegim ve herhangi bir chart üzerinde metre kare ve fiyat ortalamalarınıda gosteren bir raporlama yapmak.
Ekte koydugum deneme sayfasında bırazdaha anlasırlır sekilde anlatmaya calıstım.
Yardımlarınızı bekliyorum
Teşekkürler

 

[Merhum İdris SERDAR]

Makroya gerek olduğunu sanmıyorum. Verileri olduğu gibi Pivot Table-Özet Tablo'ya alıp buna göre yapmanız daha pratik olur kanısındayım.

Örnek dosya ekte.
..

 

[cenkatli]

Sn. Yurttas, ilginize teşekkürler. Makrosuz da tabiki olur ama gonderdiğiniz ekte ben yapmış oldugunuz fonksiyonlarıda goremediğim için birkac sorum olacak. Bu sistem her acıldıgında kendısını guncelliyor ve yeni aylara ait bilgileri ekliyor. Buna karşılık olarak raporlamada ve chartta otamatik olarak bu değerlerde beliriyormu. birde formulizasyonları neden goremiyor olabilirm. Yoksa sadece kopyala yapıştırmı.

 

[Recep İpek]

Makrolu çözüm istiyorsanız aşağıdaki kodları kullanabilirsiniz.

Sub AktarTopla()
Dim a, i As Long, b(), n, s As Long
Set s1 = Sheets("VERİ SAYFASI")
Set s2 = Sheets("RAPORLAMA SAYFASI")
s1.Range("B12", Range("B" & [b65536].End(xlUp).Row)).Resize(, 8).Sort _
    Key1:=Range("B12"), Order1:=xlAscending
a = s1.Range("B11", Range("B" & [b65536].End(xlUp).Row)).Resize(, 8).Value
ReDim b(1 To UBound(a, 1), 1 To 10)
With CreateObject("Scripting.Dictionary")
     .CompareMode = vbTextCompare
     For i = 1 To UBound(a, 1)
     If IsDate(a(i, 1)) Then
     z = Format(Month(a(i, 1)) & " " & Year(a(i, 1)), "mmmm yyyy")
          If Not .exists(z) Then
               s = 0
               n = n + 1
               .Add (z), n
               b(n, 1) = n
               b(n, 2) = (z)
          End If
        b(.Item(z), 6) = b(.Item(z), 6) + a(i, 5)
        b(.Item(z), 7) = b(.Item(z), 7) + a(i, 6)
        b(.Item(z), 9) = b(.Item(z), 9) + a(i, 8)
        b(.Item(z), 10) = b(.Item(z), 10) + a(i, 7)
            If b(.Item(z), 10) <> "" Then
                s = s + 1
                b(.Item(z), 8) = b(.Item(z), 10) / s
            End If
        End If
    Next
    With s2.Range("a2")
        .Resize(, 9).ClearContents
        .Resize(n, 9).Value = b
    End With
End With
MsgBox "Bitti"
s2.Select
[a1].Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Merhum İdris SERDAR]

Sn. Yurttas, ilginize teşekkürler. Makrosuz da tabiki olur ama gonderdiğiniz ekte ben yapmış oldugunuz fonksiyonlarıda goremediğim için birkac sorum olacak. Bu sistem her acıldıgında kendısını guncelliyor ve yeni aylara ait bilgileri ekliyor. Buna karşılık olarak raporlamada ve chartta otamatik olarak bu değerlerde beliriyormu. birde formulizasyonları neden goremiyor olabilirm. Yoksa sadece kopyala yapıştırmı.

Burada formül yok. Pivot Table-Özet Tablo ile yapılmış.

1. Excel Dersanesi'nde bu konu var.

2. Dinamik alan konusu için de yine Excel Dersanesi'ne bakın.

Özet olarak anlatayım:

Verilerinizi import ederken direkt olarak Pivot Table ile alabilirsiniz. Hatta bunu Chart'ını da otomatik yaptırırsınız. Dolayısıyla gelecek bilgi hep güncel olacak.

Eğer dosyanızdaki gibi bilgileri alacaksanız. O zaman o gelen bilgiler için bir dinamik alan yaratıp, bu alanı Pivot Table'in alanında kullanacaksanız.



..

 

[cenkatli]

Sn Ripek,
Eke bir göz atabilirmisiniz. İlgili açıklamayı ekledim. Yardımızı bekliyorum

 

[cenkatli]

Burada formül yok. Pivot Table-Özet Tablo ile yapılmış.

1. Excel Dersanesi'nde bu konu var.

2. Dinamik alan konusu için de yine Excel Dersanesi'ne bakın.

Özet olarak anlatayım:

Verilerinizi import ederken direkt olarak Pivot Table ile alabilirsiniz. Hatta bunu Chart'ını da otomatik yaptırırsınız. Dolayısıyla gelecek bilgi hep güncel olacak.

Eğer dosyanızdaki gibi bilgileri alacaksanız. O zaman o gelen bilgiler için bir dinamik alan yaratıp, bu alanı Pivot Table'in alanında kullanacaksanız.



İlginiz ve verdiğiniz oneriler için teşekkürler
saygılar

 

[Recep İpek]

Ekteki dosyanızı inceleyiniz.Umarım doğru anlamışımdır.

.....

 

[cenkatli]

teşekkür ederim elinize saglık