طلب صعب جدا .. محدش يدخل ولا حد يقدم اى مساعدة ..!!

[البروفسير]

طلبي صعب ومش لاقي حد ينفذه لي .. ؟؟

عندي صفحات كتيرة فى ملف اكسيل عايز ابحث فيها عن اسم ما . الكود ياخد السطر للنتيجة وينسخها فى صفحة جديدة اسمها "PReport"
انا دورت لما انتم تاخرتم على فى الرد فى اكثر من موضوع , ووجدت الكود ده .
 

Sub Test2()
Dim myWord$
myWord = InputBox("What key word to copy rows", "Enter your word")
If myWord = "" Then Exit Sub
 
Application.ScreenUpdating = False
Dim xRow&, NextRow&, LastRow&
NextRow = 2
LastRow = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For xRow = 1 To LastRow
If WorksheetFunction.CountIf(Rows(xRow), "*" & myWord & "*") > 0 Then
Rows(xRow).Copy Sheets("Sheet2").Rows(NextRow)
NextRow = NextRow + 1
End If
Next xRow
Application.ScreenUpdating = True
 
MsgBox "Macro is complete, " & NextRow - 2 & " rows containing" & vbCrLf & _
"''" & myWord & "''" & " were copied to Sheet2.", 64, "Done"
End Sub

بس هو يعمل علي صفحة واحدة الموجود بها الزر .. انا عايز اخليه يدور فى عدد من الصفحات الموجوده فى الملف .
مثلا
هيطلب من كلمة البحث :\: هكتب " احمد "

يطلب مني بداية البحث هكتب له رقم الشيت اللى عندي فى ملفي واللى مقسمة 31 صفحة بعدد الايام .

فمثلا عايز ادور عن " احمد " من شيت "3"   الى شيت " 17 " والنتيجة يطلعها فى ملف "PReport"

منتظر اجابتكم



 

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

السلام عليكم 

هذا تعديل للكود 

سيظهر لك مربع تدخل فيه اسم شيت البحث

ثم مربع ستدخل فيه كلمة البحث 

للعلم لابد ان يكون هناك شيت بأسم (PReport) للصق النتائيج فيه

Sub Test2()
Dim myWord$
Mysh = Application.InputBox("What Sheets Name", "Enter Sheets Name")
If Mysh = "" Then Exit Sub
myWord = InputBox("What key word to copy rows", "Enter your word")
If myWord = "" Then Exit Sub
 Sheets(Mysh).Select
Application.ScreenUpdating = False
Dim xRow&, NextRow&, LastRow&
NextRow = 2
LastRow = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For xRow = 1 To LastRow
If WorksheetFunction.CountIf(Rows(xRow), "*" & myWord & "*") > 0 Then
Rows(xRow).Copy Sheets("PReport").Rows(NextRow)
NextRow = NextRow + 1
End If
Next xRow
Application.ScreenUpdating = True
 MsgBox "Macro is complete, " & NextRow - 2 & " rows containing" & vbCrLf & _
"''" & myWord & "''" & " were copied to Sheet2.", 64, "Done"
Sheets("PReport").Select
End Sub

[البروفسير]

ابو احمد
لم يعمل الكود بالشكل المطلوب

ارفق لك ملف المراد البحث فيه .. لعله يساعدك فى الوصول لما اريد ..

خزينة3_2.rar

[البروفسير]

ابو احمد

لم يعمل الكود بالشكل المطلوب

ارفق لك ملف المراد البحث فيه .. لعله يساعدك فى الوصول لما اريد ..

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

ابو احمد اريد ان ابحث عن عميل ما فيتم نسخ كل الصف الذى ظهر فيه اسمه فى الصفحة الاخيرة كما اوضحت لحضرتك فى الملف ..

قد يطلب مني  كشف حساب لعميل من يوم 5 الى يوم 12 فى الشهر او من يوم 1 الى 25 او طول الشهر  وهكذا .. ارجوا ان تكون الفكرة وصلت

تم تعديل أبريل 8, 2013 بواسطه profseer

[البروفسير]

الموضوع ده غير محلول

[دغيدى]

أخى الكريم

مهلا .. هل يعجبك عنوان الموضوع أو الرد الأخير ؟