أسامة عطاالله

السلام عليكم معادلة جميلة جدا هل من الممكن نفس فكرة الخانات الخاصة بالربط وضع اسم الملف المراد ربط البيانات به في الخلية ( D2 ) ووضع اسم الورقة المراد الربط بها في الخلية ( D3 ) ووضع المدى أوالجدول المراد الربط به في الخلية ( D4 ) بس بدون فتح الملف الاخر

السلام عليكم مجهود رائع اخى العزيز جمال جزاك الله خيرا

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

موجود ملف لديك بما تقولة ولا حضرتك عايز تعديل هذا الملف ولو موجود لديك ملف اذا تكرمت ارسل الملف شكرا

الف مبروك الترقية ودائما في تقدم ان شاء الله

السلام عليكم اخى واستاذى الفاضل / إبراهيم ابوليله لا توجد كلمات اصف بها شكرى وامتنانى ابسط كلمة تقال شكرا لمجهود اخى العزيز جعلة الله في ميزان حسناتك كنت طمعان في كرم حضرتك لو امكن تحديد عدد العملاء الى 700 العملاء تكتب في العمود a في الصفحة الرئيسية سوال هل هذا هو الكود المستخدم في حذف الاوراق هل يوجد اى اكواد في الملف خاصة بالحذف غيرة ولا هذا هو فقط Sub DEL_sh() Application.DisplayAlerts = False Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets 'هنا نفترض ان الورقة الأولى هي الرئيسية If sh.Name <> Sheets("الرئيسية").Name And sh.Name <> Sheets("sample").Name And sh.Cells(7, 2) = "" Then sh.Delete Else 'sh.Visible = xlSheetVisible End If Next End Sub شكرا جزيلا تقبل تحياتى

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

السلام عليكم اساتذتى الكرام الملف المرفق من تجميع هذا المنتدى العملاق واجهتنى مشكلة بة عند اضافة اسماء واستدعاء بيانتها تفتح صفحة للحساب وهكذا عند اضافة اى اسم تفتح صفحة خاصة بة للحساب المشكلة تكمن في زيادة اسماء العملاء بالتالى تزيد الصفحات وعندها حجم الملف يزداد ويصعب الحفظ ويصعب فتح وغلق الملف ( الملف ممكن يصل بة عدد العملاء الى 1500 عميل ) هل يوجد حل لهذة المشكلة هل ممكن تضاف كود لصفحة sample عند الضغط علية يحذف صفحة العميل الفارغة من الحسابات واريد كود اخر لعدم زيادة الحسابات او العملاء الى 700 عميل وعند اضافة عملاء اخرين عن 700 يرفبرنامج اضافتهم ملحوظة رقم فتح الملف 1 لكم جزيل الشكر والتقدير 2014.rar

شكرا لك على البرنامج لو حبيت اغير الشهور لميلادى تتغير من الكود او تغيرها يحدث خلل بالبرنامج

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

عمل ممتاز بارك الله فيك هو ممكن يبقى في صفحة تبقى مرتبط بالغياب عند 3 ايام يعطى انظار و7 ايام 21 وهكذا على اساس يطبع ويرسل للطالب ( انذارات غياب ) شكرا لك وتبقل تحياتى

فعلا ترفع لنهاية شهر 12 بصرف النظر عن الحد الاقصى

شكرا جزيل اساتذتى الكرام أبوعيد الريفى حلول رائعة جعلة الله في ميزان حسناتكم تقبلوا تحياتى وخالص شكرى وتقديرى استاذى الريفى لا استطيع فهم سؤالك جيدا ولكن اليك محاولتى هذه المعادلة للاجور المتغيرة في المرتبات فيها ترفع الاجور المتغيرة في تاريخ معين حسب المبلغ وتتهى في شهر 12 لجميع العاملين هذا توضيح لسؤالى ومعادلتكم التى تفضلتوا بها حل هذه الفكرة شكرا

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

شكرا لتفاعلك اخى /أبوعيد المعادلة تمام كدا إذا كان الرقم في g1 أصغر من أو يساوي الرقم في f1 اكتب نعم ولم يتحقق الشرط اكتب لا اريد تحقيق المعادلة في بداية تاريخ معين وليكن 1/7/2014 وانتهاء المعادلة في تاريخ 1/12/2014 وقبل 1/7/ 2014 تكون نعم دون النظر للمعادلة وبعد التاريخ 1/12/2014 تكون نعم ايضا دون النظر للتاريخ

