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

تفضل تم التوزيع داخل الاستعلام والتطبيق على اربعة ارقام باستخذام الدالة Mid exp1: Mid([Number];1;1) وبذلك يمكنك الاستغناء عن حقول الجدول وهو الافضل توزيع سلسلة رقمية.rar

بارك الله فيك أخي الحبيب خالد الرشيدي على هذه المعادلة الرائعة والجميلة

استازى ابو البراء اسمح لى ان اضع هذه المعادلة ايضاً -لاثراء الموضوع-خصوصا انة على الرغم من مناقشة البحث عن اخر قيمة كثيرأ الا انها لم تتناول البحث بدلالة الصف والعمود لهذا ها هى معادلة اخرى تودى نفس الغرض =IFERROR(LOOKUP(2;1/($I$3:$I$14=B2);INDEX($J$3:$M$16;;MATCH(F2;$J$2:$M$2;0)));0) التطبيق بالمرفق اخر سعر للصنف بالنسبه للعميل.rar

السلام عليكم بعد اذن الاساتذه الكرام جزاهم الله خيرا جرب المرفق التالى اخر سعر للصنف بالنسبه للعميل_2.rar

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

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

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

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

أخي الكريم نور وحيد جرب المعادلة التالية في الخلية D2 =IFERROR(INDEX($J$3:$M$16,LARGE(INDEX(($I$3:$I$16=$B2)*ROW($I$3:$I$16),0),1)-ROW($I$3)+1,MATCH($F2,$J$2:$M$2,0)),"")

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

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

تفضل إضغط تنفيذ وجرب المرفق 1دمج.rar

السلام عليكم و رحمة الله و بركاته أخي شاهد الصورة في الملف و غيّر ما يجب تغييره تحياتي / عبد العزيز البسكري المثال 2.rar

الاستاز / خالد الرشيدى المعادلة رائعة و تؤدى المطلوب فعلا جزاك الله خيرا واسف انى تعبتكم

بالتاكيد معادلة اكثر من رائعة جزاك الله خيراً استاذنا محمد الريفى واسمح لى ان اضع تلك المعادلة - لاثراء الموضوع - فهى تؤدى نفس الغرض معادلة صفيف Ctrl + Shift + Enter اخر سعر للصنف بالنسبه للعميل.rar

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

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

السلام عليكم حسنا استاذ ياسر اللمطلوب الاساسي تم بنجاح ننتقل لموضوع الآخر ان شاء الله

جرب الكود التالي Sub DeleteAllSheets() Dim WS As Worksheet Application.DisplayAlerts = False For Each WS In ThisWorkbook.Sheets If WS.Name <> "Sheet1" And WS.Name <> "Sheet2" Then WS.Delete Next WS Application.DisplayAlerts = True End Sub

عسى ان يكون تم المطلوب ححد افضل اجابة المثال.rar

اتفق مع استازى ياسر فى ان يكون التقييم مستند الى معيار وليس مجرد نقرة بالماوس تم تقييم مشاركتى ايجاباً ومشاركتة سلباً رغم ان كلا المعادلتين تؤدى نفس النتيجة فعلى اى اساس تم التقييم سلباً او ايجاباً !!!!!!! اخى نور وحيد انا لم الاحظ خلل مثل هذا فى كلا المعادلتين على حسب ما فهمت لهذا ارجو التوضيح انظر المرفق بهذا الترتيب اخر سعر للصنف بالنسبه للعميل_2.rar

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

أخي الكريم خالد الشاعر جرب الكود التالي عله يفي بالغرض Sub Test() Dim lRow As Long, I As Long lRow = 4 Application.ScreenUpdating = False With Sheet1 For I = 2 To .Cells(Rows.Count, 1).End(xlUp).Row Sheet2.Cells(lRow, 1) = .Cells(I, 1) Sheet2.Cells(lRow, 2) = .Cells(I, 2) & " " & .Cells(I, 3) lRow = lRow + 1 Next I End With Application.ScreenUpdating = True End Sub

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

