kitabın tamamında arama yapıp saydırma

[otelci01]

günaydın, Ekteki dosyada bir üyenin kaç defa geldiğini görmek için bir makroya ihtiyacım var ama bir excel dosyasında bir yıllık yani 360 tane sayfa olacak bunun yerine başka bir çözüm bulabilirmiyiz yada excel ağırlaşmazsa sorun olmazsa bu şekildede kullanabilirim. şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub ListBox1_Click()
    Dim X As Integer, BUL As Range, ADRES As String
 
    TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
    TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
    TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
    TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
    TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)
    TextBox6 = CDate(TextBox4.Text) - CDate(Date)
    For X = 1 To Sheets.Count
        Set BUL = Sheets(X).Range("A:A").Find(TextBox1)
        If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
        If Sheets(X).Cells(BUL.Row, "B") = TextBox2 Then
        SAY = SAY + 1
        End If
        Set BUL = Sheets(X).Range("A:A").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        End If
    Next
    If SAY <= 1 Then
        TextBox7 = ""
    Else
        TextBox7 = SAY
    End If
End Sub

 

[otelci01]

çok teşekkürler istediğim gibi oldu yanlız -1 yapmamız lazım üye listesindekinide eklediği için nereye eklemem gerekiyor makroda

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[otelci01]

Korhan bey çok teşekkürler kod çalışıyor ama bir gariplik var programı kapat makrosu exele don makrom çalışmadı bunları niye etkiledi acaba teşekkürler

 

[otelci01]

korhan bey sorun benden kaynaklanıyor kodları silmişim herşey için tekrar teşekkürler.

 

[otelci01]

Korhan bey, kod işlem yapmazsan çalışıyor yanlız bir işlem yaptığınız zaman yani ismi 2. defa girdiğiniz zaman - 1 i çalıştırmıyor kaç defa gelmişte 2 sayısını gösteriyor.