اساتذتى الكرام ارجو المساعدة في معادلة تنفذ في تاريخ معين وتنتهى في تاريخ معين وعند انتهاء التاريخ يكتب في الخانة " نعم " تلقائى ولسيادتكم جزيل الشكر تنفيذ معادلة فى تاريخ.rar

شكرا لردك اخى الفاضل واستاذى العزيز بالنسبة للبرنامج الخاص بالاستاذ محمد قيم فعلا ولكن توجد ملحوظة مهمة ان الملف الخاص بى هذا سوف يتعامل ويشتغل علية شخص لا يعرف شى عن الاكسيل واريد لهذا السبب كود سهل وبسيط وخانة تكتب بها اسم الملف الذى تاتى منة البيانات لتسهيل المهمة على مستخدم هذا البرنامج في مدرستى مثل الملف الذى تكرمت بة في مشاركة لك والتى في المشاركة التالية http://www.officena....showtopic=39478 ولكن حاولت اطبق الكود على ملفى وفشلت لو تكرمت مساعدتى في هذا او شرح كيفية تطبيق هذا الكود على ملفى ولك جزيل الشكر والتقدير

استاذى الفاضل / احمدزمان عند بحثى في المنتدى وجدت كود خاص بحضرتك هو المطلوب بالنسبة لى اريد شرح للكود لكى افهمة واعرف اطبق على الملف الخاص بى هذا هو رابط الكود http://www.officena.net/ib/?showtopic=39478

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

اساتذتى الكرام عملت كود عن طريق التسجيل هل يوجد طريقة لر اسم الملف المراد الاسترداد منة البيانات عن طريق كتابة اسمة في خلية Sub Macro1() ' ' Macro1 ماكرو ' ' ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("Cd9").Select Selection.AutoFill Destination:=Range("Cd9:Cd33") Range("Cd9:Cd33").Select ActiveWindow.SmallScroll Down:=33 Range("Cd46").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("Cd46").Select Selection.AutoFill Destination:=Range("Cd46:Cd70") Range("Cd46:Cd70").Select ActiveWindow.SmallScroll Down:=33 Range("Cd85").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("Cd85").Select Selection.AutoFill Destination:=Range("Cd85:Cd109") Range("Cd85:Cd109").Select ActiveWindow.SmallScroll Down:=33 Range("Cd125").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("Cd125").Select Selection.AutoFill Destination:=Range("cd125:cd149") Range("Cd125:Cd149").Select ActiveWindow.SmallScroll Down:=36 Range("Cd166").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("Cd166").Select Selection.AutoFill Destination:=Range("cd166:cd190") Range("Cd166:Cd190").Select ActiveWindow.SmallScroll Down:=33 Range("Cd207").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("Cd207").Select Selection.AutoFill Destination:=Range("cd207:cd231") Range("Cd207:Cd231").Select ActiveWindow.SmallScroll Down:=39 Range("Cd247").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("Cd247").Select Selection.AutoFill Destination:=Range("cd247:cd271") Range("Cd247:Cd271").Select ActiveWindow.SmallScroll Down:=36 Range("Cd286").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd286").Select Selection.AutoFill Destination:=Range("cd286:cd310") Range("cd286:cd310").Select ActiveWindow.SmallScroll Down:=27 Range("cd325").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd325").Select Selection.AutoFill Destination:=Range("cd325:cd349") Range("cd325:cd349").Select ActiveWindow.SmallScroll Down:=33 Range("cd364").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd364").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd364").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd364").Select Selection.AutoFill Destination:=Range("cd364:cd388") Range("cd364:cd388").Select Range("cd387").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd386").Select ActiveWindow.SmallScroll Down:=6 Range("cd403").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd403").Select Selection.AutoFill Destination:=Range("cd403:cd427") Range("cd403:cd427").Select ActiveWindow.SmallScroll Down:=33 Range("cd442").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd442").Select Selection.AutoFill Destination:=Range("cd442:cd466") Range("cd442:cd466").Select ActiveWindow.SmallScroll Down:=36 Range("cd481").Select ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78" Range("cd481").Select Selection.AutoFill Destination:=Range("cd481:cd505") Range("cd481:cd505").Select ActiveWindow.SmallScroll Down:=36 End Sub اسم الملف يوليه خزينة. هذا يختلف عن شهر لشهر اى بمعنى ان في الملف القادم تكون اغسطس خزينة وهكذا لباقى الشهور هل يوجد حل لهذة المشكلة لكم جزيل الشكر والتقدير

