[Yardım]  Yinelenen verilerin engellenmesi

Kulanıcı arayüz formu

Yinelenen verilerin engellenmesi

İleti#1)  SelinÖzçelik » 14 May 2019 13:23

Kod: Tümünü seç
Private Sub ComboBox_IsMerkeziCalisanAdi_Change()
    Dim a As Integer
    Me.ComboBox_BaslangicTarihi.Clear
    Me.ComboBox_BitisTarihi.Clear
If Me.ComboBox_IsMerkeziCalisanAdi.Value = "" Then Exit Sub
   For i = 2 To Worksheets("Sayfa1").Cells(Rows.Count, 8).End(xlUp).Row
        If Worksheets("Sayfa1").Cells(i, 22).Value = Me.ComboBox_IsMerkeziCalisanAdi.Value Then
            For a = i - 1 To 2 Step -1
                If Worksheets("Sayfa1").Cells(a, 22).Value = Worksheets("Sayfa1").Cells(i, 22).Value Then
                    Exit For
                End If
            Next a
            If a > 1 Then
                Me.ComboBox_BaslangicTarihi.AddItem Format(CDate(Worksheets("Sayfa1").Cells(i, 8).Value), "dd.mm.yyyy")
            End If
        End If
    Next i
           'CALISAN ADINA GÖRE TARİH FİLTRESİ



Merhabalar, yukarıdaki kod yinelenen tarih verilerimin engellenmesini sağlamak için yazıldı ama engellemiyor yinelemeyi. Excel sayfamda 8. sütun tarihlerimin bulunduğu sütun, 22. sütun ise çalışan adının olduğu sütundur. Bu kod üzerinden düzeltme yapıp nasıl yinelemeyi engelleyebilirim? Teşekkürler.
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

Cevap: Yinelenen verilerin engellenmesi

İleti#2)  Ali ÖZ » 15 May 2019 12:10

Merhaba,
Amacınız combobox da benzersiz veri listelemek mi ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9814
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Yinelenen verilerin engellenmesi

İleti#3)  SelinÖzçelik » 15 May 2019 12:43

Ali ÖZ yazdı:Merhaba,
Amacınız combobox da benzersiz veri listelemek mi ?

Merhaba, evet combobox da tarihlerimin benzersiz şekilde görünmesini istiyorum.
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

Cevap: Yinelenen verilerin engellenmesi

İleti#4)  Ali ÖZ » 16 May 2019 07:50

Dosyanızı eklerseniz net çözüm sunabilirim,bu şekilde deneyin.

Kod: Tümünü seç
  Set s Sheets("Sayfa1")
  For 
2 To s.range("H65536").End(3).Row
    
If WorksheetFunction.CountIf(s.Range("V1:V" i), s.Cells(i"V")) = 1 Then
       Me
.ComboBox_BaslangicTarihi.AddItem s.Cells(i"H").Value
    End 
If
  
Next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9814
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe