نجوم المشاركات

الطريقه الحاديه عشر :- تعبئه الكمبوبوكس بأستخدام المصفوفه ويتم ترتيبها ابجديا اولا ثم تعبئة الكمبوبوكس هذه الطريقه للاستاذ القدير / ياسر خليل تفضل بها علينا وارسلها لى على الخاص الكود مشروح جاهز Private Sub UserForm_Initialize() 'يوضع الكود في حدث الفورم ويقوم بعمل قائمة كومبوبوكس مميزة في عناصرها ومرتبة أبجدياً 'تعريف المتغيرات Dim A, E 'مسح محتويات الكومبوبوكس ComboBox2.Clear '[Sheet1] بدء التعامل مع ورقة العمل المسماة برمجياً With Sheet1 'ليحمل قيم النطاق في العمود الثاني أي أنها تعتبر مصفوفة بكل القيم في هذا النطاق [A] تعيين قيمة للمتغير A = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).value End With 'بدء التعامل مع المصفوفات With CreateObject("System.Collections.ArrayList") '[Aِ] من عناصر المصفوفة [E] عمل حلقة تكرارية لكل عنصر For Each E In A 'إذا كان العنصر لا يساوي فراغ ولا يوجد عنصر مماثل في المصفوفة أي يتم التعامل مع القيم الفريدة If (E <> "") * (Not .Contains(CStr(E))) Then 'يتم إضافة العنصر إلى المصفوفة الجديدة التي تحتوي على قيم فريدة غير مكررة .Add CStr(E) End If Next 'ترتيب عناصر المصفوفة الجديدة تصاعديا .Sort 'إضافة عناصر المصفوفة الجديدة للكومبوبوكس ComboBox2.List = .ToArray End With End Sub لو حضرتك عايز الترتيب يكون من ( تنازليا ) فقط غير هذا السطر .Sort الى .Sort: .Reverse تقبلوا تحياتى

اخى الكريم الكود يعمل تمام شاهد الملف المرفق مسافه بادئه للتكست.zip

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

اعزائي واخواني اعضاء المنتدى الرائد اقدم اعتذاري للانقطاع المؤقت والذي لن يدوم طويلا وذلك لانشغالي قليلا متمنيا للجميع التوفيق والسداد ! تحياتي للجميع

