yara ahmed

للرفع

فكرة ممتازة وكود ممتاز بارك الله فيكم

استاذ على بارك الله فيك

استاذ سليم رائع استاذنا الفاضل بارك الله فيك اخي الكريم

ماشاء الله عليك اخى

جميل تمام التمام تسلم ايدك انقذتنى

ربنا ينجيك دائماااااااااااااااااااااااااااا

ربنا يحفظك ويفرحك ويسترك ويكرمك

الف الف شكر 

ربنا يجعل كل ايامك هنا وسرور وسعادة وازهار وكل حاجة جميلة

انا مش عارفة اشكرك ازى والله 

ربنا يعزك 

ما اتحرمش منك ابداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا يارب اللهم امين

السلام عليكم

هذا الكود من ابداع الاستاذ سليم حاصبيا حفظه الله وارضاه

احتاج تعديل فى 

فى هذا الجزء من الكود

  Select Case D.Cells(12, "J")
          Case "Positive"
            Select Case D.Range("N1")
             Case 3: Sum_pos = 0.1475 * Sum_pos
             Case 10: Sum_pos = 0.705 * Sum_pos

اللون الاحمر والازرق =

   Case "R_B"
      For Each Sh In Sheets
       If Sh.Tab.ColorIndex = 55 _
        Or Sh.Tab.ColorIndex = 10 Then
        ReDim Preserve Arr_sh(m)
        Arr_sh(m) = Sh.Name: m = m + 1
       End If

عايزة اختار"R_B"

الكود يستدعى الشيت الازرق والاحمر ويطبق على كل لون معادلته على حدى بس يستدعيهم معا

يعنى اختار فى N1

"R_B"=يتنفذ

       Case 5: Sum_pos = sum_pos- 15%* Sum_pos-Sum_pos*10%-sum_pos*4.5%+sum_neg
             Case 10: Sum_pos = sum_pos- 15%* Sum_pos-Sum_pos*10%-sum_pos*25.25%+sum_neg

لان الان الكود عند استدعاءR_B

بينفذ على الشيتات الحمراء والزرقاء مع بعض مثلا

          Case "Positive"
            Select Case D.Range("N1")
               Case "R_B": Sum_pos = sum_pos- 15%* Sum_pos-Sum_pos*10%-sum_pos*4.5%+sum_neg

التعديل المطلوب باختصار واسفة للاطالة

عايز الكود عند اختيار"R_B" فى N1

ينفذ معادلتين معادلة للشيت الاحمر

وهى

  Case 5: Sum_pos = sum_pos- 15%* Sum_pos-Sum_pos*10%-sum_pos*4.5%+sum_neg

ومعادلة للشيت الازرق وهى

  Case 5: Sum_pos = sum_pos- 15%* Sum_pos-Sum_pos*10%-sum_pos*25.25%+sum_neg

ويستدعيهم مع بعض فى نفس الوقت

مع الشكر الجزيل وخالص الدعاء

Yara_More_Optione.xlsb

اخويا حبيبى الف شكر لحضرتك جدااااااااااااااااااااااااا

متزعلش منى والله زعلك على راسى

ربنا يخليك لينا يارب ويحفظك ويعزك اللهم امين

ممكن الكود الجديد يعمل على لون التاب بدون ما اكتبه يعنى يستدعى كل الشيتات كلا حسب لونه يتم الخصم

معلش نسيت انا اسفة استثناء اللون الاخضر

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

مع حبي وشكرى

استاذى اخى الغالى استاذ سليم حاصبيا

هل لى بطلب تعديل لهذا الكود رجاء

هل بتعديل لكودك الرائع هذا معلش انا احتاج التعديل جدا والله

احتاج ان عند استدعاء الشيت التى بلون تاب ازرق يتمpos-pos*15%-pos*10%-pos*4.5%

واذاكان اللون احمر يتم pos-pos*10%-pos*15%-pos*25.25%

اذا كان اخضريتم pos*15%-pos*5%

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

يعنى اكتب رقم اللون مثلا3 الى هو اللون الاحمر

ويكون هناك زر اخر بكود اخر 

اضغط عليه يستدعى Pos-pos*15%-pos*10%-pos*25.25%

وهكذا لباقى الالوان

انا بعمل ايه دلوقتى

بعمل ورقة خارجية واكتب فيه معادلات

لكى احصل على هذه البيانات والله مرهقة جدااااا وبتاخد وقت كبير جدا

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

اختك

Yara_One _more_color.xlsb

الف شكر 

استاذ على بارك الله فيك

استاذى اخى الغالى سليم بارك الله فيك 

استاذ احمد الف شكر لحضرتك اخى

سؤال فى نفس الموضوع بعد اذنكم إذا كان لدى عمود به رقم وكلمة عند استخدام دالة sum

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

مشكورين

ملاحظة امكانية اضافة عملاء وحسابات

تسلم وتعيش جميل بس انا Zero اكسيس بدأت اتعلم من اليوتيوب لسه kg

