Arama Yapmak

[muzaffer605]

MRB ARKADAŞLAR EXCEL ÇALIŞMA KİTABINDA 150 DEN FAZLA SAYFADAN OLUŞAN BİR ÇALIŞMAM VAR.
bu çalışmaya arama butonu ekleyebilirmiyiz? tarihe göre veya konuya göre arama yapacağım tek tek her sayfayı aramadan kısaca tümünü arayabileceğimiz bir yol varsa yardımlarınızı bekliyorum

 

[Orion1]

Dosyanız ekte.

Sub ara()
Dim k As Range, sat As Long, i As Integer
Application.ScreenUpdating = False
Range("A5:E65536").ClearContents
sat = 5
For i = 2 To Worksheets.Count
    Set k = Sheets(i).Range("D5:D65536").Find(Range("D2").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        If sat >= 65533 Then
            MsgBox "Sayfa doldu.İşlem durduruldu..!!", vbCritical, "DİKKAT"
            Set k = Nothing
            Exit Sub
        End If
        Cells(sat, "A").Value = Sheets(i).Name
        Range(Cells(sat, "B"), Cells(sat, "E")).Value = _
        Sheets(i).Range(Sheets(i).Cells(k.Row, "B"), Sheets(i).Cells(k.Row, "E")).Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[musculus]

Zekice çözüm teşekkürler

 

[muzaffer605]

tşkler işime yarar sanırım