Çözüldü Benzersiz İki tarih aralıklı

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Ersin Tunca

Ersin Tunca

Yeni Üye
Kullanıcı Bilgileri
Katılım
4 Ağu 2021
Mesajlar
390
Aldığı beğeni
76
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Sy. Hocalarım ;

Ekli dosyada yer Sayfa1 Listesinden Sayfa2 'e iki tarih aralığında benzersiz olarak listelemesini talep etmekteyim.
Teşekkür ederim.
Not: Makro ile yapılması gerekmektedir. Formül ile yaptım ama veriler 5 binin üzerinde olunca kasıyor.
 

Ekli dosyalar

  • benzersiz iki tarih aralıklı.xlsx
    12.4 KB · Gösterim: 9
Çözüm
Refaz
s2.ChartObjects("Grafik 1").Chart.SetSourceData Source:=Range("A2:B" & son)
s2.ChartObjects("Grafik 2").Chart.SetSourceData Source:=Range("A2:A" & son & ",C2:C" & son)


Yukardaki kodla otomatik yaptırdım.Daha öncede dediğim dibi grafikten anlamam abey.Son satır hangisiyse ona göre ayarlıyor ama grafik büyüdü normalmi bilemiyorum.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,162
Aldığı beğeni
3,893
Excel Versiyonu
Office 2021 TR
Dosya ekleyin demesem daha yazışıp duracaktık boşuna :)
Alttaki ile değiştirin ilgili yeri önce.Dosyadaki tarih yerler farklı çünkü.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,162
Aldığı beğeni
3,893
Excel Versiyonu
Office 2021 TR
Dosya son hali ekte.
Test2 yede gerek yokmuş artırıcıya ara makro bağlandı.
 

Ekli dosyalar

  • grafik - Kopya.xlsm
    45 KB · Gösterim: 0
Olumlu oy 1 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,162
Aldığı beğeni
3,893
Excel Versiyonu
Office 2021 TR
Rica ederiz abey.
Formüller silindi ve sadece bir kod kaldı ara adında.
Kod sadece değiştirici ile çalışır.
Sayfa kodunu sildim formül yapmışsınız çünkü.
Ali hocamızn yaptığı Ado ilede olabilirdi kod normalde.

aaaa.gif


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • grafik - Kopya - 2.xlsm
    43.2 KB · Gösterim: 2
Olumlu oy 1 Negatif oyla
Ersin Tunca

Ersin Tunca

Yeni Üye
Kullanıcı Bilgileri
Katılım
4 Ağu 2021
Mesajlar
390
Aldığı beğeni
76
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Sy. Refaz ;

Hocam elinize sağlık Ali ÖZ hocam sizin de elinize sağlık çok güzel oldu. Grafik sorununu nasıl çözebiliriz. Teşekkür ederim
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,162
Aldığı beğeni
3,893
Excel Versiyonu
Office 2021 TR
Ersin Tunca' Alıntı:
Sy. Refaz ;

Hocam elinize sağlık Ali ÖZ hocam sizin de elinize sağlık çok güzel oldu. Grafik sorununu nasıl çözebiliriz. Teşekkür ederim
Genişletmek için tıkla...
Grafikten anlamıyorum ama gifteki gibi sadece rakamlar geliyor.Sanırım grafik özelliklerinden ayarlanacak.Yada bir bakayım yinede belki adresi otomatik yapabiliriz.
 
Olumlu oy 1 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,162
Aldığı beğeni
3,893
Excel Versiyonu
Office 2021 TR
s2.ChartObjects("Grafik 1").Chart.SetSourceData Source:=Range("A2:B" & son)
s2.ChartObjects("Grafik 2").Chart.SetSourceData Source:=Range("A2:A" & son & ",C2:C" & son)


Yukardaki kodla otomatik yaptırdım.Daha öncede dediğim dibi grafikten anlamam abey.Son SATIR hangisiyse ona göre ayarlıyor ama grafik büyüdü normalmi bilemiyorum.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
Ersin Tunca

Ersin Tunca

Yeni Üye
Kullanıcı Bilgileri
Katılım
4 Ağu 2021
Mesajlar
390
Aldığı beğeni
76
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Sy. Refaz ;
Hocam elinize sağlık tam istediğim gibi çok güzel olmuş. Allah razı olsun
Ali ÖZ hocam sizin de elinize sağlık Allah razı olsun

hocam başlangıç tarihini J2 den değil de A1 den alması için kodun neresini değiştirmem gerekiyor.
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,162
Aldığı beğeni
3,893
Excel Versiyonu
Office 2021 TR
Rica ederim.
Gifi izlerseniz tek veri kalınca bazen sapıtıyor.
Onun için konu açarsanız iyi olur.
Kodda ufak değişiklik yaptım bu arada.

ggg.gif
 

Ekli dosyalar

  • grafik - Kopya - 2.xlsm
    43.8 KB · Gösterim: 6
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,162
Aldığı beğeni
3,893
Excel Versiyonu
Office 2021 TR
Abey son olarak şunu yazayım.
Ayrı bir konu açmışsınız ama dediklerimin hiçbirini yapmamışsınız.
Sadece A1 için tarih olacaksa alttaki kod daha uygun olur.
Formüllerdede =ÇOKETOPLA(Sayfa1!$T$2:$T$2000;Sayfa1!$A$2:$A$2000;$A2;Sayfa1!$E$2:$E$2000;$A$1) gibi kısaltabilirsiniz.

Tarih aralığı yazmıştınız oysa eşit tarih olanı istiyorsunuz formül ve kodlardan anladığım kadarıyla.
Kolay gelsin.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst