veri listesine teke indirmek

[gedavet]

iyi çalışmalar
excel sayfasında diğer sayfada satır satır tarih var bu tarihleri aynı olanları başka bir sayfada bir hücrede veri doğrulamadan liste ye bir formül ile yapıla bilirmi

yani sayfa 1 a1 hücresine veri doğrulamadan listeye sayfa 2 deki a1 aşağıya doğru yazılan tarihleri teke indiren bir formül olabilirmi

yardımlarınız için şimdiden teşekkür ederim

 

[gedavet]

yardım

ekte bir örnek hazırlamaya çalıştım yardımcı olabilirmisiniz

 

[Murat OSMA]

D4 hücresine bu formülü girin ve aşağıya doğru çekin;

[FONT="Trebuchet MS"]=EĞERHATA(İNDİS(LİSTE;KAÇINCI(0;EĞERSAY($D$3:D3;LİSTE);0));"")[/FONT]

Dizi formülüdür. Ctrl + Shift + Enter ile girilmelidir.


Benzersizler listelendikten sonra Veri Doğrulamaya benzersiz olan listeyi aldırın.

 

[gedavet]

murat bey ilginiz için teşekkür ederim
a1 hücresindeki veri doğruladan liste menüsüne formül yapıp listede tarihleri teke indirmek istiyorum

 

[Murat OSMA]

Söylediğim gibi yaparsanız mümkün olabilir.
Veri Doğrulama özelliğinde, direkt olarak benzersizleri listele gibi bir durum mevcut değil diye biliyorum.

 

[gedavet]

hocam dediğinizi anladım ancak benim istediğim başka bir yerde işlem yapmadan direk tarihlerden veri doğrulama daki listeye bir formül yazıp o şekilde teke indirmek istiyorum
bu şekilde bir formülde yardımcı olabilrimisiniz

 

[Murat OSMA]

Tekrar okuyun lütfen.

Söylediğim gibi yaparsanız mümkün olabilir.
Veri Doğrulama özelliğinde, direkt olarak benzersizleri listele gibi bir durum mevcut değil diye biliyorum.

 

[bzace]

Merhaba,
Arkadaşımın önerisi makro ile isterseniz.
Verileriniz A sütunu 2. satırdan başlasın, benzersiz değerleri makroyu çalıştırdıktan sonra C2 hücresine alacaktır.
Boş bir çalışma Sayfasında deneyiniz.

Sub Benzersiz_Değerleri_Listele()
Dim uniq As New Collection
Dim iLastRow As Long
Dim i As Long
Dim arr()
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To iLastRow
        On Error Resume Next
        uniq.Add Cells(i, 1), CStr(Cells(i, 1))
    Next
ReDim arr(1 To uniq.Count)
    For i = 1 To uniq.Count
        arr(i) = uniq(i)
    Next i
Cells(2, 3).Validation.Delete
Cells(2, 3).Validation.Add Type:=xlValidateList, Formula1:=Join(arr, ",")
End Sub

 

[gedavet]

hocam ilginiz için teşekkür ederim
2. mesajdaki örnek dosyaya uylama yapıvere bilirmisiniz

 

[ZorBey_]

Merhaba Sayın mustafakoza iyi çalışmalar.
Alternatif.

 

[gedavet]

ilginiz için teşekkür ederim emeğinize sağlık herkesin

 

[Murat OSMA]

Gördüğünüz gibi, formülle direkt olarak Veri Doğrulama içerisine benzersiz veriler alma ile örnek verilmedi.

Sn. bzace'in önerdiği kodları revize ederek bu şekilde daha da anlaşılır hâle getirmek mümkün;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a&, say%, arr()
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A)) = 1 Then
            say = say + 1
            ReDim Preserve arr(1 To say)
            For a = 1 To UBound(arr)
                arr(say) = Cells(i, "A").Value
            Next a
        End If
    Next i
    Range("A1").Validation.Delete
    Range("A1").Validation.Add Type:=xlValidateList, Formula1:=Join(arr, ",")
End Sub[/FONT]