احمدزمان

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

اخي الكريم سوف يتم الرد في نفس الموضوع

السلام عليكم مرفق التفقيط جنية و قرش 4_توزيع_الأقساط_ومتابعتهاQest.rar

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

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

لسلام عليك و رحمة الله وبركاته اخي الفاضل على قدرفهمي البسيط لطلبك في المرفق اضغط اولا زر تحديد مجلد الحفظ - ثم حدد المجلد الذي تريد حفظ الفواتير به - سوف يبقى هذا المجلد ثابت لحفظ كل الفواتير اللاحقة بالضغط علىر حفظ برقم يتم التالي عمل نسخة من الفاتورة في ملف جديد ثبيت كل القيم الموجودة في الفاتورة حيث يتم تحويل كل الدوال و المعادلات الى قيم ثابتة اغلاق كل الخلايا في الورقة حماية الرقة حفظ الملف بالإسم المطلوب في المجلد المحدد سابقا اغلاق الملف الجديد ActiveSheet.Copy ActiveSheet.UsedRange.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Selection.Locked = True ActiveSheet.Protect FN = ActiveSheet.Range("E1").Text ActiveWorkbook.SaveAs Filename:=FN, FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False أتمنى ان يكون به المطلوب تكوين رقم فاتوره.rar

جزاك الله خيرا اخي الحسام

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

السلام عليكم و رحمة الله ممكن توضح اكثر مامعنا انا مش فاهم

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

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

اخي خالد بارك الله فيك

السلام عليكم اخي الأستاذ الفاضل هاني جزاك الله خيرا على كريم خلقك

السلام عليكم و رحمة الله وبركاته اخي الكريم جرب المرفق على قدر فهمي 2010.rar

السلام عليكم تم المطلوب و استبدلنا TEXTBOX2 بــ COMPOBOX وفعلنا به خاصية الإكمال التلقائي وذلك لتسهيل عملية الإدخال جرب اصبح امامك قائمة منسدلة تختار منها الصنف او اكتب اول حرف من الصنف يظهر لك تلقائيا Book2.rar

هل يمكن تعديل الكود لطباعة صفحات محددة مثلا في ورقة1 بمعنى عشر صفحات في ورقة1 اسفل بعض واريد طباعة صفحة 1 دون صفحة 2 وصفحة3 دون صفحة 4 وعليكم السلام و رحمة الله ان شاء الله كل ماتريد ممكن ولكن حدد خطوات الطباعة التي تريدها و اكتبها ورتبها بتسلسل الذي تريده ثم ابدأ تنفيذها في كود بتسلسلها المنطقي و الذي تريدة وبما لا يتعارض مع امكانيات الإكسل ============== يعني ممكن تضع امر اطبع ورقة واحد كاملة ثم اذهب لورقة 2 و اطبع الصفحة الثانية منها ثم اذهب الى ورقة 4 و اطبع اصفحة الأولى منها وهكذا

و عليكم السلام و رحمة الله اخي يمين = RIGHT و يسار = LEFT اذا جرب في نفس الكود تغيير اليمين الى اليسار ان شاء الله يصير تمام أرجو اخباري بالنتيجة لأنني غير متأكد و التجربة خير برهان

اخي ابراهيم جزاك الله خيرا على كرم اخلاقك

السلام عليكم جرب المرفق Book2.rar

السلام عليكم و رحمة الله وبركاته بعد اذن اخونا الكريم ابراهيم اخي ابو حنين جرب الكود التالي Sub Insert2ColmnValue() Columns("K:L").Copy With Range("K1") .Insert Shift:=xlToRight .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False .Select End With End Sub

و عليكم السلام و رحمة الله وبركاته LEN($AB9)>2= الدالة تحسب طول النص الموجود في الخلية AB9 وحيث ان اي دالة تعطي نتيجة TRUE او FALSE وهو الشرط الثابت لأي معطيات وبنائا على الدالة IF التي عملتها انت نجد انه في حال عدم تحقق اي شرط سوف يعطينا "" فراغ اي سوف يكون طول النص = 0 اذا اذا كان طول النص في الخلية اكبر من 2حرف سوف يعطينا TRUE وهذا يؤدي الى تنفيذ التنسيق الشرطي

السلام عليكم اخي الكريم في ورقة المخزون نجعل الخلايا المخفية AB2 , AB3 لعملية الحساب و التأكد من وجود الصنف سابقا وفي حالة وجود الصنف يقوم باعطائنا رقم السطر الموجود به الصنف - واذا كان الصنف غير موجود يعطينا النتيجة FALSE لذلك في الفورم نجعل TextBox2 يكتب مباشرة في الخلية AB2 بالكود Private Sub TextBox2_Change() Sheets("ÇáãÎÒä").Range("ab2") = TextBox2.Text End Sub ونضع الدالة التالية في AB3 =IF(ISERROR(MATCH($AB$2;$C$1:$C$9999;0));FALSE;MATCH($AB$2;$C$1:$C$9999;0)) ثم نعدل في كود الإضافة رقم السطر IROW كــ التالي If Sh.Range("ab3") = False Then iRow = Sh.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row Else iRow = Sh.Range("ab2") End If مع التحية حاولت اطبق ذلك على الملف المرفق منك ولكن لم استطع حيث ان الكود لا يتبع نفس الملف ولا نفس اسم الورقة تحياتي

السلام عليكم و رحمة الله وبركاته اسعد الله صباحكم بكل خير التنسيق AZترقية.rar

بعد الشكر الجزيل لأخونا جلال الجمال على مساهمته الرائعة جزاه الله كل خير في المرفق تم عمل الحساب G4S - 2.rar