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

السلام عليكم الاخ الحبيب / احمد عبد الناصر الف مليون مبروك علي الترقية المستحقة ويارب مزيد من التقدم ... اكثر وأكثر الاخ الحبيب / عمرو_ الف مليون مبروك علي الترقية المستحقة ومزيد من التقدم في كل مجالات الحياة ولكن هذا يزيد من مسئوليتكم ... في هذا الصرح العملاق تجاه اعضاء ورواد هذا المنتدي اعانكم الله علي ذلك جزاكم الله خيرا

بارك الله فيك استاذ طارق

بهذا السطرين يتضح أن البرنامج قام بعمله شخص للتجارة فيه ولا يصلح أن يتم التعديل عليه لانه إنتهاك لحقوق الملكية لذا سيتم حذف المرفق وإغلاق الموضوع وشكراً

تفضل 010.rar

السلام عليكم ضع هذا الكود في زر أمر في الورقة 1 Sub Abu_Ahmed() Dim Cel As Range Dim I As Integer, MyStrt As Integer, Myend As Integer Range("E10:E100").ClearContents MyName = [C10] Select Case [E9].Value Case Is = "سبتمبر" MyStrt = 3 Myend = 12 Case Is = "اكتوبر" MyStrt = 15 Myend = 24 Case Is = "نوفمبر" MyStrt = 27 Myend = 36 End Select For Each Cel In Sheets("ورقة2").Range("B6:B94") If Cel = MyName Then For I = MyStrt To Myend If Sheets("ورقة2").Cells(Cel.Row, I) = "غ" Then Range("E" & [E10000].End(xlUp).Row + 1) = Sheets("ورقة2").Cells(2, I).Value End If Next GoTo 1 End If Next 1 MsgBox "تم العملية " End Sub للعلم فالكود يعتمد على الأسم والشهر

السلام عليكم هذا تعديل للكود سيظهر لك مربع تدخل فيه اسم شيت البحث ثم مربع ستدخل فيه كلمة البحث للعلم لابد ان يكون هناك شيت بأسم (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

بارك الله فيك استاذ رجب

للعلم يمكنك استخدام الدالة Vlookup للوصول لنفس النتيجة

السلام عليكم استخدم هذه المعادلة =CONCATENATE(IF(E2=0;"A";"");IF(E2=50;"B";"");IF(E2=60;"C";"");IF(E2=65;"D";"");IF(E2=68;"E";"");IF(E2=70;"F";"");IF(E2=75;"K";"");IF(E2=80;"L";"");IF(E2=85;"M";"");IF(E2=90;"N";"");IF(E2=94;"8";"")) شاهد المرفق 010.rar

بارك الله فيك استاذ سعيد وسلمت يمينك

جزاك الله أخي شوقي كل خير على ما تقدمه وشكراً لذكرك أسمي في الاهداء

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

ألف مبروك ومنها للاعلى

الف مبروك أستاذ مجدي ومنها للاعلى

إذا اردت راي فالاكسس افضل في التحكم بالصوروعرضها في الفورم

بارك الله فيك اخي محمد على التنبيه واتمنى من الجميع الانتباه الى هذا الخطاء اللغوي

تم تثبيت الموضوع للفائدة

سلمت يمينك استاذ مجدي

بارك الله فيم اخي سعد على هذا الملف الرائع

أعمال رائعة بارك الله فيك استاذ مجدي

بارك الله فيك استاذ مجدي وجعلنا الله وإياك من البارين بوالديهم

بارك الله فيك اخي محمد وجاري التحميل والتجربة

اتقدم بالاصالة عن نفسي ونيابة عن جميع الاعضاء بالتهنئة الى الاخ الكريم ضاحي غريب بمناسبة ترقيته الى عضو مميز بناء على توصية الاستاذ حسن علي وموافقة الادارة وان شاء الله نرى فيه النشاط المعهود دائماً === رابط الترشيح http://www.officena.net/ib/index.php?showtopic=46029&p=273711

طبيعة العمل ستكون ادخال بيانان معاملات والافصل هو نظام مستخدمين

كل الشكر للرد أستاذ ابو خليل توكل على الله فمنكم نستفيد (وهذا ما طُلب مني)