Listboxta İki Tarih Arası Filtrelemede Tekrarlayan Değerlerin Silinmesi - Baskı Önizleme

Listboxta İki Tarih Arası Filtrelemede Tekrarlayan Değerlerin Silinmesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Listboxta İki Tarih Arası Filtrelemede Tekrarlayan Değerlerin Silinmesi (/konu-listboxta-iki-tarih-arasi-filtrelemede-tekrarlayan-degerlerin-silinmesi.html)

Listboxta İki Tarih Arası Filtrelemede Tekrarlayan Değerlerin Silinmesi - Oğuz Türkyılmaz - 03/06/2022

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.

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

RE: Listboxta İki Tarih Arası Filtrelemede Tekrarlayan Değerlerin Silinmesi - Oğuz Türkyılmaz - 05/06/2022

Sn.İlgililer konuyu çöp kutusuna taşıyabilirsiniz. Daha esnek ve nispeten anlayabildiğim kodlar buldum onlar üzerinden uygulamamı geliştirmeye çalışacağım.