Aşağıdaki kod ile Poliçeler sayfasındaki verileri listboxta iki tarih arası listeleme yapabiliyorum. Yapmak istediğim şey bu verilerden aynı muayene tarihinde aynı plakalı aracın listboxta sadece 1 kere listelenmesini sağlayabilmek. Bunu nasıl yapabilirim.
Kod:
Private Sub CommandButton_MuayeneTarihleri_Click()
Dim dsh As Worksheet
Set dsh = ThisWorkbook.Sheets("Policeler")
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("MuayeneTarihleri")
dsh.UsedRange.AutoFilter 23, ">=" & Me.TextBox1.Value, xlAnd, "<=" & Me.TextBox2.Value
sh.Cells.ClearContents
dsh.UsedRange.Copy
Application.ScreenUpdating = False
sh.Range("A1").PasteSpecial xlPasteValues
sh.Range("A1").PasteSpecial xlPasteFormats
dsh.AutoFilterMode = False
Dim last_row As Long
last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))
If last_row = 1 Then last_row = 2
With Me.ListBox1
.ColumnHeads = True
.ColumnCount = 24
.ColumnWidths = 50
.RowSource = sh.Name & "!A2:X" & last_row
End With
![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
