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