Tarihe göre benzersiz veri listeleme

[seddur]

Merhabalar.Ekli dosyada Liste sayfası L sutununda tekrarlayan kodlar var.Rapor sayfasında ise tarih ve masa no'lar yeralmaktadır.Liste sayfasındaki tekrarlayan Bu kodları 1 adete düşürerek (benzersiz veri haline getirerek) hangi masa numarasına aitse Rapor sayfasında bulunan masa numarasının yazılı olduğu sutuna listelemek istiyorum.Ancak bu listeleme Rapor sayfasında bulunan Textbox1 deki tarihe göre yapılacak Hangi tarih seçiliyse o tarihe ait veriler Rapor sayfasına çekilecek.Yardımlarınız için Teşekkür ediyorum.

 

[seddur]

Şöyle bir kod yazabilir miyiz.Liste sayfası A sutununda bulunan değerler 1 ise Rapor sayfası B sutununa 2 ise C sutununa Liste sayfası L sutunundaki değerler yazılsın.Aşağıda birşeyler yazdım ama Sadece Rapor sayfası C sutununa listeleme yapıyor B sutununa ise C sutunundan sonraki satırlarda listeleme yapıyor.Yani C sutununda 2 veri varsa B sutununda 3.satırdan başlayarak listeleme yapıyor.


Private Sub CommandButton2_Click()
Dim S1, S2 As Worksheet
Dim i As Long, son As Long, son1 As Long, son2 As Long, sat As Long

Set S1 = Sheets("Liste")
Set S2 = Sheets("Rapor")
Application.ScreenUpdating = False

son = S1.[L65536].End(3).Row
sat = 2
For i = 2 To son

If WorksheetFunction.CountIf(S1.Range("L2:L" & i), S1.Cells(i, "L")) = 1 Then
If S1.Cells(i, 1) = "1" Then
S2.Cells(sat, "b") = S1.Cells(i, "L")
Else
If S1.Cells(i, 1) = "2" Then
S2.Cells(sat, "c") = S1.Cells(i, "L")
sat = sat + 1
End If: End If: End If
next

 

[ÖmerFaruk]

Sanırım aynı soruyu farklı şekilde soruyorsunuz.
Diğer başlık altında devam edelim lütfen.
Burayı karışıklığa mahal vermemek adına kilitliyuorum.