• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

iki tarih arasındaki benzersizleri bulma

Katılım
31 Temmuz 2012
Mesajlar
39
Excel Vers. ve Dili
ms excel 2010
türkçe
bir sütunda tarihler diğerinde isimler vardır. tarih aralığına göre isimlerin benzersiz sayısını almak istiyorum.Bunu nasıl yapabilirim...
 
sayın yurttas
formülü aktif yapıp enter yaptıktan sonra değer 10 iken 1 oluyor. bunun sebebi nedir?
 
Sorunumu anladım yurttaş bey .formülü ctrl+shift+enter ile çalışacak. peki ben tarihleride formülde vermek istersem. tarih(yıl,ay;gün) diye değiştirirdim formülde ama yanıt alamadım
 
Sorunumu anladım yurttaş bey .formülü ctrl+shift+enter ile çalışacak. peki ben tarihleride formülde vermek istersem. tarih(yıl,ay;gün) diye değiştirirdim formülde ama yanıt alamadım

.

Örnek dosya ekleyin ve ne yapmaya çalıştığınızı açıklarsanız bakabiliriz.

Bütün örnekleri bize yaptırmayı düşünmüyorsunuz herhalde...:)

.
 
yok sizin örneğiniz bana son derece uyumlu farkı bile yok. sadece tarihleri formül içinde almak istiyorum :)

=TOPLA(EĞER((KAÇINCI(DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&":D"&KAÇINCI(TARİH(2012;6;30);A4:A100));DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&":D"&KAÇINCI(TARİH(2012;6;30);A4:A100));0))>=
(SATIR(DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&":D"&KAÇINCI(TARİH(2012;6;30);A4:A100)))-
(MİN(SATIR(DOLAYLI("D"&KAÇINCI(TARİH(2012;6;1);A4:A100)&":D"&KAÇINCI(TARİH(2012;6;30);A4:A100))))-1))=DOĞRU;1;0))


şeklinde yapmam doğru olurmu?

yardımlarınız için minnettarım....
 
Son düzenleme:
yok sizin örneğiniz bana son derece uyumlu farkı bile yok. sadece tarihleri formül içinde almak istiyorum :)



yardımlarınız için minnettarım....

.

Dosyaya göre:

Formülde G4 ve G5 gördüğünüz yere ilgili tarihleri yazın.

Yalnız tarihleri örneğin aşağıdaki şekillerden herhangi birisi ile girmeniz gerekir.

Kod:
--"01.01.2012"

Kod:
0+"01.01.2012"

Kod:
1*"01.01.2012"


gibi...


.
 
çok teşekkür ederim yurrtaş bey.emeğiniziz için.
:)
 
yurttas bey çok oluyorum ama verdiğiniz formül tarihleri birebir belirtmemi istiyor yani benim verimdeki tarihler aralıklı bazı günlerde kayıt yok. ocak 1-30 ocak arası benzersizleri bulmasını istiyorum ama formül kabul etmiyor verilerim 4 ocak itibari ile başlıyor. bunun bir çaresi var mıdır acaba?
 
.

Son açıklamnızdan bir şey anlamadım.

Benzersizleri mi bulacak, benzersiz olanların sayısının mı bulacak?

En iyisi siz bir dosya üzerinde açıklama yapın.



.
 
Dosya ekte :...
 

Ekli dosyalar

Son düzenleme:
Yurttas Bey dosyayı inceleme şansınız oldumu?
 
hala bekliyorum arkadaşlar sadece bir formül.....
aylık verilerin benzersiz sayısı.
 
niye kimse yardım etmiyor arkadaşlar konum güncel......
 
niye kimse yardım etmiyor arkadaşlar konum güncel......

Sayın yurttaş'ın 12 nolu mesajındaki açıklamaları sizin örnek dosyanızda göremedim.

(verilerim bu şekilde geliyor yani kayıt sistemimden
haziran ayı benzersiz verileri
temmuz ayı benzersiz verileri bulmak isatiyorum
umarım açıklayıcı olmuşumdur bu konuda)

not : benzersiz veriler D ve E sutünuna gelmektedir C sutünu yardımcı sutün olarak kullanılnıştır.

kod:
Kod:
Application.ScreenUpdating = False
Columns("C:E").ClearContents
i = 0
Set n = CreateObject("Scripting.Dictionary")
For Each x In Range(Cells(1, 3), Cells(Columns.Count, 3))
i = i + 1
Cells(i, 3).Value = Val(Format(Cells(i, 1).Value, "mm")) & Cells(i, 2).Value
If x.Value <> "" Then
If Not n.exists(x.Value) Then
n.Add x.Value, Nothing
r = r + 1
Cells(r, 4).Value = Cells(x.Row, 1).Value
Cells(r, 5).Value = Cells(x.Row, 2).Value
End If
End If
If i = Cells(Rows.Count, "A").End(3).Row Then
Columns("C").ClearContents
Application.ScreenUpdating = True
MsgBox "işlem tamam"
Exit Sub
End If
Next x
End Sub
 
yeni dosya ekledim beyler .
yardım ederseniz çok minnettar olacağım.
inşallah bu sefer anlatabilmişimdir.
kusura bakmayın....
 

Ekli dosyalar

Geri
Üst