أخي الكريم أيمن هل اشتغل معك الكود بشكل جيد ؟؟؟ أشك في النتائج ... راجع الملف مرة أخرى ... أخي الغالي ياسر العربي .. ركز معايا في اللي جاااااي إنت بتقول المشرفين بيقفشوا على Activate أو Select .. اتفضل القفش في الكود القفشة الأولى زي ما أبطلت تحديث الشاشة كان عليك ترجع الإعدادات مرة تانية وتشغل الخاصية في النهاية Application.ScreenUpdating = True القفشة التانية عند نسخ الكود .. هناك خطأ في هذا السطر لديك aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 حضرتك نسيت أقواس التنصيص عشان تقفل اسم ورقة العمل القفشة التالتة في نفس السطر الل فوق ..دا كدا بيجيب آخر صف به بيانات ..يعني لما تيجي تلصق البيانات فيه آخر سطر سيتم اللصق عليه (قفشة في الجون) وليه اللفة الطويلة دي واستخدام دالة Counta وتزود عليها 4 كان ممكن يكون السطر بهذا الشكل أفضل aseel = Sheets("تحويل داخلي").Cells(Rows.Count, "B").End(xlUp).Row + 1 القفشة الرابعة بدلاً من أن تكتب وتشير إلى ورقة العمل Sheets("تحويل داخلي") الأفضل الإعلان عن متغير باسم ورقة العمل مرة في أول الكود لسهولة استخدام المتغير بمعنى أن تضع في أول الكود هذين السطرين Dim SH As Worksheet Set SH = Sheets("تحويل داخلي") وبعد ذلك يمكنك استخدام المتغير SH القفشة الخامسة حضرتك بتتسخدم أسماء أشخاص في المتغيرات ودا شيء مش مستحب لأن اسم المتغير بيعبر عن وظيفته في الغالب (دا أفضل) ..صحيح مش قفشة صحيحة بنسبة 100% ، ولكن أنا بكلم واحد محترف ، يعني لازم تستخدم اسماء في المتغيرات تعبر عن المتغير وعن نوعه كمان يعني مثلاً المتغير mohamed المفروض إنه بيجيب رقم آخر صف في ورقة العمل اللي فيها الكود ... كان ممكن نسميه lRow (حرف الـ l اختصار للنوع Long .. أو لو حبيت تستخدم Integer يبقا iRow) .. والمتغير المسمى aseel المفروض بيعبر عن آخر صف في ورقة العمل "تحويل الداخلي" أو على الأدق أول صف فارغ بعد آخر صف به بيانات ... ممكن تسميه iRowTar أي آخر صف في الورقة الهدف (الورقة الهدف : الورقة المراد الترحيل إليها) القفشة السادسة يفضل أيضاً الإشارة إلى ورقة العمل الحالية .. عشان تقدر تنفذ الكود من أي مكان تاني (لأن الكود بهذا الشكل مينفعش يتنفذ غير وإنت واقف في ورقة العمل Sheet1 فالأفضل تعيين متغير تاني لورقة العمل الأولى عشان تقدر تنفذ الكود من أي مكان زي ما قلت فيكون بهذا الشكل أيضاً .. Dim WS As Worksheet Set WS = Sheets("Sheet1") والأفضل كمان إنك تستخدم الاسم البرمجي بدلاً من اسم ورقة العمل ، نظراً لأن المستخدم قد يرغب في كثير من الأحيان إلى تغيير اسم ورقة العمل ، بالتالي راعي هذه النقطة أيضاً القفشة السابعة السطر التالي ايه لازمته ...عايز أعرف ايه الفايدة منه بعد انتهاء أسطر الكود aseel = aseel + 1 ملوش لازمة إلا لو كنت داخل حلقة تكرارية مثلاً وتريد زياد رقم الصف بمقدار واحد شفت إزاي ممكن كود صغير نقفش منه سبع قفشات ... قول ورايا : خشب السقف سبع خشبات واتمسكت بسبع قفشات (قولها 10 مرات) تقبل تحياتي أخوك وحبيبك أبو البراء الكود بالشكل النهائي يمكن أن يكون بهذا الشكل ... Sub Rectangle1_Click() Dim WS As Worksheet, SH As Worksheet Dim lRow As Long, lRowTar As Long Set WS = Sheet1: Set SH = Sheet5 lRow = WS.Cells(Rows.Count, "A").End(xlUp).Row lRowTar = SH.Cells(Rows.Count, "A").End(xlUp).Row + 1 Application.ScreenUpdating = False WS.Range("A2:H" & lRow).Copy SH.Range("A" & lRowTar).PasteSpecial Paste:=xlPasteValues Range("A1").CurrentRegion.Offset(1).ClearContents Application.ScreenUpdating = True End Sub

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

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

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

استاذى الحبيب مرحبا بك فى جامعه اوفيسنا بعد ان اطلعت على صفحتك الشخصية بالمنتدى فلقيت ان حضرتك مدير مالى فما رائيك تجربة هذا البرنامج http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/ شوف هيعجبك او لا فيه كل اللى انت عايزه تقريبا لو عجبك البرنامج قولى وانا ابعتلك احدث نسخه له ولو مش عجبك مفيش مشكله انا او غير من الاعضاء بالمنتدى لو عندنا متسع من الوقت لن نبخل عليك ولكن نصيحه من اخ لك اطلب طلب طلب حتى يسهل لمن يريد المساعده تقديم يد العون لك ملحوظه على الهامش تاريخ اشتراك بالمنتدى من شهر 4 والان بشهر 10 يعنى ست شهور بالمنتدى ودى اول مشاركه لك بالمنتدى وكما تفضلت وقلت انك استفد كتير من المنتدى لم يخطر ببالك ولو مره تكتب اى تعليق على اى مشاركه انت استفد منها ومريت عليها عملتلك اول طلب كدا على السريع فى شيت المبيعات طلبك بخصوص الكمية المتاحه فى الخلية D4 قم بنسخ المعادله التالية واسحبها نزول للاسفل وشاهد النتيجة ستجد ان الكمية تتناقص عند بيع كمية =LOOKUP(C4;'قائمة الاصناف'!$B$4:$B$1000;'قائمة الاصناف'!$E$4:$E$1000)-SUMIFS($F$3:F3;$C$3:C3;C4) تقبل تحياتى

أخي الحبيب عمرو مشكور على مرورك العطر وكلماتك الطيبة أخي الحبيب أبو يوسف ماذا لو زادت الأرقام عن ثلاثة أرقام ؟ .. أمر آخر لما الضغط على Ctrl +Shift + Enter (هذه ليست معادلة صفيف) أرجو أن تتقبل النقد بصدر رحب .. وكلنا نتعلم من بعضنا البعض أبي الغالي عموماً هذه دالة معرفة بسيطة تؤدي الغرض إن شاء الله Function GetNumber(myStr As String) myStr = Replace(myStr, "المبلغ النهائي", "") GetNumber = Val(Split(Application.Trim(myStr))(1) & "." & Split(Application.Trim(myStr))(0)) End Function Tee V2.rar

السلام عليكم أخي الكريم معادلة الأستاذ ياسر عدلت عليها رقمين فقط بعد إذنه.. =VALUE(RIGHT(TRIM(SUBSTITUTE(A145;"المبلغ النهائي";""));3)&"."&LEFT(TRIM(SUBSTITUTE(A145;"المبلغ النهائي";""));3)) يرجى أن تكون مناسبة

أخي الكريم أبو جيداء ضع معادلة الصفيف التالية في الخلية H5 ثم اسحبها عبر الصفوف والأعمدة لا تنسى بعد إدراج المعادلة الضغط على Ctrl + Shift + Enter =SUM(IF(FREQUENCY(IF($B$2:$B$12=$G5,IF($C$2:$C$12=H$4,MATCH($A$2:$A$12,$A$2:$A$12,0))),ROW($A$2:$A$12)-ROW($A$2)+1),1)) تقبل تحياتي

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

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

السلام عليكم الاستاذ الحبيب / حـــسام عيسى لكم يسعدني ويشرفني مرورك العطر بالموضوع ومشكور على كلامك الرائع شكرا جزيلا لحضرتك .................... الاستاذ والاخ المحترم / محمد حسن المحمد شكرا جزيلا استاذنا على الاهتمام الدائم بالدعم والتشجيع لك منى كل التحيه والاحترام والتقدير ................. اخى الحبيب / عبد العزيز البسكرى قفلت امامى ابواب الشكر بكل هذه الكلمات والله انى احبك فى الله خالص حبى وتحياتى وتقديرى لشخصكم المحترم لكم جزيل الشكر والتقدير اخوتى واساتذتى الكرام ... وفقنا الله جميعا لما فيه الخير

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

الاخوة الكرام فى هذا الصرح العظيم بناء على طلب للاخ " المارد العراقى " على هذا الرابط http://www.officena.net/ib/topic/64162-موضوع-خاص-بالردود-والاستفسارات-واسئله-اختبارات-على-شروحات-الفورم-سلسلة-علمنى-كيف-اصطاد/?do=findComment&comment=418485 قمت بعمل طلبه وحبيت يكون فى موضوع مستقل حتى تعم الفائده ويكون سهل فى الوصول اليه من خلال البحث فيما بعد الطلب كان السلام عليكم أستاذ عندي 3 (textbox) الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلادي و عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل تاريخ التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم دون الرجوع او استخدام الخلايا في الاكسل على سبيل المثال التكست الاول يساوي 22 الي هو اليوم ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000 كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه بواسطة vba فقط دون استخدام خلايا الاكسل ؟؟ مرفق ملف به ما تريد الملف الاول تحويل التاريخ من يوم وشهر وسنة تحويل التاريخ من ميلادى الى هجرى على الفورم.zip الملف الثانى تحويل التاريخ بنفس التكست تحويل التاريخ من ميلادى الى هجرى على الفورم - Copy.zip تقبلوا تحياتى

ياعم الحاج انت حبيبي وعمري ما ازعل منك بس انت استحمل رخمتي بس وبعدين انا هشتغل بكودي بقي ايه رايك رخامة وشوف الكود تاني Sub Rectangle1_Click() Dim mohamed As Integer Application.ScreenUpdating = False mohamed = [A100000].End(xlUp).Row Sheet1.Range("a2:h" & mohamed).Copy aseel = WorksheetFunction.CountA(Sheet5.Range("a5:a9999")) + 4 Sheet5.Range("A" & aseel + 1).PasteSpecial Paste:=xlPasteValues Sheet1.Range("a2:h100000").ClearContents Application.ScreenUpdating = True End Sub ومحمد واسيل متغيرات عشان هما كل يوم بحال وعشان نبقي خالصين خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات

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

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

السلام عليكم اخي الكريم شاهد المرفق لعلة يكون طلبك فاتورة المؤسسة .rar

هذا ملف تفقيط كان وضعه اخي الاستاذ ابو البراء عشان يوجع دماغي بيه لعله يكون طلبك وعندك عربي وانجليزي وفي اعدادات تظبط زي ماانت محتاج فاتورة المؤسسة 2.rar

انصحك بنصيحة كل الخبراء لنا اولا قسم برنامجك بنظام شيت مثلا قاعدة البيانات وشيت ادخال وشيت استعلام واي اضافة ستحتاجها ودي اساسيات نفترض انك محتاج تعرف ارصدة معينة في شيت لعرض البيانات مثلا وهتاخد البيانات من قاعدة البيانات بمعادلات داخل شيت عرض البيانات الافضل هنا بدل ما تفضل تعمل معادلات كتير جوا الشيت لا ممكن تحط معادلات بسيطة وتعوض المعادلات جوا الشيت باكواد تفعل بكبسة زر وتظهر لك البيانات لانه كدا انت لغيت موضوع تحميل المعادلات علي الملف بصفة دائمة ومجرد تحميل بسيط يحدث عند اظهار البيانات ويرجع ملفك سريع كما كان وهناك طريقة اخرى وهي عند ترحيل بيانات وبطئ الملف ممكن نعمل ايقاف الحساب التلقائي وعند الانتهاء نقوم بارجاع الحساب التلقائي مثل هذا كدا حساب يدوي Application.Calculation = xlManual ودا ارجاعه لوضعه الطبيعي Application.Calculation = xlCalculationAutomatic يارب اكون وصلت ليك المعلومة ونسيت اقولك نورت المنتدى يا ابو البراء

والحق واقولك غير كودك بالكود دا عشان في مشرفين هنا بيقفشوا علي الواحدة ويقولك بلاش Select or Activate Application.ScreenUpdating = False Dim mohamed As Integer mohamed = [A100000].End(xlUp).Row Range("a2:h" & mohamed).Copy aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 Sheets("تحويل داخلي").Range("A" & aseel).PasteSpecial Paste:=xlPasteValues aseel = aseel + 1 Range("a2:h100000").ClearContents كود الغاليين

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

الامر بسيط جدا خطأ الكود هو حرف i ir = [A100000].End(xlUp).Row المفروض احنا عرفناه علي اساس انه l وليس i الصح نخليه كدا lr = [A100000].End(xlUp).Row تفضل يوميه مخازن.rar

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

أخي الكريم إيهاب الغريب طبعاً الملفات بهذا الشكل لا تعجبني (دا مجرد رأيي الشخصي ) ..اسألني ليه ؟ بقولك اسألني ليه؟ مش سامعك كويس بص يا أخ إيهاب لما تيجي تنسق ورقة عمل تنسق الجزء اللي فيه بيانات بس مش تنسق ورقة العمل بالكامل لأن دا هيخلي الملف تقيل جداً من غير داعي لاحظت إنك مثلاً مسطر لحد آخر عمود في الشيت ..طيب ليه ؟ هل التنسيق غير مقصود أم مقصود؟ طبعاً دا ممكن يكون سبب في عدم استجابة الأعضاء للموضوع سيبك من الرغي اللي ملوش لازمة (بكلم نفسي) بص يا سيدي ..طبعاً تم تحويل المصنف المسمى 2 إلى امتداد xlsm ليقبل الأكواد (دي اول نقطة) في الكود عملت إبطال لتحديث الروابط عشان كل شوية تيجي رسالة عايز تحدث البيانات ولا لا ... !! في الخلية A9 في المصنف المسمى 2 حضرتك طلبت وضع رقم الإدارة ... ضع رقم الإدارة وانقر على زر الأمر Import Data (دا كان الجزء الأول من طلبك) أما الجزء الثاني من طلبك فلم أفهمه بشكل جيد ..يرجى ضرب مثال بشكل النتيجة المتوقعة لتتضح الصورة (اعمل زوووووم على الطلب ZOOM IN مش ZOOM OUT) إليك الكود وأرجو أن يفي بالغرض Sub ImportData() Dim WB As Workbook, AB As Workbook Dim Rng As Range, RngFiltered As Range, R As Range, Area As Range Dim vArray, I As Long Application.DisplayAlerts = False Application.AskToUpdateLinks = False Application.ScreenUpdating = False Set AB = ActiveWorkbook Set WB = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx", UpdateLinks:=False) With AB.Sheets("اطباءوتمريض") .Range("C10:C1000").ClearContents Set Rng = WB.Sheets("بيانات").Range("A1:D" & Sheets("بيانات").Cells(Rows.Count, "D").End(xlUp).Row) Rng.AutoFilter Field:=2, Criteria1:=.Range("A9") On Error Resume Next Set RngFiltered = Rng.Offset(1).Resize(Rng.Rows.Count - 1).SpecialCells(xlCellTypeVisible) On Error GoTo 0 If Not RngFiltered Is Nothing Then ReDim vArray(2 To Rng.Rows.Count, 1 To 1) I = 1 For Each Area In RngFiltered.Areas For Each R In Area.Rows I = I + 1 vArray(I, 1) = R.Cells(4).Value Next R Next Area .Range("C10").Resize(I, 1).Value = vArray End If WB.Close False End With Application.ScreenUpdating = True Application.AskToUpdateLinks = True Application.DisplayAlerts = True End Sub طبعاً الكود خد مني حوالي ساعة عشان أقدر ألبي الجزء الأول من طلبك فمتنسناش بدعوة بظهر الغيب (لا تبخل علينا) Import Data YK.rar

تم معالجة الامر Book2 salim.zip

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

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

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

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

إخواني وأحبابي في الله تتقدم إدارة الموقع بالتهنئة لكلٍ من العضوين الكريمين :: خالد الرشيدي *** ياسر العربي فنتقدم لهما بالتهنئة الحارة من قلوبنا ، ونتمنى لهما مزيد من التفوق والتميز .. مع تحيات أخوكم أبو البراء

طيب يا اخوان . انا اعرف الكل مشغول وانت فيكم الخير بس ممكن طب صغير ؟ اريد كود تحديد جميع اللغة في قائمة منسدلة وجزاكم الله الف خير

السلام عليكم ملفك تم التعديل عليه شاهد الفديو http://up.top4top.net/downloadf-top4top_8a4c3884ba1-zip.html بالتوفيق

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

المطلوب بالملف المرفق انا طبقته وشغال مية بالمية CODE.zip

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

مبارك عليكما الترقية وأتمنى أن تكون هذه الترقية حافزا لكما لتقديم المزيد مزيدا من التقدم مريدا من العطاء مزيدا من الهمة حتى تصلا إلى القمة التي لن يصلها إلا صاحب الهمة تحياتي

جرب الكود بهذا الشكل حاول أن تبتعد عن تنشيط أوراق العمل أثناء كتابة الكود ..من الأفضل استخدام اسم ورقة العمل في أسطر الكود قم بالإطلاع على الكود وعدل الكود الثاني بنفس الطريقة ..أو يمكن استخدام زر واحد وكود واحد (فقط تغير الخلية F1) Sub قائمة_مستوى_1() Dim R As Integer, RA As Integer, RB As Integer, RC As Integer, FS As Integer Application.ScreenUpdating = False Sheets("قائمة الفصل").Range("C9:J58").ClearContents Sheets("قائمة الفصل").Range("D3") = "المستوى الأول" RA = 9: RB = 9: RC = 9 FS = Sheets("قائمة الفصل").Range("F1") With Sheets("سجل القيد") For R = 9 To 408 If .Cells(R, 6) = "1" And FS = "1" Then .Range("E" & R).Copy Sheets("قائمة الفصل").Range("C" & RA).PasteSpecial xlPasteValues .Range("H" & R).Resize(1, 7).Copy Sheets("قائمة الفصل").Range("D" & RA).PasteSpecial xlPasteValues RA = RA + 1 ElseIf .Cells(R, 6) = "2" And FS = "2" Then .Range("E" & R).Copy Sheets("قائمة الفصل").Range("C" & RA).PasteSpecial xlPasteValues .Range("H" & R).Resize(1, 7).Copy Sheets("قائمة الفصل").Range("D" & RA).PasteSpecial xlPasteValues RA = RA + 1 End If Next R End With Application.ScreenUpdating = True End Sub

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

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

اخى الكريم قم بتوضيح المطلوب جيداً .. هل تقصد بالتعديل ؟ تعديل البيانات التى ادخلت بالفعل ام تعديل البيانات اثناء كتابه الفاتورة وقبل ترحيلها

جــــــزاك الله كل خير واتمنى لك دوام الصحة والعافيـــــة

تم تنقيح الموضوع ومشاركات الشكر والثناء الكثيرة من قبل جميع الاخوة الفضلاء والابقاء على الموضوع الأصلي لغايات الارشفة (خمس صفحات من سنة 2007 ولغاية 2014) .......

تفضل أخى هذا الكود فى حدث الورقة كما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then On Error Resume Next If Target = "" Then Target.Offset(0, 7) = "" Else Target.Offset(0, 7) = ActiveSheet.Name End If End If End Sub نسخ اسم الورقة1.rar

أستاذ هشام ومنكم نستفيد لقد قمن بتغيير بسيط في الكود السابق ز حيث بدلت السطر Worksheets.Add الى Sheets("Database").Select Sheets("Database").Copy Before:=Sheets(1) وتم المطلوب حيث اصبح لدي حرية التغيير في ورقة Database وعند اضافة عضو جديد سوف يقوم الفورم بأضافة ورقة Database جديده تحتوي على اسم العضو الجديد تجدون مثال في المرفق ولكم خالص الشكر اخوك ابوفيصل تكرار وتسمية شييت محدد.rar

شاهد المرفق حسب طلبك __________________________.rar

Nov_06_Cash_Flow.zipالسلام عليكم ورحمة الله تم التعديل في المل فالمرفق عسى أن يكون حسب رغبتك