شكرا لمساعدتك على راسى اخى تسلم

اوفيس365

اسم الحسابات اخى فالله

حساب النقدية

حساب المؤجلات

حساب تحت النسوية

حساب الموردين المتعثرين

مشكور جدا اكثر الله خيرك

ها هو اخى الفاضل كل ما احتاجه مصمم على الاكسيل

كل شكرى وخالص دعائى من قلبى

صفحة يارا.xlsx

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

مشكور استاذنا

اشكرك استاذ ابوخليل

الموضوع بسيط هو توجيه مبالغ على حسابات لعملاء بتاريخ انا اعمل بشركة ويطلب منى العمل 12 ساعة اوجه حسابات واستخرج تقارير 

الحسابات هى الصفحات

العملاء 8 

8 اعمدة كل عمود اسم عميل  وهم هم فى كل صفحة

عندى صفحة مصمم عليها ادخال لتسهيل ادخال المبلغ الى الحساب والى العميل

كشف الحساب يأتى به اسم العميل

وعدد 10 اسطر

كل سطر عبارة عن مبلغ امامه الحساب الذى سيتوجه اليه

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

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

صفحة الادخال اول صفحة

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

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

ثانى صفحة الصفحة بها تقرير

اختار تاريخ من وتاريخ الى

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

ويوجد اختيار استدعاء البيانات الموجبة فقط او السالبة فقط او الرصيد الارقام الموجبة-السالبة

دول اول صفحتين

اخر صفحتين تقريرين

تقرير بالتاريخ من الى يجلب بيانات الحسابات التى ملون تابها باللون الاخضر

واخر تقرير هو ما رفعته بشيت الاكسيل

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

الشكر موصول لحضراتكم

البرنامج عبارة عن ادخال بيانات لعدد 30 صفحة اسم الصفحة هو الذى يتغير اما رؤس الاعمدة فى كل الصفحات واحدة

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

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

عن طريق اختيار رقم اللون بقائمة منسدلة

هذا هو اختصار للموجود بالملف

اشكركم من قلبى

اشكرك جدا استاذ على ربنا يرضى عنك يارب

بارك الله فيك الف شكر لحضرتك جداااا

اخواتى

احتاج مساعدتكم فى تنفيذ اول برامجى بالاكسيس

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

شكرا

الملف المطلوب التنفيذ عليهyara.xlsb

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

تغير الفورمات بدل الارقام تظهرنجوم

الكود الذى وضعه استاذ علي ممتاز بس يحتاج ان اعمل موديول واغير بالكود 

وانا عندى هذا الكود بأكثر من صفحة احتاج اضافة سطر للكود مثلا Format namber=*

مع الشكر

goto the page with pass.xls

انا اسفة انى معرفتش اوصل المطلوب لحضرتك

عايزة اضافة للكود ليتم تحويل الباس لنجوم مثلا فورمات=****

لان كود استاذ علي محتاج انى اعمل موديول واغير بالكود 

وانا عندى بكل صفحة كود الباس ورد

فعايزة اضافة للكود بتاعى يحول الباس ورد لنجوم لو امكن

مشكور

طيب ممكن بعد اذنك استاذ ابوخليل

لو انا عايزة احول برنامج مصمم بالكامل ليكون التنفيذ بالاكسيس

ممكن تساعدنى 

ابدأ ازى 

انا عندى برنامج يقوم بالترحيل الى صفحات حوالى30 شيتس

اول 5 صفحات عبارة عن تقارير استدعاء بالتاريخ من الى

ابدأ ازى بالتصميم وهل يمكن تحويل الاكواد لتعمل ما تعمل فى الاكسيل لتعمل بالاكسس

معلش تعبتك حفظك الله

الاخوة الاساتذة كنت ابحث بمنتدى الاكسيس لامكانية التسجيل بالاكسيل فيتم التخزين بالاكسيس

لان الاكسيل بيتقل مع كثرة البيانات

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

وبالاكسيل كود للتصدير والاستيراد من الاكسيل ومن الاكسيس

وهو جيد جدا

مشكلته انه يصدر ويستورد شيت واحد

اريده يتعدل ليشمل تصدير واستيراد كل شيت الاكسيل

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

مع خالص شكرى ودعائى لكم

استيراد وتصدير اكسل إلى اكسس.rar الملف المطلوب التنفيذ عليهyara.xlsb

شكرا لحضرتك جداااا بارك الله فيك

اختك

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

هذا الملف به اكواد VBa تصميم اخى فى الله الاستاذ الكبير سليم حاصبيا

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

على كل الملف مش sheet واحد فقط واكثر الله خيرك يعنى اختار تصدير يتم تصدير البيانات التى بكل الشيتس الى الاكسس والاستيراد ايضا من الاكسس

الى كل الشيتس مرة واحدة

وبارك الله فيك ولك ان شاء الله

Yara_One _more_color.xlsb