اليك اخى الكريم معادله اخرى وهى معادلة صفيف لابد من الضغط على ctrl+shift+enter =INDEX($J$3:$M$16;MATCH(MAX(IF(($I$3:$I$16=$B2)*($J$2:$M$2=$F2);ROW($J$3:$M$16);""));ROW($J$3:$M$16);0);MATCH(F2;$J$2:$M$2;0)) اخر سعر للصنف بالنسبه للعميل_2.rar

السلام عليكم اعانكم الله استاذ عبدالله وأثابكم انا لا اعرف في المخازن او الحسابات ولكن يرد هنا في بعض الاوقات مسألة تعدد المخازن ( التعامل مع اكثر من مخزن ) اردت التنبيه هنا لتأخذوا بالحسبان امكانية التطوير ومعذرة ان كانت المداخلة غير مناسبة

السلام عليكم ورحمة الله وبركاته أخي ياسر...معك حق بكل كلمة ...لا يضرك فمن لا يعرف قدرك وديناميكية عملك وتجاوبك الحسن مع كل الناس لا يرى أبعد من أرنبة أنفه ... أما إن كان يجرب هذه الميزة الجديدة فقد يتعلم بعد أن يسيء للكثيرين وهذا ما يتوجب على الإدارة الكرماء إيضاحه... المهم في الأمر أن مردود الإحسان والإساءة عائد على صاحبه ..فنحن لم نر بعضنا ...هل سنتصرف بما تمليه علينا أهواؤنا بما أنك لن تستطيع أن ترد إساءة المسيء بشكل فعلي ...أم بما تمليه علينا ضمائرنا فالقلم أمانة ...كما العلم أمانة...وما تلفظه بلسانك محسوب عليك ...هل يعني هذا أن ما تكتبه وتفعله جوارحك ليس محسوباً عليك... راجياً من الإخوة الكرام أن يرفعوا سقف أفكارهم وأماناتهم وهممهم ... ولو أنا إذا متنا تُركنا لكانَ المَوْتُ راحَة َ كُلِّ حَيِّ ولكنا إذا متنا بُعثنا ونُسأل بعد ذا عن كل شي والسلام عليكم ورحمة الله وبركاته.

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

