خالد الرشيدى

اخى الكريم لم تزكر من البداية انك تريد التعديل يشمل كود الصنف .. عموماً اليك الملف التالى مع التاكيد على ان فكرة الكود هى - لمعلمنا عبد الله باقشير - انا فقط قمت بالتعديل عليه ليناسب طلبك El rashedy listbox.rar

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

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

استخدم الكود التالى وابدى ملاحظاتك Sub Button2_Click() Dim lr As Long, cl As Range, n As Integer lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row For Each cl In ورقة2.Range("B2:B" & lr) For n = 1 To ورقة1.Cells(Rows.Count, "B").End(xlUp).Row If cl.Value = ورقة1.Cells(n, 2) Then With cl.Offset(0, 2) .FormulaR1C1 = "=VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0)" .Value = .Value End With End If Next Next End Sub

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

اخى الكريم بخصوص الطلب الاول استبدل الكود السابق بهذا الكود Sub Button2_Click() Dim lr As Long lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row With ورقة2.Range("D2:D" & lr) .FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0),"""")" .Value = .Value End With End Sub اما بخصوص الطلب الثانى :- فلم افهم المطلوب ارجوا مزيداً من التوضيح مع العلم ان طبيعة عمل الكود هو البحث عن القيمة (الورقة 2 ) فى الورقة 1 وارجاع قيمة السطر المجاور لها

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

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

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

جرب المرفق علة المطلوب العطارتمسنا_2015_07_21_2_3.zip اخى الكريم لا اعلم لماذا لا يمكننى التعديل على المشاركة السابقة عموماً طرأ تعديل بسيط على المرفق العطارتمسنا_2015_07_21_2_3_2.zip

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

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

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

اخى الكريم لم انتبه الى مشاركتك الخاصة بزكر وجود خطأ فى صيغة الدالة IF هو ليس بخطأ وانما بعض الاجهزة تتعرف على الفاصلة العادية , والاخرى تتعرف على الفاصلة المنقوطة ; كوسيلة بمعنى ( و ) للفصل ما بين معلمات الدوال المختلفة لهذا استبدل الفاصلة العادية بالفاصلة المنقوطة

استازى الحبيب ياسر خليل دائماً فى العون والمساعدة .... جزاك الله عنا كل خير انا فقط اردت استخدام طريقة مختلفة دوا وضع IF اخى الكريم معادلة استاذنا ابو البراء تفى بالغرض .. وها هى اخرى فقط لاثراء الموضوع دون استخدام IF =(C17>=5)*0+(C17<5)*(C20-C17*20) تقبلوا خالص تحياتى

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

اخى الكريم لكى يتم التعديل لابد من استدعاء البيانات اولاً الى الفورم .. اليس كذلك ؟؟ اذن .. لماذا لم تحدد على اى اساس يتم الاستدعاء التسلسل ام اسم العميل ام رقم الوصل ام .... ؟؟

اخى الكريم جرب المرفق علة المطلوب العطارتمسنا_2015_07_21_2.zip

اخى الكريم جرب المرفق علة المطلوب نموذج.rar

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

استبدل اسم الورقة فى الكود ( ورقة 13 ) بتلك الكلمة ActiveSheet وابدى ملاحظاتك

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

اخى الكريم لم افهم .. ماذا تعنى بعدم ربط الكود بالورقة 13 .. وما علاقة حفظ نسخة من الفواتير بهذا الامر ... .. وماذا تقصد بالفاتورة النشطة .. ؟؟؟

اخى الكريم نقاط كثيرة فى المطلوب غير واضحة منها معيار البحث بالاسم ام الكود .. ما تم تنفيذه بالاسم ...هل التعديل يشمل الكود ايضاً اى من الممكن التعديل على الكود ام لا .. ما تم تنفيذه من الممكن ان يشمل التعديل الكود ايضاًً ... عموماً جرب المرفق وابدى ملاحظاتك تنوية :- الكود المستخدم هو لمعلمنا عبد الله باقشير انا فقط قمت بالتعديل عليه ليناسب ملفك Invoice full pic2007_1.zip

السلام عليكم هذا الكود فى البداية كان للترقيم استناداً الى عدم فراغ عمود اخر ... لعل ذلك لفهمى الخاطئ للمطلوب ... ثم عدم وجود مرفق ووضع الكود دون فهم المطلوب .. عموماً يمكنك استخدام الكود التالى Sub ãÓáÓá() With Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(-1) .Formula = "=ROW()-3": .Value = .Value End With End Sub اما عن حدث تنفيذ الكود من خلال زر امر او عند تنشيط الملف .. فهذا يتوقف على طريقة استدعاء الكود سواء من خلال زر او وضعة فى حدث Worksheet_Activate()