سؤال بالنسبة لخاصية بحث

[Ali Tawfeek]

اخوانى لدى ملف اكسيل يحتوى على العديد من الاوراق بما يتواصل الى 50 ورقة

عندما اريد البحث هن شئ فى هذه الاوراق اضطر الى ان اعمل select all ثم ابدا فى عملية البحث

السؤال هو اذا اردت ان اعمل زر بحث فى الصفحة الرئيسية بحيث يكون مربوط على جميع الاوراق

كيف يمكنى عمل هذا

[عبد الفتاح كيرة]

تفضل أخى

هذا كود بحث محترم

يبحث عن الكلمة فى كل الشيتات

هنيئا لك به

Sub FindItAll()

Dim oSheet As Object

Dim Firstcell As Range

Dim NextCell As Range

Dim WhatToFind As Variant

WhatToFind = Application.InputBox("What are you looking for ?", "Search", , 100, 100, , , 2)

If WhatToFind <> "" And Not WhatToFind = False Then

For Each oSheet In ActiveWorkbook.Worksheets

oSheet.Activate

oSheet.[a1].Activate

Set Firstcell = Cells.Find(What:=WhatToFind, LookIn:=xlValues, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If Not Firstcell Is Nothing Then

Firstcell.Activate

MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & Firstcell.Address)

On Error Resume Next

While (Not NextCell Is Nothing) And (Not NextCell.Address = Firstcell.Address)

Set NextCell = Cells.FindNext(After:=ActiveCell)

If Not NextCell.Address = Firstcell.Address Then

NextCell.Activate

MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & NextCell.Address)

End If

Wend

End If

Set NextCell = Nothing

Set Firstcell = Nothing

Next oSheet

End If

MsgBox ("End of Search")

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

Sheets("TOC").Select

End Sub

كود ممتاز للبحث فى كل الشيتات.zip

[دغيدى]

الله ينور عليكم ياأبو عمر

**دعيدى **

تم تعديل فبراير 15, 2011 بواسطه دغيدى

[عبد الفتاح كيرة]

شكرا أخى الأستاذ جمال

بارك الله فيك

[عبدالله المجرب]

تفضل أخى

هذا كود بحث محترم

يبحث عن الكلمة فى كل الشيتات

هنيئا لك به

استاذي الفاضل ابوعمر

بصراحة كود محترم جداً وعمل متقن وابداع حلو

سلمت يمينك

ابواحمد

[عبد الفتاح كيرة]

شكرا لك أخى

بارك الله فيك

والحقيقة أن الكود منقول

بارك الله فيك

[محمد الحاج]

السلام عليكم ورحمة الله وبركاته

براك الله فيك ممتاز اخي

[Ali Tawfeek]

تفضل أخى

هذا كود بحث محترم

يبحث عن الكلمة فى كل الشيتات

هنيئا لك به

الف شكر على مجهودك و مساعدتك جزاك الله خيرا بالفعل هذا هو ما اريده من خاصية البحث

هل لى من طلب اخر هو كيفية شرح اضافة الزر فى الشيت و رابطة بالكود

[عبد الفتاح كيرة]

شاهد الفديو

تم تعديل فبراير 18, 2011 بواسطه kemas

[Ali Tawfeek]

جزاك الله خيرا اخى kemas على سرعة تفاعلك الف شكر