أخي الفاضل أهلا ومرحباً بك في المنتدى من المفترض أن يتم شرح المطلوب بشكل أكثر تفصيلاً ولكن لأني عملت على مثل هذا الكود من قبل فقد أدركت المطلوب .... يرجى الإطلاع على موضوع التوجيهات للأعضاء الجدد في الموضوعات المثبتة في المنتدى ويرجى تغيير اسم الظهور للغة العربية إليك الكود التالي عله يفي بالغرض Sub TransferDataToClosedWB() On Error Resume Next Dim WB As Workbook Dim LR_A As Long, LR_B As Long Dim Answer As Long LR_A = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 8, 9, Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False ThisWorkbook.Sheets("Sheet1").Range("B9:K" & LR_A).Copy Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & "اكسل2.xlsm") With WB.Sheets("Sheet1") LR_B = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 2, 3, Cells(Rows.Count, 1).End(xlUp).Row + 1) .Range("A" & LR_B).PasteSpecial xlPasteValues .Range("L" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("F6").Value .Range("M" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("B4").Value End With On Error GoTo 0 WB.Close SaveChanges:=True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "سجل إعجاب بهذا" .. Desktop V2.rar

جرب المرفق ان كان ما تريد حدد الموضوع كمجاب examble.rar

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

مرفق الحالات العمليه الخاصه ب جدول البيانات لمتغير واحد ومتغيرين اثنين مرفق الحالات العمليه الخاصه ب مدير السيناريو DATE TABLE.rar Scenario Manager.rar

أخي الكريم خالد هلال إليك الملف التالي عله يفي بالغرض Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim LR As Long Set WS = Sheets("الإيصال"): Set SH = Sheets("اليومية") LR = SH.Cells(Rows.Count, 6).End(xlUp).Row + 1 Application.ScreenUpdating = False With SH .Range("A" & LR) = LR - 4 .Range("B" & LR) = WS.Range("G3") .Range("C" & LR) = WS.Range("G2") .Range("D" & LR) = WS.Range("B4") .Range("E" & LR) = WS.Range("B5") .Range("F" & LR) = (WS.Range("B6") - Int(WS.Range("B6"))) * 100 .Range("G" & LR) = Int(WS.Range("B6")) .Range("H" & LR) = WS.Range("D5") .Range("I" & LR) = WS.Range("B7") WS.Range("G3") = WS.Range("G3") + 1 End With MsgBox "تم الترحيل بنجاح", vbInformation Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي كما لا تنسى أن تضغط أعجبني هذا إذا أعجبتك المشاركة وأدت الغرض تقبل تحياتي Tarhil YasserKhalil.rar

تفضل سيدي الكريم نفس الملف و بنفس كلمة المرور طريقة أخرى عن طريق الأنبتْ بوكس : MAYAM 2.rar

تفضل أخي الغالي .. Insert-Delete Rows with formulas3.rar

السلام عليكم و رحمة الله و بركاته إعمل مثلما في الصورة إرفع السطر المشار إليه بالأخضر وامسح نهائيا السطرين المشار إليهما بالأحمر تحياتي

السلام عليكم جرب هذه If .Cells(R, 2) <> "" And .Cells(R, 2) Like "*" & CM_TextFind.Text & "*" Then تحياتي +عدم ظهور فراغات فى الليست بوكس.rar

وعليكم السلام كود تصدير البيانات دفعة واحدة خاص بالاصدارة 2010 يمكنك التعديل حسب الاصدار الذي عندك Here are a few examples for inserting all the data at once: strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=z:\docs\test.accdb" ''Late binding, so no reference is needed Set cn = CreateObject("ADODB.Connection") cn.Open strCon ''Create a table called ATable scn = "[Excel 8.0;HDR=YES;DATABASE= & ActiveWorkbook.FullName & ]" strSQL = "SELECT * INTO ATable " _ & "FROM " & scn & ".[sheet7$A1:C4]" ''Execute the statement cn.Execute strSQL ''Insert into a table called ATable scn = "[Excel 8.0;HDR=YES;DATABASE= & ActiveWorkbook.FullName & ]" strSQL = "INSERT INTO ATable " _ & "SELECT * FROM " & scn & ".[sheet7$A1:C4]" ''Execute the statement cn.Execute strSQL ''Insert into a table with no column header in Excel, ''the fields are [afield],[atext],[another] scn = "[Excel 8.0;HDR=NO;DATABASE= & ActiveWorkbook.FullName & ]" strSQL = "INSERT INTO ATable ([afield],[atext],[another]) " _ & "SELECT F1 As afield, F2 As AText, F3 As another FROM " _ & scn & ".[sheet7$A1:C4]" ''Execute the statement cn.Execute strSQL منقول ،،،،

بسم الله الرحمن الرحيم إستيراد وتصدير جدول إكسيل من وإلى الأكسيس يرغب بعض الاخوة فى الاحتفاظ ببيانات جدول الإكسيل فى ملف قواعد بيانات الاكسيس لإسباب منها ::: أن يكون عدد صفوف جدول البيانات كبير نسبيا او لإسباب اخرى قد يكون منها أمن البيانات وعلى ذلك يظل ملف الإكسيل صغير دائما وخفيف فيرغب فى تصدير هذا الجدول إلى ملف MDB الخاص بالاكسيس والمطلوب منك فقط بعد نقل الاكود الى ملفك هو تسمية اول خلية فى جدولك بأسم ( FirstCel ) فى الملف خاصتك ويمكن عمل رتين اتوماتيكيا ليعمل الاتى ::: قبل غلق الملف يعمل على تصدير قاعدة البيانات الى الاكسيس ومسح قاعدة البيانات من ملف الاكسيل فيظل ملف الاكسيل صغير الحجم وخفيف وعند فتح الملف يعمل الروتين اتوماتيكيا على استيراد قاعدة البيانات الى ملف الاكسيل لتعمل عليها المرفقات عبارة عن ::: 1 - ملف البرنامج 2 - ملف فيديو يوضح اسلوب العمل نتمتى صالح الدعاء Omar_1.rar