ياسر خليل أبو البراء

ارفق الملف الأصلي للإطلاع عليه هذا أفضل لمحاولة علاج أمر البطء

يا أخي الحبيب هاني كلنا هذا الرجل ..ومش عيب إن الواحد ينقل عشان يفيد إخوانه بالعكس دا واجب على كل من هو ملم باللغات الأخرى أن يقوم بنقل هذا العلم لنستفيد ونسبق هؤلاء القوم ومفيش فضايح وبعدين أنا لمحت ومحدش خد باله .. إنت بقا عملت الجلاجل تقبل تحياتي

الناس كسولة خلي بالك .. الفكرة كويسة بس مفيش نشاط معظم الناس نااااايمة إلا من رحم ربي ومشكور مرة أخرى على الموضوع المتميز تقبل تحياتي

أخي الفاضل محمود بكري قم بالذهاب للتبويب Formulas ثم Name Manager ثم انقر الأمر New وقم بتمسية وليكن ItemsList ثم في حقل Refers To ضع المعادلة التالية : =items!$B$4:INDEX(items!$B$4:$B$100,MATCH("*",items!$B$4:$B$100,-1)) ثم استخدم هذا الاسم ItemsList في عمل القائمة المنسدلة تقبل تحياتي

الأخ الفاضل هيثم أهلا ومرحباً بك في المنتدى ونورت وشرفت يرجى الإطلاع على هذا الرابط http://www.officena.net/ib/index.php?showtopic=60147 كما يرجى طرح طلبك في موضوع مستقل .. ولا تنسى إرفاق ملف بعد ضغطه ليسهل العمل عليه ولتسهل المساعدة من قبل إخوانك تقبل تحياتي

جرب في المعادلة الفاصلة المنقوطة بدلاً من الفاصلة ..

جميل أخي ياسر بارك الله فيك وتسلم على الموضوع الرائع

أخي الفاضل الزباري بارك الله فيك وجزاك الله خير الجزاء تقبل تحياتي وودي

أخي الفاضل بكار جرب المعادلة التالية ..بدلاً من المعادلة الموجودة في F3 =INDEX($A$3:$A$30,MATCH($F$4,$B$3:$B$30,0)) بس سؤال : لنفترض أن هناك تواريخ ميلاد متشابهة (نفس اليوم ونفس الشهر ونفس السنة) ..النتيجة المتوقعة ايه؟؟؟؟؟؟؟

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

مشكور أخي وأستاذي إبراهيم على مرورك العطر وعلى مجاملتك الرقيقة بارك الله فيك تقبل تحياتي

الأخ الفاضل محمد عبد الجواد أهلا ومرحباً بك في المنتدى ونورت بين إخوانك ، وإن شاء الله تظل معنا في أسرتنا بشكل دائم إليك الملف التالي وإن شاء الله يفي بالغرض متنساش تقوم بالإطلاع على هذا الرابط http://www.officena.net/ib/index.php?s=81893d0e30f869c0818c6aac054fcbc8&showtopic=60147 الكود : Private Sub CommandButton1_Click() Dim WBK As Workbook Dim I As Long Dim EmptyRow As Long Application.ScreenUpdating = False For I = 1 To 4 If UserForm1.Controls("TextBox" & I).Text = "" Then MsgBox "Please Fill All The Fields": Exit Sub Next I Set WBK = Workbooks.Open(ThisWorkbook.Path & "\Q2.xlsm") EmptyRow = WorksheetFunction.CountA(WBK.Sheets("Sheet1").Range("A:A")) + 1 For I = 1 To 4 With WBK.Sheets("Sheet1") .Cells(EmptyRow, I).Value = UserForm1.Controls("TextBox" & I).Text End With UserForm1.Controls("TextBox" & I).Text = "" Next I WBK.Close SaveChanges:=True Application.ScreenUpdating = True End Sub تقبل تحياتي Transfer Data From UserForm To Closed Workbook YasserKhalil.rar

أخي الحبيب أحمد مرجان (والإكسيل هيبقا بالمجان ..بس على أوفيسنا) الحمد لله أن تم المطلوب على خير ، ومشكور على أفضل إجابة والالتزام بالتوجيهات. وإن شاء الله تكون استفدت (مش من حل المشكلة لكن تكون استفدت من الكود بحيث تقدر تعدل عليه بما يتناسب معك) تقبل تحياتي

يسعدني أن أكون أول من يرد على هذا الموضوع المتميز .. أخي وحبيبي وأستاذي محمد صالح جزاك الله خير الجزاء وبارك الله فيك وجعل أعمالك في ميزان حسناتك فيديو وشرح وتصميم في منتهى الروعة والإبداع (الماس خلق ليبدع) تقبل ودي واحترامي وتحياتي

