محمد يوسف

لرفع

السلام عليكم ورحمة الله وبركاتة مطلوب كود ترحيل 6 خليات الي قاعدة بيانات موجوده علي برتيشن d الشرح واضح داخل الملف ارجو المساعدة من اساتزة هذا المنتدي جزاكم الله خيراً مجلد جديد _(2)_.rar

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

استاذي احمدزمان اسف علي عدم التوضيح البرنامج وبه الشرح ‫البرنامج 1-7-2020 - نسخة (2).xls شكرا لحضرتك وجزاك الله خيرا

المطلوب تشغيل هذا الكود علي برنامجي Sub ADDIN01() Dim FS As Worksheet, TS As Worksheet Dim Q1 Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("المخزن") For FR = 5 To 30 Q1 = FS.Cells(FR, 6).Value Q2 = FS.Cells(FR, 4) & "*" & FS.Cells(FR, 5) Q3 = FS.Cells(FR, 7).Value For TR = 3 To 999 If TS.Cells(TR, 2) = Q1 Then For TC = 3 To 33 If TS.Cells(2, TC) = Q2 Then TS.Cells(TR, TC) = TS.Cells(TR, TC) + Q3 GoTo 9 End If Next 'TC End If Next 'TR ------------------------------------- Sub ADDIN01() Dim FS As Worksheet, TS As Worksheet Dim Q1 Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("المخزن") For FR = 5 To 30 Q1 = FS.Cells(FR, 6).Value Q2 = FS.Cells(FR, 4) & "*" & FS.Cells(FR, 5) Q3 = FS.Cells(FR, 7).Value For TR = 3 To 999 If TS.Cells(TR, 2) = Q1 Then For TC = 3 To 33 If TS.Cells(2, TC) = Q2 Then TS.Cells(TR, TC) = TS.Cells(TR, TC) + Q3 GoTo 9 End If Next 'TC End If Next 'TR 9 Next ' FR End Sub Sub ADDIN02() Dim FS As Worksheet, TS As Worksheet Dim Q1 Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("المخزن") For FR = 5 To 30 Q1 = FS.Cells(FR, 6).Value Q2 = FS.Cells(FR, 4) & "*" & FS.Cells(FR, 5) Q3 = FS.Cells(FR, 7).Value For TR = 3 To 999 If TS.Cells(TR, 2) = Q1 Then For TC = 3 To 33 If TS.Cells(2, TC) = Q2 Then TS.Cells(TR, TC) = TS.Cells(TR, TC) - Q3 GoTo 9 End If Next 'TC End If Next 'TR 9 Next ' FR End Sub 9 Next ' FR End Sub

استاذنا احمدزمان جزاك الله خيرا شكرا لك علي هذا الكود الاكثر من رائع انا كنت عايز الكود دة من زمان ولكن الحمد الله حضرتك لبيت لي طلبي الان ممكن بعد اذنك حضرتك توفقة ان يعمل مع برنامجي شكرا لابداعك واسأل الله العلي القدير ان يجزيك به خيرالجزاء ‫البرنامج 1-7-2020 - نسخة (2).xls

السلام عليكم ورحمة الله وبركاته اساتذة وخبراء هذا المنتدي الجميل اريد تعديل هذا الفورم ليناسبني اريد تكبير عدد اصناف الفاتورة مطاط- بحيث -يوجد لديا فواتير مختلفه - مثل فاتورة 5 اصناف- وفاتورة اخرى 45صنف -وايضا فاتورة اخري مختلفة وهكذا مرفق الملف ... جزاكم الله خيرا برنامج.xlsm

تفضل كود لأحد اساتذة هذا المنتدي الجميل فواتير٣٣٣.xlsm

لرفع

استاذي الحبيب عمر الحسيني *** أبو تامر هذا مجهود كبير جداً هذا ما اريد جميل جداً اسأل الله العلي القدير رب العرش العظيم ان يجعل هذ العمل الجميل - سبب لدخولك الجنة انشاء الله وان يزيدك الله من فضله - وان يذيدك الله علماً نافعاً اخي : عجز لساني عن شكري لك جزاك الله خيراً وبارك الله فيك

استاذ : عمر الحسيني *** أبو تامر : جزاك الله خيرا تفضل: !_Macro.xls

استاذي العزيز عمر الحسيني *** أبو تامر بارك الله فيك نعم هذا هو المطلوب --------- بدون ارتباطات خارجيه.xls !_Macro.xls البرنامج الان بدون ارتباطات خارجيه اعانك الله وذادك علماً نافعاً

استاذ عمر الحسيني *** أبو تامر اشكرك مرة ثانية هذا هو البرنامج اختيار تشغيل اي مكرو من خلال ايكونة واحدة.xlsm بارك الله فيك استاذنا وجزاك الله خيراً

استاذ عمر الحسيني *** أبو تامر بارك الله فيك وشكراً علي الاهتمام المطلوب هكذا ----

السلام عليكم ورحمة الله احبتي في الله - اريد جمع قيمة الفاتورة اسفل القيمه جزاكم الله خيراً برنامج حساباتي برنامج فواتير-1-2020.rar

وعليك السلام اخي : ستجد طلبك هنا https://www.officena.net/ib/topic/83902-برنامج-مبيعات-بالاكسيلvba-مجاني-100/

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

بارك الله فيك وزادك علماً

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

اخي الحبيب الستاذ Ali Mohamed Ali بارك الله فيك-وشكراً علي سرعة الرد هذا هو المطلوب : ولكن يوجد مشكلة عندما : احفظ الفاتورة : يتم مسح المباع - يعني مبيخصمشي المباع -عند عمل فاتورة جديدة اري الكمية كما هى بارك الله فيكم وجزاكم الله الخير كله الباقي في المخزن1.xlsx

اريد تنزيل المباع من sheet2 وكتابة الكمية المتبقية علي حسب اللون والمقاس الصنف - يعني عندي 3*4 - احمر - وعندي 3*4 موف - الكمية وليكن 10 من كل لون- بعت من الاحمرمقاس 3*4 عدد 5-يبقي الباقي 5 احمر --- وهكذا وباقي الشرح --- وجزاكم الله كل خير عنوان مخالف-تم تعديل عنوان المشاركة الباقي في المخزن.xlsx

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

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

السلام عليكم أريد تعديل هذا الكود ليتم ترحيل البيانات بدون فراغ - معتمداً علي العمود a - اذي كان عمود 0<a8 - فيتم ترحيل الفاتورة من عمود8 a8:h -مود 0<a9 - فيتم ترحيل الفاتورة من عمود9 a9:h - وهكذا ----- وكل ذالك مرتبط بزر ----- ترحيل بشرط.xlsm جزاكم الله خيراً

استاذي العزيز Ali Mohamed Ali جزاك الله خيراَ هذا جميل جدا هذا هو المطلوب بالضبط اسأل الله العلي القدير ان يجعل اعمالك في ميزان حسناتك وان يجزيك بها خيراً اللهم امين شكراً اخي الحبيب بارك الله فيك