رامي قلعجية

اخي سليم اسف مرة ثانية 

اريد العمل على الشيت fatoura 

كتبت لك ذالك فوق اسف اخي سليم مرة ثانية

40 دقائق مضت, رامي قلعجية said:

السلام عليكم

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

privare sub workheet_selectionchange(byval target as rangr) 

dim a as long 

dim b as long 

dim sum as long 

a = range("d7").value

b = range("f7").value

sum = a * b

range ("g7"). value = sum

بصفحة fatoura

fatoura3.rar 252.1 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

كتبت بورقة فاتورة

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

3 دقائق مضت, سليم حاصبيا said:

ارفع ملف توضح فيه المطلوب

رفعته اخي سليم

السلام عليكم

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

privare sub workheet_selectionchange(byval target as rangr) 

dim a as long 

dim b as long 

dim sum as long 

a = range("d7").value

b = range("f7").value

sum = a * b

range ("g7"). value = sum

بصفحة fatoura

fatoura3.rar

شكرا جزيييييلا اخ علي وعل ردك السريع 

سؤال هل يمكن تطبيق المعادلة بالكود وتكون النتيجة بعمود E بدل من N

عندي شيت فاتورة وشيت برحل عليه المبيعات واسمو المبيعات

عاوز لما اكتب كود الصنف في صفحة الفاتورة  يجبلي اخر سعر انا بعتو بشرط يكون مربوط مع اسم الزبون 

المعادلة في عامود  N       

fatoura3.rar fatoura3.rar

رجائا وليس امرا ساعدوني

السلام عليكم 

ساعدوني جزاكم الله خيرا

اخي العيدروس السلام عليكم ورحمة الله

اضفت موضوع عشان نفس الملف بس ما حبيت يكون هون عشان غير الي طالبو بالعنوان لو امكن تساعدني بالحل بتكون فضلت عليي 

عنوان الموضوع 

كود اخر سعر بيع ارجو المساعدة

السلام عليكم ورحمة الله وبركاته

عندي ملف به صفحة فاتورة وصفحة المبيعات

اريد ان اتي باخر سعر تم احتسابه للزبون من صفحة المبيعات عند كتابة كود الصنف مع اسم الزبون يأتي لي باخر سعر بعته. 

اريد النتيجة تبدا في E7 بصفحة فاتورة 

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

يصعب علي فعل ذالك ارجو ان لا اكون قد بالغت بطلبي

شكرا سلفا 

fatoura2.rar

شكرا لك اخي وحبيب اعزك الله بدينه دين محمد صلى الله عليه وسلم واكثر من امثالك ليعم الخير بين الناس 

اكتفي بهذا لانه مهما شكرتك لا اكفيك حقك 

السلام عليكم 

يبدو ان الخطأ من عندي 

اسف جدا 

لقد اشتغل الكود في صفحة المبيعات 

لا اعلم ما سبب توقفه حين جربته. 

سؤال هل الدوال الموجودة في سطر رقم 9 بصفحة استعلام المبيعات

لها فائدة ام احزفها 

ظهرت لي مشكلة 

لا يتم تعديل المجموع للصنف في صفحة المبيعات

اعجز عن شكري لك انت انسان رائع لكل معنى للكلمة

رائع اخي الكريم وهذا هو المطلوب اشكرك من كل قلبي 

وجزاك الله كل خير 😚😚😚

الله يبارك فيك لح جربو ورد خبر ان شاء الله

ماشي ان شاء الله 

الله يبارك فيك هلا بغيرو

المجموع الجديد لح يكون بصفحة كشف حساب 

لكل الفاتورة 

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

اتمنى اكون وصلت الفكرة صح وشكرا ليك سلفا 

والله مبدع ما عما اشبع من الكود 🤩😙

تم حل الموضوع من قبل الاخ العدروس 

في هذا المنتدى والفضل لله سبحانه 

والشكر الكبير لي العدروس 

وهذا الملف لتعم الفائدة

fatoura1.rar

تم الحل والحمد لله بفضل الله وم ثم الاخ 

العدورس في هذا المنتدى 

الشكر الجزيل له 

وللفائدة هذا الملف 

fatoura1.rar

رااااااائع حللت لي مشكلة الها بتواجهني اكتر من شهر تسلم ايديك الله يحفظلك عيلتك ويزيدك من علمه حتى ينفع الناس 

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

وياريت مسج بوكس تم الترحيل بنجاح 

اذا امكن ذالك ولك كل التقدير

fatoura1.rar

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

لح جرب الكود وبرد خبر شكرا ليك

جعله الله في ميزان حسناتك

السلام عليكم

كيف يتم تعريف العامود بهذا الكود بدل من الرقم 

عاوز احدد مثلا من a11:a100

وهذا الكود 

 Worksheet_SelectionChange(ByVal Target As Range)

LR = Sheets("ورقة1").Range("B7").End(xlDown).Row
Application.ScreenUpdating = False
For R = 1 To LR
        Sheets("ورقة2").Cells(R, 1) = Sheets("ورقة1").Cells(R, 1)
        Sheets("ورقة2").Cells(R, 2) = Sheets("ورقة1").Cells(R, 2)

Next
Application.ScreenUpdating = True
End Sub
 

لو سمحتم اعطونا من ما علمكم الله

9 ساعات مضت, الـعيدروس said:

وعليكم السلام

برجاء اعادة رفع الملف لم استطيع فتحه يظهر رسالة بأنه للقراءه فقط

15 ساعات مضت, ramikalaajieh.rk said:

سلام عليكم 

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

 

fatoura.rar 270.33 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

fatoura.rar

اخي الكريم رفعت الملف مرة ثانية

سلام عليكم 

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

fatoura.rar