اعذرني عن عدم الإطلاع على الملف ولكن إليك الكود التالي عله يفيدك Sub PrintPreview() 'يقوم الكود بمعاينة ما قبل الطباعة 'يمكنك تحديد أكثر من ورقة عمل ثم تنفيذ الماكرو لتقوم بالمعاينة لكل أوراق العمل المحددة ActiveWindow.SelectedSheets.PrintPreview End Sub تقبل تحياتي

أخي الفاضل يرجى تغيير اسمك للغة العربية إليك الملف التالي وإن شاء الله يفي بالغرض Sub YasserKhalil() Dim I As Long, LastRow As Long Application.ScreenUpdating = False Sheet1.Copy After:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = "Temp" With Sheets("Temp") LastRow = .Cells(Rows.Count, 4).End(3).Row .Range("A1:D" & .Cells(Rows.Count, 1).End(3).Row).Sort Key1:=.Range("D1:D" & .Cells(Rows.Count, 1).End(3).Row), Order1:=xlDescending, Header:=xlYes .AutoFilterMode = False .Range("A1:D1").AutoFilter .Range("A1:D1").AutoFilter Field:=4, Criteria1:=">0.3", Operator:=xlOr, Criteria2:="CVErr(xlErrRef)" For I = LastRow To 1 Step -1 If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Delete Next I .Cells.AutoFilter .Shapes("Button 1").Delete End With Application.ScreenUpdating = True End Sub الكود ينفذ مرة واحدة ... وإن شاء الله يؤدي الغرض Copy Sheet & AutoFilter With Criteria & Delete Hidden Rows.rar

قم بالإطلاع على هذا الرابط لعله يفيدك http://www.vbforums.com/showthread.php?560964-Excel-VBA-Printing-Front-And-Back وأيضاً هذا الرابط http://www.vbforums.com/showthread.php?539074-Print-Macro-Information-Needed&p=3333608#post3333608 بحاول أساعد !!

أخي الحبيب صراحة الموضوع جديد بالنسبة لي .. عموما جرب تسجل كود بالخطوات التي تقوم بها وشوف أسطر الكود وحاول تطبقها وإن شاء الله ينجح الأمر فقط حاول ولا تيأس من كثرة المحاولات ونترك المجال لمن لديه خبرة بهذا الأمر .. لو كان عندي طابعة تقوم بما تقول كنت جربت (إن شا الله حتى أخسر رزمة ورق .. بس في الآخر كنت هحاسبك عليها) تقبل تحياتي

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

الأخ الكريم إيهاب الدهشوري أهلا ومرحبا بك في المنتدى ونورت بين إخوانك يرجى الإطلاع على هذا الرابط أولا http://www.officena.net/ib/index.php?showtopic=60147 يرجى إرفاق ملف للعمل عليه .. قم بضغط الملف ثم رفعه كما يرجى أن يكون الموضوع موحد الطلب ..طلب واحد فقط لكل موضوع .. إذا قرأت التوجيهات ستعرف السبب ، وإذا عرف السبب بطل العجب ، وإذا بطل العجب دا هيعجب حبيبنا وأستاذنا رجب .. تقبل تحياتي

ولزيادة الاستفادة إليكم الملف التالي يظلل عمود وصف الخلية النشطة Highlight Activecell's Row And Column YasserKhalil.rar

الأخ الحبيب ياسر الشيخ مشكور على الموضوع الجميل الرائع اسمح لي أن أعرف هل يتم التظليل بمجرد تحديد الخلية أم أنه لابد من النقر المزدوج بزر الفارة الأيسر .. لأني طبقت المعادلة ولاقيت إني لازم عشان الخلية تتظلل لازم أعمل دبل كليك داخل الخلية ....مجرد استفسار الاخ الحبيب سليم ملف في منتهى الجمال والشياكة والأناقة تسلم يا كبير

أخي الحبيب إبراهيم أبو ليلة جزاكم الله خير الجزاء على هذا الموضوع المفيد جداً .. موضوع في منتهى الروعة قمت بتطبيق الثلاثة دروس في الملف المرفق تسهيلاً على من يريد الاحتفاظ بهذه الدرر تقبل تحياتي Conditional Formatting Abu Leila.rar

الأخ الكريم أهلا بك ومرحبا في المنتدى ونورت وشرفت بين إخوانك يرجى تغيير الاسم باللغة العربية .. كما يرجى الإطلاع على التوجيهات http://www.officena.net/ib/index.php?s=3d2662b90f8c2523d3412282bbd8a777&showtopic=60147 وعند طرح موضوع يرجى إرفاق ملف ..قم بضغط الملف ثم رفعه عموماً إليك هذا الملف محتفظ به بخصوص هذا الموضوع عله يفيدك جمع الأسهم.rar

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