Soru Cbox yinelenen değerler hak.

[ESEZEN]

Merhabalar,
tarih cboxta yinelenen değerleri yok edemiyorum.
Desteğinizi rica ederim.

Private Sub ComboBox1_Change()
    Dim a As Long
    Dim i As Long
    ReDim dizial(1 To 13, 1 To 1)

    If ComboBox1.Text = "" Then Exit Sub

    ListBox2.Clear
    tarih.Clear
 
    For i = 1 To Sheets("Rapor").[a65536].End(3).Row
        If ComboBox1.Text = Sheets("Rapor").Cells(i, "a") Then
            a = a + 1
            ReDim Preserve dizial(1 To 13, 1 To a)
            dizial(1, a) = Sheets("Rapor").Cells(i, "A")
            dizial(2, a) = Sheets("Rapor").Cells(i, "B")
            dizial(3, a) = Sheets("Rapor").Cells(i, "C")
            dizial(4, a) = Sheets("Rapor").Cells(i, "D")
            dizial(5, a) = Sheets("Rapor").Cells(i, "E")
            dizial(6, a) = Sheets("Rapor").Cells(i, "F")
            dizial(7, a) = Sheets("Rapor").Cells(i, "G")
            dizial(8, a) = Sheets("Rapor").Cells(i, "H")
            dizial(9, a) = Sheets("Rapor").Cells(i, "I")
            dizial(10, a) = Sheets("Rapor").Cells(i, "J")
            dizial(11, a) = Sheets("Rapor").Cells(i, "K")
            dizial(12, a) = Sheets("Rapor").Cells(i, "L")
            dizial(13, a) = Sheets("Rapor").Cells(i, "M")
            
            If tarih.ListCount = 0 Then tarih.AddItem Sheets("Rapor").Cells(i, "B").Value
            For x = 0 To tarih.ListCount - 1
                If Sheets("Rapor").Cells(i, "B") = tarih.List(x, 0) Then
                    CombVarmi = True
                    Exit For
                Else
                    CombVarmi = False
                End If
            Next
            If CombVarmi = False Then tarih.AddItem Sheets("Rapor").Cells(i, "B").Value
            
        End If
    Next i

    If a = 0 Then
        MsgBox ComboBox1.Text & " Veri Tablosunda Yok! ", vbCritical
    Else
        ListBox2.Column = dizial
    End If

    Erase dizial
    a = Empty
    i = Empty
    Set SV = Nothing
End Sub

Private Sub tarih_Change()
    Dim a As Long
    Dim i As Long
    ReDim dizial(1 To 13, 1 To 1)

    If tarih.Text = "" Then Exit Sub

    ListBox2.Clear
    
    For i = 1 To Sheets("Rapor").[B65536].End(3).Row
        If ComboBox1.Text = Sheets("Rapor").Cells(i, "A") And CDbl(CDate(tarih)) = Sheets("Rapor").Cells(i, "B") Then
            a = a + 1
            ReDim Preserve dizial(1 To 13, 1 To a)
            dizial(1, a) = Sheets("Rapor").Cells(i, "A")
            dizial(2, a) = Sheets("Rapor").Cells(i, "B")
            dizial(3, a) = Sheets("Rapor").Cells(i, "C")
            dizial(4, a) = Sheets("Rapor").Cells(i, "D")
            dizial(5, a) = Sheets("Rapor").Cells(i, "E")
            dizial(6, a) = Sheets("Rapor").Cells(i, "F")
            dizial(7, a) = Sheets("Rapor").Cells(i, "G")
            dizial(8, a) = Sheets("Rapor").Cells(i, "H")
            dizial(9, a) = Sheets("Rapor").Cells(i, "I")
            dizial(10, a) = Sheets("Rapor").Cells(i, "J")
            dizial(11, a) = Sheets("Rapor").Cells(i, "K")
            dizial(12, a) = Sheets("Rapor").Cells(i, "L")
            dizial(13, a) = Sheets("Rapor").Cells(i, "M")
            End If
            Next i
            
            

    If a = 0 Then
        MsgBox ComboBox1.Text & " Veri Tablosunda Yok! ", vbCritical
    Else
        ListBox2.Column = dizial
    End If

    Erase dizial
    a = Empty
    i = Empty
    Set SV = Nothing

End Sub

Private Sub UserForm_Initialize()

akinturk_ciro.Caption = "0 TL"
akinturk_navlun.Caption = "0 TL"
spotcari_ciro.Caption = "0 TL"
spotcari_navlun.Caption = "0 TL"
dog_ciro.Caption = "0 TL"
dog_navlun.Caption = "0 TL"
filo_ciro.Caption = "0 TL"
filo_navlun.Caption = "0 TL"

akinturk_fark.Caption = "0 TL"
akinturk_oran.Caption = "% 0"
spotcari_fark.Caption = "0 TL"
spotcari_oran.Caption = "% 0"
dog_fark.Caption = "0 TL"
dog_oran.Caption = "% 0"
filo_fark.Caption = "0 TL"
filo_oran.Caption = "% 0"

akinturk_aracsayi.Caption = "0"
spotcari_aracsayi.Caption = "0"
dog_aracsayi.Caption = "0"
filo_aracsayi.Caption = "0"


With ListBox2
        .Clear
        .ColumnCount = 13
        .ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50;50"
    End With



End Sub
Private Sub UserForm_Activate()
Dim S1 As Worksheet
Dim i, s, x As Integer
Set S1 = Sheets("Rapor")

'
For i = 2 To S1.Cells(65536, "A").End(xlUp).Row
If Not WorksheetFunction.CountIf(S1.Range("A1:A" & i), S1.Cells(i, "A")) > 1 Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = S1.Cells(i, "a")
s = s + 1
End If: Next


End Sub

 

[ÖmerBey]

Merhaba,
Aşağıdaki şekilde deneyiniz...

            If tarih.ListCount = 0 Then tarih.AddItem Sheets("Rapor").Cells(i, "B").Text
            For x = 0 To tarih.ListCount - 1
                If Sheets("Rapor").Cells(i, "B").Text = tarih.List(x, 0) Then
                    CombVarmi = True
                    Exit For
                Else
                    CombVarmi = False
                End If
            Next
            If CombVarmi = False Then tarih.AddItem Sheets("Rapor").Cells(i, "B").Text

 

[ESEZEN]

Ömer bey, çok teşekkürler yine imdadımıza yetiştiniz.
İyi günler.

 

[ÖmerBey]

Rice ederim,
İyi günler, iyi çalışmalar...