Çö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
Ali ÖZ

Ali ÖZ

Uzman
Kullanıcı Bilgileri
Katılım
28 May 2021
Mesajlar
316
Çözümler
84
Aldığı beğeni
444
Excel Versiyonu
Office 365 TR
Olur olmasına da gerçek veriler olmasına gerek yok.İndirgeyip yükleyebilir siniz.
 
Olumlu oy 1 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,232
Çözümler
504
Aldığı beğeni
3,963
Excel Versiyonu
Office 2021 TR
Dosyayı deneyiniz.Tarihler değişincede kod çalışır.

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

Ekli dosyalar

  • benzersiz iki tarih aralıklı.xlsm
    22.7 KB · Gösterim: 4
Olumlu oy 1 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,232
Çözümler
504
Aldığı beğeni
3,963
Excel Versiyonu
Office 2021 TR
Rica ederiz abey.Değer değiştirici dosyada yoktu.
Dosyayı olduğu gibi ekleyin.Sendkeyd olayından numlock kapanor.Ona göre Api kodu var.Yada başka yoldan hallederiz.
 
Olumlu oy 1 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,232
Çözümler
504
Aldığı beğeni
3,963
Excel Versiyonu
Office 2021 TR
Abey örnek dosya eklerseniz daha iyi olur çözüm için.Kodlarınızı görmek lazım.
 
Olumlu oy 1 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,232
Çözümler
504
Aldığı beğeni
3,963
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,232
Çözümler
504
Aldığı beğeni
3,963
Excel Versiyonu
Office 2021 TR
Test2 yide alttaki gibi değiştirin sendkeys olayına gerek yok

Kod:
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,232
Çözümler
504
Aldığı beğeni
3,963
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,232
Çözümler
504
Aldığı beğeni
3,963
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
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,232
Çözümler
504
Aldığı beğeni
3,963
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,232
Çözümler
504
Aldığı beğeni
3,963
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
Ali ÖZ' Alıntı:
Deneyin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Sy. Ali ÖZ ;

Hocam elinize sağlık çok güzel olmuş. Hocam size zahmet olmazsa tarih değiştikçe çalışabilir mi ? DeğerDeğiştirici1_Değiştir Butonu ile tarih değiştiriyorum buna kodu bağlaya bilir miyiz. Şimdiden teşekkür ederim.
 
Olumlu oy 0 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. Ali ÖZ ;

Hocam teşekkür ederim. başka bir excel dosyasına uygulamaya çalışıyorum sayfa adını kolon adını değiştiriyorum ama rs.Open sorgu, baglan, 1, 3 sarı şekil de hata alıyorum. Sebebi ne olabilir acaba
 
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