ComboBox Kullanarak Süzme yapamıyorum

[millis]

Sayın Üstadlar ve Arkadaşlar ; Dosyamda yapmak istediğim, Hatırlatmalar User Formunda bulunan " KİŞİ BAZINDA SORGULAMA " ComboBox1 de kayıtlı olan kişilerin seçimini yaptığımda HATIRLATMA" sayfasında olan kayıtlar arasında süzme yapmasını istiyorum. Denemelerime rağmen bir türlü yapamadım. Dosya ektedir. Yardımlarınızı bekliyorum. Saygılarımla.

 

[snx111]

İstediğinizin makrosu nerde ?
Private Sub ComboBox1_Change()


End Sub

 

[millis]

slm.

İstediğinizin makrosu nerde ?
Private Sub ComboBox1_Change()


End Sub

Macrosu Module12.Macro5 de

 

[snx111]

HAZIRLARDAN ELİMDE ŞÖYLE BİŞEY VAR UYARLAMA GEREKTİRİR!

Private Sub ComboBox1_Change()
Dim son As Long
    Dim i As Integer
   Dim dizi As Range
   Dim hcr As Variant
  son = Sheets("HATIRLATMA").Range("A65536").End(xlUp).Row
Set dizi = Sheets("HATIRLATMA").Range("B2:B" & son)
i = 0

On Error Resume Next

HATIRLATMA.ListBox1.RowSource = vbNullString

For Each hcr In dizi
If hcr = ComboBox1.Text Then
r = hcr.Column
i = hcr.Row

ListBox1.AddItem

ListBox1.Column(0, x) = Sheets("HATIRLATMA").Cells(i, "a").Value
ListBox1.Column(1, x) = Sheets("HATIRLATMA").Cells(i, "b").Value
ListBox1.Column(2, x) = Sheets("HATIRLATMA").Cells(i, "c").Value
ListBox1.Column(3, x) = Sheets("HATIRLATMA").Cells(i, "d").Value
ListBox1.Column(4, x) = Sheets("HATIRLATMA").Cells(i, "e").Value
ListBox1.Column(5, x) = Sheets("HATIRLATMA").Cells(i, "f").Value
ListBox1.Column(6, x) = Sheets("HATIRLATMA").Cells(i, "g").Value
ListBox1.Column(7, x) = Sheets("HATIRLATMA").Cells(i, "I").Value
ListBox1.Column(8, x) = Sheets("HATIRLATMA").Cells(i, "J").Value
ListBox1.Column(9, x) = Sheets("HATIRLATMA").Cells(i, "K").Value
x = x + 1


End If
Next


End Sub

 

[millis]

HAZIRLARDAN ELİMDE ŞÖYLE BİŞEY VAR UYARLAMA GEREKTİRİR!

Private Sub ComboBox1_Change()
Dim son As Long
    Dim i As Integer
   Dim dizi As Range
   Dim hcr As Variant
  son = Sheets("HATIRLATMA").Range("A65536").End(xlUp).Row
Set dizi = Sheets("HATIRLATMA").Range("B2:B" & son)
i = 0

On Error Resume Next

HATIRLATMA.ListBox1.RowSource = vbNullString

For Each hcr In dizi
If hcr = ComboBox1.Text Then
r = hcr.Column
i = hcr.Row

ListBox1.AddItem

ListBox1.Column(0, x) = Sheets("HATIRLATMA").Cells(i, "a").Value
ListBox1.Column(1, x) = Sheets("HATIRLATMA").Cells(i, "b").Value
ListBox1.Column(2, x) = Sheets("HATIRLATMA").Cells(i, "c").Value
ListBox1.Column(3, x) = Sheets("HATIRLATMA").Cells(i, "d").Value
ListBox1.Column(4, x) = Sheets("HATIRLATMA").Cells(i, "e").Value
ListBox1.Column(5, x) = Sheets("HATIRLATMA").Cells(i, "f").Value
ListBox1.Column(6, x) = Sheets("HATIRLATMA").Cells(i, "g").Value
ListBox1.Column(7, x) = Sheets("HATIRLATMA").Cells(i, "I").Value
ListBox1.Column(8, x) = Sheets("HATIRLATMA").Cells(i, "J").Value
ListBox1.Column(9, x) = Sheets("HATIRLATMA").Cells(i, "K").Value
x = x + 1


End If
Next

End Sub

Elinize emeğinize sağlık. Teşekkür ederim.

 

[snx111]

Private Sub OptionButton4_Click()
    On Error Resume Next
       ListBox1.Clear
      ListBox1.RowSource = "HATIRLATMA!A2:J6000"
    ListBox1.ColumnCount = 10
    ListBox1.ColumnWidths = 50 & ";" & 170 & ";" & 80 & ";" & 90 & ";" & 90 & ";" & 120 & ";" & 120 & ";" & 120 & ";" & 90 & ";" & 130
    ListBox1.ColumnHeads = True
    Label21.Caption = Range("L1") & " Adet Poliçeniz Bulunmaktadır."
    Sheets("HATIRLATMA").Select
    'Module8.Makro9   BURASI İPTAL OLMALI
    Label19.Caption = " "
    Label18.Caption = " "
    Label20.Caption = ""
End Sub

 

[ceiron]

Tekrar eden verileri bularak sayma

A ve B kolonlarinda bulunan bilgilerin ayni olanlarinin
User adi ve tekrar sayisi
Statu ve tekrar sayisi seklinde belirlemek istiyorum
bunu nasil gerceklestirebilirim