[Yardım]  Verilerimin yinelenmesini engelleyemiyorum

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Verilerimin yinelenmesini engelleyemiyorum

İleti#1)  esrayılmaz » 12 May 2019 10:41

Merhabalar verilerim dosyadaki gibidir.Tarih+Saat olduğu için yinelenmesini engelleyemiyorum. Örn;Aynı tarihe ait 2 veri var (30.05.2018 12:10 - 30.05.2018 13:54) ama saatleri farklı olduğu için ikisi de ComboBox da gözüküyor.Ben sadece tarihin çıkması istiyorum yani "30.05.2018" tarihi çıksın istiyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
esrayılmaz
Yeni Başlamış
 
Kayıt: 29 Mar 2019 22:35
Meslek: Öğrenci
Yaş: 22
İleti: 33
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İstanbul

Cevap: Verilerimin yinelenmesini engelleyemiyorum

İleti#2)  veyselemre » 12 May 2019 13:15

Kod: Tümünü seç
    With CreateObject("Scripting.Dictionary")
        For Each huc In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
            .Item(Format(huc.Value, "dd.mm.yyyy")) = Null
        Next huc
        kys = .keys
    End With
    For i = LBound(kys) To UBound(kys) - 1
        For ii = i + 1 To UBound(kys)
            If CDate(kys(i)) > CDate(kys(ii)) Then
                tmp = kys(i)
                kys(i) = kys(ii)
                kys(ii) = tmp
            End If
        Next ii
    Next i
    ComboBox1.List = kys
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Cevap: Verilerimin yinelenmesini engelleyemiyorum

İleti#3)  SelinÖzçelik » 12 May 2019 13:31

veyselemre yazdı:
Kod: Tümünü seç
    With CreateObject("Scripting.Dictionary")
        For Each huc In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
            .Item(Format(huc.Value, "dd.mm.yyyy")) = Null
        Next huc
        kys = .keys
    End With
    For i = LBound(kys) To UBound(kys) - 1
        For ii = i + 1 To UBound(kys)
            If CDate(kys(i)) > CDate(kys(ii)) Then
                tmp = kys(i)
                kys(i) = kys(ii)
                kys(ii) = tmp
            End If
        Next ii
    Next i
    ComboBox1.List = kys


Merhabalar,denedim ama yine verilerim tekrarlıyor olmadı :(
Kullanıcı avatarı
SelinÖzçelik
Yeni Başlamış
 
Kayıt: 05 Nis 2019 14:20
Meslek: Öğrenci
Yaş: 23
İleti: 11
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Eskişehir


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 2 misafir

Bumerang - Yazarkafe