Yıl bazında tarihi tekrarsız listeleme

[yanginci34]

Arkadaşlar merhaba; Sizlerden isteğim aşağıdaki gibi yardımlarınız için şimdiden teşekkürler. Not: hem makro ile hem formül ile olursa çok daha güzel olur.
mevcut liste olması gereken
01.01.2018 2018
05.01.2018 2019
06.04.2018 2020
01.02.2019
04.06.2019
06.07.2020
09.11.2020

 

[Haluk]

gg.aa.yyyy formatındaki veriler A1 ve altındaki hücrelerdeyse;

A1 hücresine aşağıdakini yazın ve formülü aşağıya doğru sürükleyin....

=YEAR(A1)

Sonuçta, "B" sütunundaki hücrelerde aşağıdaki gibi sonuçlar çıkacak.

2018
2018
2018
2019
2019
2020

Şimdi, "B" sütunundaki bu hücreleri mouse ile seçin, "Data" sekmesinde "Remove Duplicates" menüsünü çalıştırın, uygun seçenekleri işaretleyerek sonuca ulaşın.

.

 

[Erdem Akdemir]

Merhaba,

Dizi formülü.

=YIL(İNDİS($A$1:$A$7;KÜÇÜK(EĞERHATA(KAÇINCI(SATIR($A$1:$A$7);KAÇINCI(YIL($A$1:$A$7);YIL($A$1:$A$7);0);0);"");SATIR(A1))))

 

[Erdem Akdemir]

Makro,

Sub deneme()
Range("b:b").ClearContents
Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

sorgu = "select distinct(year(f1)) from[sayfa1$]"
Set rs = con.Execute(sorgu)
Range("b1").CopyFromRecordset rs


End Sub

 

[Haluk]

Erdem Beyin formüllü çözümüne alternatif olarak, ADO ile makrolu çözüm ektedir...

.

 

[muygun]

Merhaba;
Bir alternatif de benden
Her iki sayfayıda inceleyin.
İyi çalışmalar.

 

[YUSUF44]

Erdem Beyin formüllü çözümüne alternatif olarak, ADO ile makrolu çözüm ektedir...

.

Haluk Bey, koddaki distinct ve cursortype'ın fonksiyonunu açıklar mısınız? Sonucu teke indiren kısım neresi?

Not: Aynı daha doğrusu benzer çözüm sayın Erdem_34 tarafından da paylaşılmış, sonradan fark ettim.

 

[Erdem Akdemir]

Dizi formülü olmayan alternatif,

=YIL(İNDİS($A$1:$A$7;TOPLAMA(15;6;1/--(EĞERSAY(KAYDIR($A$1;;;SATIR($1:$7));">="&TARİH(YIL($A$1:$A$7);1;1))=1)*SATIR($1:$7);SATIR(A1))))

 

[Haluk]

Haluk Bey, koddaki distinct ve cursortype'ın fonksiyonunu açıklar mısınız? Sonucu teke indiren kısım neresi?

Distinct = Benzersiz bu işi yapıyor.

.

 

[YUSUF44]

Teşekkürler Haluk Bey.

 

[Haluk]

Alternatif olarak Scripting.Dictionary kullanılan bir dosya ektedir...

.

 

[yanginci34]

Tüm Üstadlarıma teşekkür ederim.

 

[Haluk]

Nasıl olsa iş, güç yok..... alternatiflere devam.

System.Collections nesnesinin de kullanıldığı dosya ektedir....

.

 

[yanginci34]

Hocam System.Collections nesnesinin kullanıldığı kod hata verdi.

 

[Haluk]

Hocam System.Collections nesnesinin kullanıldığı kod hata verdi.

Muhtemelen bilgisayarınızda ".net framework" yoktur, o yüzden hata alabilirsiniz.

.

 

[Erdem Akdemir]

Alternatif dizi formülü,

YIL(İNDİS($A$1:$A$12;KÜÇÜK(EĞERHATA(1/(SIKLIK(YIL($A$1:$A$12);YIL($A$1:$A$12))>0)*SATIR($A$1:$A$12);"");SATIR(A1))))