Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Grafik Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Grafik Soruları Grafik uygulamaları ile ilgili sorularınızı bu başlığa yöneltebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-03-2017, 07:56   #11
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

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.
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 09:13   #12
hassas
Altın Üye
 
Giriş: 08/07/2009
Şehir: istanbul
Mesaj: 447
Excel Vers. ve Dili:
2007-2010
Varsayılan

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.
Eklenmiş Dosyalar
Dosya Türü: rar KM ÇALIŞMA YENİ-V1.rar (1.22 MB, 9 Görüntülenme)
hassas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 12:25   #13
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 189
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Merhaba,

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

İyi çalışmalar.
Eklenmiş Dosyalar
Dosya Türü: rar KM ÇALIŞMA YENİ-V1.rar (981.4 KB, 16 Görüntülenme)

Bu mesaj en son " 19-03-2017 " tarihinde saat 12:31 itibariyle denese tarafından düzenlenmiştir....
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 12:32   #14
hassas
Altın Üye
 
Giriş: 08/07/2009
Şehir: istanbul
Mesaj: 447
Excel Vers. ve Dili:
2007-2010
Varsayılan

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.
hassas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 13:23   #15
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 189
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Alıntı:
hassas tarafından gönderildi Mesajı Görüntüle
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.
Eklenmiş Dosyalar
Dosya Türü: rar KM ÇALIŞMA YENİ-V1.rar (1.02 MB, 25 Görüntülenme)
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 16:32   #16
hassas
Altın Üye
 
Giriş: 08/07/2009
Şehir: istanbul
Mesaj: 447
Excel Vers. ve Dili:
2007-2010
Varsayılan

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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 04:35   #17
hassas
Altın Üye
 
Giriş: 08/07/2009
Şehir: istanbul
Mesaj: 447
Excel Vers. ve Dili:
2007-2010
Varsayılan

Sayin arkadaşlar öncelikle hayırlı günler dilerim. gubcelleyerek eklediğim çalışma dosyamla ilgili katkılarınızı bekliyorum.
hassas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-03-2017, 12:10   #18
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

Bir modüle ekleyip çalıştırın. Sonucu karşılaştırınız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-03-2017, 17:31   #19
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 189
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Alıntı:
hassas tarafından gönderildi Mesajı Görüntüle
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
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-03-2017, 07:35   #20
hassas
Altın Üye
 
Giriş: 08/07/2009
Şehir: istanbul
Mesaj: 447
Excel Vers. ve Dili:
2007-2010
Varsayılan

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.
hassas Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:26


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden