Isme göre ay,ay toplam alma ve grafikte gösterme

[hassas]

Sayın üstadlar öncelikle iyi akşamlar diler, huzurlu ve sağlıklı yaşamlar dilerim.
Eke koyduğum dosya içerisinde gerekli açıklamayı yaptığımı düşündüğüm çalışma sayfamla ilgili yardımlarınızı bekşyorum.
şimdiden yapacağınız katkılardan dolayı çok teşekkür ederim.
kusura bakmayın kendim uğraştım fakat başaramadım.

 

[hassas]

Kusura bakmayın dosyayı eklemeyi unutmuşum

 

[hassas]

Sayin arkadaşlar yukaridaki dosyaları ilgili yardımlarınızı bekliyorum. Eğer anlatamadigim bir yer var ise tekrar aciklayabilirim. iyi çalışmalar dilerim

 

[parametre]

slm Konunuzu acık anlatamamısınız daha acık anlatınız

dosyanıza yakın ay toplamı

diger link
toplamlar neye gore alınacak plaka tarih yada diger kosullarınızı bizim anlayabileceğimiz sekilde belirtiniz saygılar

 

[hassas]

Sayın parametre öncelikle iyi akşamlar dilerim.
Hassasiyetinizden dolayıda teşekkür ederim.
ekli dosyamda bulunan yakıt ve km sayfaları data sayfalarımdır.
Sorgulama sayfasında ise B sutununda bulunan plaka karşılığındaki verilerin yakıt ve km sayfalarındaki verilerini hangi aya ait ise o ayın sutununa toplamının getirilmesini istiyorum.
Grafik sayfasında ise sorgu sayfasında oluşan verilerin A 1,A2,A3 Kriterine göreÖrnek B sutunundaki kritere göre ğrafik olarak göstermesini istiyorum.

 

[hassas]

Sayın arkadaşlar öncelikle iyi günler dilerim.
yukarıda ekli dosyaları ilgili yardımcı olma imkanınız ve zamanininz varmı acaba

 

[hassas]

Sayın üstadlar yukaridaki dosya ile ilgili yardımlarınızı bekliyorum

 

[parametre]

toplacarpım

burada calısmaları dosyanıza uyarlayın

 

[hassas]

Sayın parametre ilginizden ve tavsiyenizden dolayı teşekkür ederim.
Benim örnek olarak ekleme yaptığım dosya üzerinde yardımcı oalbilirseniz sevinirim çünkü benim dosyamda hem sorgu sayfasında hemde grafik sayfasında tarih kriteri mevcut ,Tüm site dostlarının ilgisinden dolayı teşekkür eder yardımlarınızı bekliyorum.
iyi akşamlar dilerim.

 

[hassas]

Sayin ustadlar bu konu ile ilgilenen ve yardımcı olabilecek arkadaşların yardımını bekliyorum

 

[vardar07]

Sorgulama sayfasına nasıl veri gelecekse bir kaç plakaya göre elle ekleyin. Yakıt ve km sayfasında veriler farklı birkaç örnek girin.

 

[hassas]

Sayın vardar bey öncelikle ilginizde ve açıklayıcı uyarunuzdan dolayı çok teşekkür ederim.
Sizinde belirttiğiniz şekilde sorgu sayfasına örnek uygulama yaptım.
grafik sayfasında da sorgu sayfasındaki verilerin ilgili girilen aylara göre ve peron adına göre grafik oluşmasını istiyorum.
tekrar çok teşekkür eder tüm işlerinizde kolaylıklar dilerim.

 

[denese]

Merhaba,

Sayın parametre' nin belirttiği gibi TOPLA.ÇARPIM fonksiyonu işinizi görecektir. Sorgulama sayfası için eki inceleyin.

İyi çalışmalar.

 

[hassas]

Sayın denese bey iyi günler ekli tabloda da görüldüğü üzere yakıt ve km sayfasında iki tane farklı tarih kriteri var bundan dolayı sorgulama sayfasına aylara göre veriyi getiremiyorum. sorgu sayfasındaki açıklamada da yaptığım gibi, yakıt sayfasındaki tarih ve saat aralığındaki verilerde ,örneğin 01.02.2017 07.59.00 dan önceki verileri ocak ayı toplamına dahil etmesi gerekiyor. km sayfasında ise saat verisi yok direk tarih olarak alıyor.
Vardar bey buna benzer daha önce örnekler yapmıştı ama onuda tam uygulayamadım.

 

[denese]

Sayın denese bey iyi günler ekli tabloda da görüldüğü üzere yakıt ve km sayfasında iki tane farklı tarih kriteri var bundan dolayı sorgulama sayfasına aylara göre veriyi getiremiyorum. sorgu sayfasındaki açıklamada da yaptığım gibi, yakıt sayfasındaki tarih ve saat aralığındaki verilerde ,örneğin 01.02.2017 07.59.00 dan önceki verileri ocak ayı toplamına dahil etmesi gerekiyor. km sayfasında ise saat verisi yok direk tarih olarak alıyor.
Vardar bey buna benzer daha önce örnekler yapmıştı ama onuda tam uygulayamadım.

