Veri sorgulama ve toplam alma

[Ömer BARAN]

Tekrar kerhaba.

Kod'u aşağıdaki ile değiştirerek kullanırsanız sanırım daha hızlı sonuç verecektir.

Umarım işinize yarar.

İşlem; 187.000 satırlık veriyle, benim bilgisayarımda yaklaşık 10 saniye sürdü.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sona = [A1000000].End(3).Row
sonw = [W1000000].End(3).Row
If ActiveCell.Column <> 23 Then Exit Sub
If Intersect(Target, Range("W2:W" & sonw)) Is Nothing Then Exit Sub

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Zaman = Now()
Range("AA1:AG" & sona).ClearContents

Range("A1").AutoFilter
Range("A1").AutoFilter field:=8, Criteria1:=ActiveCell.Value
    Range("A1:A" & sona).Copy: Cells(1, 27).PasteSpecial xlPasteValuesAndNumberFormats
    Range("D1:D" & sona).Copy: Cells(1, 28).PasteSpecial xlPasteValuesAndNumberFormats
    Range("F1:F" & sona).Copy: Cells(1, 29).PasteSpecial xlPasteValuesAndNumberFormats
    Range("H1:H" & sona).Copy: Cells(1, 30).PasteSpecial xlPasteValuesAndNumberFormats
    Range("K1:K" & sona).Copy: Cells(1, 31).PasteSpecial xlPasteValuesAndNumberFormats
    Range("I1:I" & sona).Copy: Cells(1, 32).PasteSpecial xlPasteValuesAndNumberFormats
    Range("J1:J" & sona).Copy: Cells(1, 33).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("A1").AutoFilter
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
    MsgBox "İşlem; " & Format(Now() - Zaman, "ss") & " saniye sürdü."
Cells(1, 23).Select
End Sub

 

[hassas]

Sayın Ömer bey iyi akşamlar;
Öncelikli olarak emeğinizden dolayı çok teşekkür eder; Tüm hayatınızda kolaylıklar ve mutluluklar dilerim. Elinize ve emeğinize sağlık.

 

[Ömer BARAN]

Sayın Ömer bey iyi akşamlar;
Öncelikli olarak emeğinizden dolayı çok teşekkür eder; Tüm hayatınızda kolaylıklar ve mutluluklar dilerim. Elinize ve emeğinize sağlık.

Eyvallah.
Önemli olan ihtiyacın görülmesi.
İyi günler dilerim.

 

[hassas]

Sayın arkadaşlar hepinizin Kurban bayramınızı tebrik eder ailenizle birlikte huzurlu ve mutluluklar dilerim.
Daha önce Ömer baran üstadın yaptığı bu dosya üzerinde bazı eklemelere gerek duydum. Örnekte eklediğim dosya içerisinde gerekli açıklamaları yaptım. yardımcı olabilirseniz sevinirim.
iyi çalışmalar dilerim.

 

[Merhum İdris SERDAR]

.

Sağlıklı ve esnek bir raporlama elde etmek isterseniz, ekte verdiğim dosyada gösterdiğim yolu izlemenizi öneririm.


.

 

[hassas]

Sayın idris bey öncelikle ilginizden dolayı çok teşekkür ederim.
Sizin gönderdiğiniz dosyaya örnek olarak her sutuna 45.000 veri yüklemeye çalıştım ve p.kart sayfasına hala on dakikada kopyalamadı.
bunu benim attığım örnek dosya üzerinden ve ekte belirtilen üzerinden kodla yapabilirmiyiz.
iyi çalışmalar.

 

[Merhum İdris SERDAR]

Sayın idris bey öncelikle ilginizden dolayı çok teşekkür ederim.
Sizin gönderdiğiniz dosyaya örnek olarak her sutuna 45.000 veri yüklemeye çalıştım ve p.kart sayfasına hala on dakikada kopyalamadı.
bunu benim attığım örnek dosya üzerinden ve ekte belirtilen üzerinden kodla yapabilirmiyiz.
iyi çalışmalar.

.

Ben sizin yukarıda söylediğiniz şeylerden hiç bir şey anlamadım. Benim verdiğim yol en hızlı çalışan yoldur. Öyle kopyalama falan yok orada.

.

 

[hassas]

Sayın idris bey ben elimdeki verileri sizin eklediğiniz tabloda p.kart sayfasına yüklediğimde ilk önce kasma yapmıştı, fakat daha sonraki eklemelerde bu sorunla karşılaşmadım.
elinize sağlık teşekkür ederim.
Hayatınızda huzur ve kolaylıklar dilerim.

 

[hassas]

Sayın idris bey öncelikli iyi akşamlar;
Sizden bir istirhamım daha olacak eğer size zahmet olmazsa ; rapor sayfasına satış tipi hepsi olarak bir buton daha ekleyebilirmiyiz, ve bu butonu eklediğimizde toplamda x plakalı aracın toplamda tts veya pompacı olarak kaç defa yakıt aldığını görebilirmiyiz. ve üzerine tıkladığımızda da zaten detayını diğer sayfada veriyor ve çok güzel olmuş
iyi çalışmalar diler tüm işlerinizde başarılar ve kolaylıklar dilerim.

 

[Merhum İdris SERDAR]

.

Böyle bir şeye gerek yok.

Slicer - Dilimleyici'nin sağ üst köşesindeki huniye tıklamak yeterli.

.

 

[hassas]

Sayın idris bey çok teşekkür ederim ben onu bilmiyordum;
Fakat satış tipi sizin dediğiniz gibi ilgili modu tıkladığımızda alt alta değilde yan yana gelme ihtimali varmı acaba; birde plakanın karşısındaki her iki yani tts ve pompacı adetlerine tıkladığımızda toplam o plakanın tüm verilerinin getirilmesi olabilirmi acaba.

 

[Merhum İdris SERDAR]

.

Dediğinizin hepsi olabilir.Kurcalamanız gerekir.

Excel Dersanesindeki Pvot Table - Özet Tablo ile ilgili örnek dosyaları inceleyin.


.

 

[hassas]

Sayın idris bey;
Kusura bakmayın araştırdım fakat çözemedim.yardımcı olabilirseniz çok sevinirim.
iyi akşamlar dilerim.