'ComboBox3.MatchEntry = fmMatchEntryComplete

    For i = 7 To [d65536].End(3).Row

        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then

          ComboBox3.AddItem CStr(Cells(i, 4))

 

      'TextBox1.Text = CDate(Date) 'Form A?yly?ta otomatik tarih

       

      End If

    Next

yukardaki kısmı aşağıdaki kodla değiştirip dener misiniz?

 Dim ListedeVar As String

 ListedeVar = ""

 ComboBox3.Clear

    For i = 7 To [d65536].End(3).Row

       If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then

            If InStr(1, ListedeVar, CStr(Cells(i, 4)), vbTextCompare) = 0 Then ComboBox3.AddItem CStr(Cells(i, 4))

            ListedeVar = ListedeVar & CStr(Cells(i, 4))

       End If

    Next

yada doğrudan önce ComboBox3 boşaltmak için

ComboBox3.Clear