Merhaba,

Yakıt sayfasına yardımdı sütun ekleyerek anladığım kadarıyla yapmaya çalıştım.

Eki inceleyin.

 

[hassas]

Sayın Denese bey gerçekten ilginizden ve çabanızdan dolayı çok teşekkür ederim.
sizin gönderdiğiniz formüle göre kendi verilerimi denediğimde sizin veriler 2 katı fazla veriyor birde grafik tarafında bu verileri istenilen ay aralığında peron kriterine göre getirme imkanımız varmı acaba

 

[hassas]

Sayin arkadaşlar öncelikle hayırlı günler dilerim. gubcelleyerek eklediğim çalışma dosyamla ilgili katkılarınızı bekliyorum.

 

[vardar07]

Bir modüle ekleyip çalıştırın. Sonucu karşılaştırınız.

Sub yakit()
ilk = Timer
Set sy = Sheets("YAKIT")
Set ss = Sheets("SORGULAMA")
ss.Range("F3:AF1456").ClearContents
Application.ScreenUpdating = False
For Each veri In ss.Range("B3:B2712")
Set bul = sy.Range("B1:B1456").Find(veri, , xlValues, xlWhole)
If Not bul Is Nothing Then
adrs = bul.Address: sat = bul.Row
For i = 6 To 28 Step 2
a = WorksheetFunction.Proper(Cells(1, i)) ' Sorgu sayfası yıl ve ay başlıkları formatlanıyor.
Do
sat = bul.Row
b = Format(sy.Cells(sat, "A"), "yyyy mmmm")  'Bulunacak tarih formatlanıyor.
gün = Format(sy.Cells(sat, "A"), "dd")  'Gün kontrolü yapılıyor.
zaman = Format(sy.Cells(sat, "A"), "hh:mm:ss")  'Saat kontrol ediliyor.
If gün = "01" And zaman < "08:00:00" Then  'Gün ve saat şartı uyuyormu
mv = Format(sy.Cells(sat, "A") - 1, "yyyy mmmm")  'Gün 01 ve saat 08 den küçükse bir önceki güne çevir.
Else
mv = Format(sy.Cells(sat, "A"), "yyyy mmmm") ' Bulunacak tarih formatlanıyor.
End If
If sy.Cells(sat, "B") = ss.Cells(veri.Row, "B") And a = mv Then ' Yakıt tarihi ile sorgu ayı eşitliği kontrolü.
ss.Cells(veri.Row, i) = ss.Cells(veri.Row, i) + sy.Cells(sat, "C")' Şartlar uygunsa veri yazılıyor.
End If
sut = bul.Address
Set bul = sy.Range("b2:b1456").FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> adrs
Next i
End If
Next
Call km
Application.ScreenUpdating = True
MsgBox Format(Timer - ilk, "0.000") & " bitti"
End Sub


Sub km()
ilk = Timer
Set sk = Sheets("KM")
Set ss = Sheets("SORGULAMA")
Application.ScreenUpdating = False
For Each veri In ss.Range("B3:B2712")
Set bul = sk.Range("B1:B1456").Find(veri, , xlValues, xlWhole)
If Not bul Is Nothing Then
adrs = bul.Address: sat = bul.Row
For i = 6 To 28 Step 2
a = WorksheetFunction.Proper(Cells(1, i))
Do
sat = bul.Row
b = Format(sk.Cells(sat, "A"), "yyyy mmmm")
gün = Format(sk.Cells(sat, "A"), "dd")
zaman = Format(sk.Cells(sat, "A"), "hh:mm:ss")
If gün = "01" And zaman < "08:00:00" Then
mv = Format(sk.Cells(sat, "A") - 1, "yyyy mmmm")
c = sk.Cells(sat, "A") - 1
Else
mv = Format(sk.Cells(sat, "A"), "yyyy mmmm")
End If
If sk.Cells(sat, "B") = ss.Cells(veri.Row, "B") And a = mv Then
ss.Cells(veri.Row, i + 1) = ss.Cells(veri.Row, i + 1) + sk.Cells(sat, "C")
End If
sut = bul.Address
Set bul = sk.Range("b2:b1456").FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> adrs
Next i
End If
Next
End Sub

 

[denese]

Sayın Denese bey gerçekten ilginizden ve çabanızdan dolayı çok teşekkür ederim.
sizin gönderdiğiniz formüle göre kendi verilerimi denediğimde sizin veriler 2 katı fazla veriyor birde grafik tarafında bu verileri istenilen ay aralığında peron kriterine göre getirme imkanımız varmı acaba

Merhaba,

İş yoğunluğu sebebiyle konudan biraz uzak kaldım. Sayın vardar07' in makro çözümü umarım işinizi görmüştür.

İyi çalışmalar

 

[hassas]

Sayin Vardar bey öncelikle gösterdiğiniz hassssiyettyen ve uardimlar8nizdan dolayi çok teşekkür ederim. gönderdiğiniz kodu uyguladım fakat herhalde başarılı olamadım verileri getirmedi sizin uygulayip ekleme imkanınız varmı acaba size zahmet olma ise.
şimdiden tekrar teşekkür ederim.