ملف الشهر السابق يوليو يوليو 2014.rar

السلام عليكم كل عام وانتم بخير بمناسبة عيد الفطر المبارك الملفات المرفقة خاصة بمرتب شهر يوليو واغسطس اريد نسخ المرتب المستحق فى ملف يوليو الى صافى الشهر السابق فى اغسطس اننى بحثت فى المنتدى كان يوجدكود يتم الترحيل بة ولكن كان ينقل المعادلة فى الخانة وليس الرقم والكود فى الاسفل جربت طريقة الارتباط ولكن هذة الطريقة صعبة لاختلاف اسم الملف كل مرة مثل من يوليو الى اغسطس و اغسطس الى سبتمبر وهكذا الكود يمكن من خلاله تغير الاسم الملف فقط Private Sub CommandButton1_Click() Sheets("data").Range("cd9:cd30") = "" m = ThisWorkbook.Path & "\" & "اغسطس بنوك.xlsm" Set wb = Workbooks.Open(m, True, True) For Each cell In Sheets("كشف بنك 1").Range("dj9:dj30") If cell <> "" Then n = cell.Address If cell.HasFormula Then m = cell.Formula Windows("2.xls").Activate Sheets("data").Range(n) = m Else m = cell.Value Windows("2.xls").Activate Sheets("data").Range(n) = m End If End If Next Windows("اغسطس بنوك.xlsm").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True End Sub اسف للاطالة وجزاكم الله خيرا اغسطس 2014.rar

شكرا جزيلا للمعادلة اما بالنسبة للحالات الجديدة هذة هشوف اعضاء الكنترول ما مصير هذة الحالات بس اعتقادى او تفكيرى يهدينى لفكرة ان لازم ربط حالة المعيد او اذا كان ناجح مع الحالات الجديدة لسبب بسيط وهو ان ممكن الطالب يكون "معيد" ويفصل مرة اخرة او يحرم وهذة الحالة يبقى راسب وليس لة حق الدخول هذا من وجه نظرى عموما بهذة المعادلة التى قدمتها وتفضلت بها هذا ما يريدة اعضاء الكنترول وسوف اشوف ما يريد بعد ذلك شكرا لتعب حضرتك وجعلة الله فى ميزان حسناتك تقبل تحياتى

جزاك الله خيرا وفى انتظار الكود اخى العزيز بالنسبة للمعادلة الجديدة التى تفضلت واضفتها الخاصة بمحروم ومفصول سوف اغير باقى المواد لها =IF(OR(U10="مفصول";U10="محروم");U10;IF(OR(AC10="";AD10="";AE10="");"";IF(AE10="غ";"غ";IF(AND(AC10="غ";AD10="غ";AE10="غ");"غ";SUM(AC10:AE10))))) سوف اغير المجموع المواد مثلها هل يوجد شى اخر يتغير للمعادلات الاخرى في حالة الطالب التى تسبق مواد الرسوب لان كتبت لى false

استاذى العزيز / محمد أبو البراء تفهمت قصد حضرتك بالنسبة لكتابة الحالات يدوى اما بالنسبة لم افهم ماذا تقصد!! وفي انتظار اي استفسار.. الطلبة المحرومين والمفصولين هذه الحالات بتسجل مسبقا قبل رصد الدرجات هل ممكن عند الطالب المكتوب هذه الحالات امامة عند الضغط على انتر او السهم لاسفل يتخطى الصف باكملة عند تسجيل الدرجات . توضيح اكثر بمعنى يوضع كود مثل الكود الذى تفضلت بة في شيت كنترول ضد العبث عندما تاتى على خانة بة معادلة يتخطها مثل هذه في هذه الحالة يتخطى الخانة المكتوب بها محروم او مفصول ارجوا اكون وفقت في شرح المطلوب شكرا اخى واستاذى العزيز