03/06/2022, 00:39
Merhaba herkese sağlıklı günler dilerim
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.
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