• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Ersin Tunca

Ersin Tunca

Yeni Üye
Katılım
4 Ağu 2021
Mesajlar
397
Çözümler
1
Aldığı beğeni
86
Excel V
Office 2010 TR
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çö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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Dosya ekleyin demesem daha yazışıp duracaktık boşuna :)
Alttaki ile değiştirin ilgili yeri önce.Dosyadaki tarih yerler farklı çünkü.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Dosya son hali ekte.
Test2 yede gerek yokmuş artırıcıya ara makro bağlandı.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
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


HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
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
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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
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
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
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.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst