çift olan değerleri tek yapma

[oydemir]

formda bulduğum kodla çift olan değerlerin kaç tane olduğunu bulabiliyorum bunu sql yapa bilme şansın var mı.
şimdiden teşekürler



Private Sub CommandButton1_Click()
Set S1 = Sheets("TAPU_KAYIT")
For i = 1 To S1.Range("b65536").End(3).Row
deger = WorksheetFunction.CountIf(S1.Range("D1" & i), S1.Cells(i, "D"))
If deger > 1 Then
Cells(i, "D").Select
Cells(i, "a").Value = deger - 1
Selection.Interior.Color = vbYellow
End If
Next
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D]) Is Nothing Then Exit Sub
Sheets(ActiveCell.Text).Visible = True
Sheets(ActiveCell.Text).Select
End Sub

 

[Korhan Ayhan]

Amacınız yinelenen değerleri tek yapmaksa aşağıdaki yapıyı kullanabilirsiniz.

SELECT DISTINCT alan_adi1,alan_adi2
FROM tablo_adi

 

[oydemir]

Teşekkürler eline sağlık