Skip to main content

AccessTr.neT


Listboxta İki Tarih Arası Filtrelemede Tekrarlayan Değerlerin Silinmesi

Oğuz Türkyılmaz
Oğuz Türkyılmaz
1
395

Listboxta İki Tarih Arası Filtrelemede Tekrarlayan Değerlerin Silinmesi

#1
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

.rar KT Grup Poliçe Takip.rar (Dosya Boyutu: 136,89 KB | İndirme Sayısı: 11)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
Sn.İlgililer konuyu çöp kutusuna taşıyabilirsiniz. Daha esnek ve nispeten anlayabildiğim kodlar buldum onlar üzerinden uygulamamı geliştirmeye çalışacağım.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task