بسم الله الرحمن الرحيم, وبه نستعين: th-cam.com/video/J8PYDIt0jnA/w-d-xo.html بناءً على طلب بعض المتابعين تم عمل الدرس التالي الذي نشرح من خلاله طريقة ترحيل البيانات من نموذج الفاتورة الذي أنشأناه في الدرس التالي: th-cam.com/video/LLKCUq_l03A/w-d-xo.html إلى جدول خاص بعرض بيانات جميع الفواتير. نرجوا لكم الفائدة ولطلبات الشروحات تفضلوا بمراسلتنا عبر الوسائل المتاحة. #اشتراك: goo.gl/VVhQSB #واتساب: chat.whatsapp.com/FBeoqi2iezmFg85b8sBP0E #تيليغرام: t.me/MasaqatOnline #تويتر: twitter.com/MasaqatOnline #انستغرام: @masaqat.online
ممكن حضرتك تطبق ازاي استرجع الفاتورة زي اللي حضرتك عاملها دي في الفديو ازاي استعلم عن فاتورة برقم الفاتورة والتعديل عليها وترحيل البيانات مرة اخري بعد التعديل
ممتاز جدا بالتوفيق عندي فكره لو تعمل استدعاء بيانات فاتورة في نفس النموذج يبقي الشغل مكتمل ان شاء الله يعني نعمل خليه نكتب فيها رقم الفاتورة ونضغط زر استدعاء عن طريق كود يستدعي بيانات فاتورة المطلوبه امامنا دون عناء
كل الشكر استاذنا العزيز ما شاء الله قمت بتطبيق تعليماتكم على مثال عملي و كانت النتائج بعد التعديلات رائعة أتمنى لو تكرمتم باكمال النموذج ليكون فيه زر بحث حسب اسم المادة و حسب رقم الفاتورة و زر تعديل و اخر حذف شكرا لكم و تحية لكل اهل حلب الاكارم
رائع استاذ تماما ما كنت ابحث عنه كودات بسيطة لم اكن استعملها رغم فعاليتها الرائعة. فقط سؤال اذا كنت من نفس شيت الأدخال اغير من فاتورة مبيعات الى فاتورة مشتريات باكواد معينه فكيف يمكن عدم الترحيل الى شيت الفواتير عندما يكون الأختيار فاتورة مشتريات. ولك الشكر الجزيل.
في مشكلة .. بعد ما كتبت كود تفريغ رقم الفاتورة . لو كاتب مثلا 3 مواد او اصناف في الشيتة المرحلة فيها البيانات بينزل رقم الفاتورة مرة واحدة وليس 3 مرات . وشكرا علي مجهودك
التعامل مع الأكواد دائماً فيه مشاكل فيما يخص التطبيق لذلك عليك بالمحاولة المتكررة حتى يشتغل الكود, لكن بالنسبة لهذه المسألة أعتقد أنك عامل إسناد رقم الفاتورة خارج الحلقة تأكد من ذلك
عندي مشكله عند مسح رقم الفاتوره يقوم بادخال رقم الفاتوره فى اول بيان فقط وباقي الاصناف ترحل بدون رقم الفاتوره ... كيف اجعل الكود يحذف رقم الفاتوره بعد ادخالها في كافه الاصناف؟
السلام عليكم من فضلك لو عاوزة ارحل صفوف ملاحظات بكتيها في الفاتورة مثلا من b15الي d15 و من b16 الي d16لفاتورة معينة عاوزة ارحل الصفوف دي لرقم الفاتورة دي وبعد كدة افرغة علشان اكتب فية لفاتورة اخري
اشكرك للكود انا كنت محتاجه بس في ملاحظات ناقصاني عاوز اعمل رقم فاتورة يزيد تلقائي بعد عملية الترحيل لما بعمل كده مش بتضيف وهل في كود بدون مايكرو بالطريقة العادية
اشكرلك قبل كل شيء. كتبت نفس الكود بكل التفاصيل ولكن معلومات اسم الشركة ورقم الفاتورة يرحل مرة واحدة في اول سطر الى sheet المرحل اليها؟؟ هل هناك اي خطأ ممكن ان اكون كتبته وما هو.. أرجوك اتمنى منك الحل، والف الف شكرز
السلام عليكم ورحمة الله وبركاته،، بارك الله فيك أخي العزيز على الشرح.. بس كيف طريقة عمل رقم الفاتورة يكون ترقيم تلقائي بناءاً علي اخر رقم فاتورة تم ترحيلها؟.
جزاك الله خيرا . عندي انشغال لو سمحتم هو عندما نقوم بإفراغ رقم الفاتورة مع البيانات الأخرى عند الترحيل لا يتكرر رقم الفاتورة مع البيانات في جدول الفواتير و شكرا
ممكن بعد ازنك تبعت او تنزل تحميل لي الملف ده عشان حاولت كتير جدا اعملها ومش عايزه بردو الترحيل يتنفذ خالص حاولت كتير جدا ممكن تنزل الملف ده عشان اخدوا واعدل عليه انا وشكرا
تحية طيبة الأستاذ الكريم عندي ملف إكسل حجمه 12 ميغا فجأة أصبح ثقيلاً ويعرض الرسال الآتية عند كل حفظ أو تغيير أو حتى تنقل بين الخلايا: يتم الآن حساب: (4 معالج(معالجات)) ما الحل لمعالجة ثقل الملف في هذه الحالة ؟
السلام عليكم عندي مخزون فقرتين وكل فقرة بها مجموعة مواد أريد نفس هذا البرنامج مع ترحيل البيانات حيث يحتوي على نموذج فاتورة في شيت والمخزون في شيت اخرى حيث عند طباعة أوترحيل الفاتورة والتي بها مجموعة مواد تنقص هذه الاخيرة تلقائيا من المخزون مع حفظ الفاتورة في شيت خاص بالفواتير وكذا عند ادراج المواد يأتي بها من جدول المخزون وان امكن ترسلها في ملف عبر الايميل بارك الله فيك أخي الكريم ❤
شكراً جزيلاً استاذي الكريم ظهرت معي مشكلة بعد كتابة الكود والضغط على الزر لترحيل البيانات وهي أنه أظهر لي رسالة الرقم 400 وجانبها إشارة إكس بالأحمر وبعد الضغط على موافق والنقر مرة أخرة على الزر يعطيني خطأ التعجب Object required ومعناه ان (الكائن مطلوب) ولكن دققت جيداً في الكود ولم يكن هناك خطأ فيه أي كما شرحت حضرتك... ما الحل هنا في هذه الحال ؟ وعندي سؤال آخر وهو هل يمكن كتابة كود نستطيع من خلاله جمع الأرقام المرحلة من الفاتورة تلقائيا مع الأرقام المرحلة قبلها في صفحة المبيعات كل صنف لوحده...؟؟
السلام عليكم استاذي انا علي من اليمن ومحتاج مساعدتك لو سمحت.. عملت ملف اكسل للموظفين يحسب عدد ايام الغياب والحضور للموظفين في الشهر عملت اربع صفحات في ورقة العمل اكسل كل ادارة ملف بموظفيها بمعنى كل ادارة فيها مثلاً 15 موظف وعدد الغياب والحضور اشتغلت حوالي 3 شهور والعمل كان زي الفل.. بعدين طلبوا مني اصمم خانة بحث بأسم الموظف وويطلع لي اجمالي الغياب والحضور لكل شهر بمعنى بيانات الموظف ومدى التزامة يعني المطلوب: تصميم خانة بحث تجمع لي بيانات الموظف لعدة شهور من اكثر من ملف واكثر من صفحة استاذي لو ممكن تساعدني أو تدلني على فيديو اكون شاكر لك.
Sub Button2_Click() Dim r As Integer Dim xnewr As Integer For r = 15 To 34 If IsEmpty(Cells(r, 2)) Then Exit Sub xnewr = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1 Sheet2.Cells(xnewr, 1) = Cells(4, 3) Sheet2.Cells(xnewr, 2) = Cells(9, 4) Sheet2.Cells(xnewr, 3) = Cells(r, 2) Sheet2.Cells(xnewr, 4) = Cells(r, 6) Sheet2.Cells(xnewr, 5) = Cells(r, 7) Sheet2.Cells(xnewr, 6) = Cells(r, 8) Cells(r, 2) = "" Cells(r, 6) = "" Cells(r, 7) = "" Next End Sub
@@ahmedsaad7069 Sub Button2_Click() Dim r As Integer Dim xnewr As Integer For r = 15 To 34 If IsEmpty(Cells(r, 2)) Then Exit Sub xnewr = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1 Sheet2.Cells(xnewr, 1) = Cells(4, 3) Sheet2.Cells(xnewr, 2) = Cells(9, 4) Sheet2.Cells(xnewr, 3) = Cells(r, 2) Sheet2.Cells(xnewr, 4) = Cells(r, 6) Sheet2.Cells(xnewr, 5) = Cells(r, 7) Sheet2.Cells(xnewr, 6) = Cells(r, 8) Cells(r, 2) = "" Cells(r, 6) = "" Cells(r, 7) = "" Next End Sub
ممكن حضرتك تطبق ازاي استرجع الفاتورة زي اللي حضرتك عاملها دي في الفديو ازاي استعلم عن فاتورة برقم الفاتورة والتعديل عليها وترحيل البيانات مرة اخري بعد التعديل
بسم الله الرحمن الرحيم, وبه نستعين:
th-cam.com/video/J8PYDIt0jnA/w-d-xo.html
بناءً على طلب بعض المتابعين تم عمل الدرس التالي الذي نشرح من خلاله طريقة ترحيل البيانات من نموذج الفاتورة الذي أنشأناه في الدرس التالي:
th-cam.com/video/LLKCUq_l03A/w-d-xo.html
إلى جدول خاص بعرض بيانات جميع الفواتير.
نرجوا لكم الفائدة ولطلبات الشروحات تفضلوا بمراسلتنا عبر الوسائل المتاحة.
#اشتراك:
goo.gl/VVhQSB
#واتساب:
chat.whatsapp.com/FBeoqi2iezmFg85b8sBP0E
#تيليغرام:
t.me/MasaqatOnline
#تويتر:
twitter.com/MasaqatOnline
#انستغرام:
@masaqat.online
ممكن حضرتك تطبق ازاي استرجع الفاتورة زي اللي حضرتك عاملها دي في الفديو ازاي استعلم عن فاتورة برقم الفاتورة والتعديل عليها وترحيل البيانات مرة اخري بعد التعديل
Really fantastic, couldn't find easier easier, thank you
افضل شرح استاذي العزيز ...بعد بحثي المضني لم أجد من يشرح هذه الطريقة بالبساطة دي ... اشكرك جدا
الحمدلله هذا فضل من الله, وفقك الله
ممتاز جدا بالتوفيق
عندي فكره لو تعمل استدعاء بيانات فاتورة في نفس النموذج يبقي الشغل مكتمل ان شاء الله
يعني نعمل خليه نكتب فيها رقم الفاتورة ونضغط زر استدعاء عن طريق كود يستدعي بيانات فاتورة المطلوبه امامنا دون عناء
شكرا لحضرتك فديو رائع واستفاديت منه كثير ربي يوفقك
بارك الله بكم
جزاك الله خيرا , شرح واف
اكثر من رائع اخي الكريم , تحياتي
شكرا شكرا شكرا هذا الفديو فادني كثيرا
ارجو لك التوفيق
كل الشكر استاذنا العزيز ما شاء الله
قمت بتطبيق تعليماتكم على مثال عملي و كانت النتائج بعد التعديلات رائعة
أتمنى لو تكرمتم باكمال النموذج ليكون فيه زر بحث حسب اسم المادة و حسب رقم الفاتورة و زر تعديل و اخر حذف
شكرا لكم
و تحية لكل اهل حلب الاكارم
عملت زر البحث 🔍
@@عليالعرداوي-ض5ك ممكن تقولنا و تفيدنا إزاي ؟
بجد الف شكر لحضرتك لاستجابتك السريعة لطلبي وربنا يبارك في حضرتك
الشكر لله، دمت بخير
بدنا درس كيفية تصميم يوزرفوم من خلاله أملآ بيانات الفاتورة و بعديها للجدول مباشرة ... مشكور على هذا الدرس الاكثر من رائع استاذ
ان شاء الله
جزاك الله خيرا الله يكتب اجرك إلى مزيد من التطور والتميز ان شاء الله ❤❤❤
بارك الله بك وأرجو لك التوفيق
الله ينور بجد الف شكر
سلام عليكم من الجزاىر ممكن اصافة زر البحث في نفس فورم الفاتورة محاتجه في عملي لان عملك افادني في مهامي
حسب البحث المطلوب ولكن كل شيء يمكن ان شاء الله
شكرا لك
جزاك الله خير
الشكر لله عز وجل , بالتوفيق
رائع استاذ تماما ما كنت ابحث عنه كودات بسيطة لم اكن استعملها رغم فعاليتها الرائعة. فقط سؤال اذا كنت من نفس شيت الأدخال اغير من فاتورة مبيعات الى فاتورة مشتريات باكواد معينه فكيف يمكن عدم الترحيل الى شيت الفواتير عندما يكون الأختيار فاتورة مشتريات. ولك الشكر الجزيل.
تختبر شرط بدلالة الخلية المكتوب فيها نوع الفاتورة فينتج عن ذلك ما تريد
الف شكر الله يوفقك ويرزقك
عمل ممتاز وشرح رائع
سلام عليكم
استاذ العزيز ممكن الرد على سوالي
في حالة تم اضافة اكثر من 34 صف في شيت جدول الفواتير فانه لان يقوم باضافة قيد جديد وانما يعمل اوفر رايت
طب محتاجين نعدل على الفاتورة بحيث نكتب رقمها يتم استدعاء بيانتها للتعديل
التقديرات والمطلوبات كثيرة ومتعددة بحسب الاحتمالات لذا ان شاء الله نفرد لها دروساً لاحقاً
في مشكلة .. بعد ما كتبت كود تفريغ رقم الفاتورة . لو كاتب مثلا 3 مواد او اصناف في الشيتة المرحلة فيها البيانات بينزل رقم الفاتورة مرة واحدة وليس 3 مرات . وشكرا علي مجهودك
التعامل مع الأكواد دائماً فيه مشاكل فيما يخص التطبيق لذلك عليك بالمحاولة المتكررة حتى يشتغل الكود, لكن بالنسبة لهذه المسألة أعتقد أنك عامل إسناد رقم الفاتورة خارج الحلقة تأكد من ذلك
بالفعل نفس المشكله يتم ترحيل الرقم لاول سطر فقط
جزاك الله خير
والله استفدت كثيييييييير
بس ممكن طريقه كيف استرجع البيانات ثم اعدل عليها وارحلها من جديد
محتاجه ضرووووري والله
لو سمحت ممكن نفس الشيت بس بالترحيل لاكثر من خلية . عن طريق قائمة منسدلة
سنقوم بعمله
ماشاء الله بس لي سوال كيف تم وضع If في سطر واحد بدون انهاء الجمله End If
لقيت مصدر الفيديو و نزلت الاكواد و اشتغلت
فى شغله حضرتك مو مسويها بس بالفيديو الاخر موضحها
شكرا لمجهودك
السلام عليكم كيف نزلتهم الاكواد
@@رمضانالعمومي-د6م من المصدر الاساسي للفيديو
صاحب الفيديو الاصلى
عندي مشكله عند مسح رقم الفاتوره يقوم بادخال رقم الفاتوره فى اول بيان فقط وباقي الاصناف ترحل بدون رقم الفاتوره ... كيف اجعل الكود يحذف رقم الفاتوره بعد ادخالها في كافه الاصناف؟
سلام عليكم.. أولا اشكرك على العمل الممتاز و لقد افادني كثيرا في عمل تقرير يومي في المدرسة..
المشكل الوحيد أنني لم أستطع ترحيل نطاقين مختلفين ..
السلام عليكم من فضلك لو عاوزة ارحل صفوف ملاحظات بكتيها في الفاتورة مثلا من b15الي d15 و من b16 الي d16لفاتورة معينة عاوزة ارحل الصفوف دي لرقم الفاتورة دي وبعد كدة افرغة علشان اكتب فية لفاتورة اخري
ردي متأخر, لكن أوضحي لي أكثر لو سمحتي
بارك الله فيك وجزاك خير
وفي حالة الإستدعاء كيف العمل
لاحقا ممكن عملها
اشكرك للكود انا كنت محتاجه بس في ملاحظات ناقصاني عاوز اعمل رقم فاتورة يزيد تلقائي بعد عملية الترحيل لما بعمل كده مش بتضيف
وهل في كود بدون مايكرو بالطريقة العادية
جزيت خيرا
السلام عليكم ممكن مساعدة لو سمحت وبشكرك على المجهود الرائع
🙂🙂
تفضل بمراسلتي عبر الواتساب
طيب بدي كود بقدر مجرد ما حط باركود يجبلي اسم امنتاج وسعر ممكن تفيدني
لو سمحت استاذنا ممكن استدعاء الفاتورة والتعديل عليها والحذف لو تكرمت وجزاك الله خيرا
نعم ممكن
رقم الفاتورة ما يتكرر عندي
مثلا
15
15
15
يرحل ويعمل لي تسلسل ،
15
16
17
ايش الحل ي استاذنا القدير
يجب أن تأخذ القيمة من حقل الرقم, كيف له أن يكرره أوضح لو سمحت
@@MasaqatOnline
بلله عليك ي استاذي العزيز
لو اريد كود حذف الصفوف بيانات الاصناف بدل كود مسح البيانات كيف بيكون الكود
جزاك الله خير انا كنت محتاج نموذج ده جدا .. بس هل في طريقة يرحل البيانات من يوزر فورم بنفس الطريقة
نعم يوجد وتحتاج لشرح
اشكرلك قبل كل شيء. كتبت نفس الكود بكل التفاصيل ولكن معلومات اسم الشركة ورقم الفاتورة يرحل مرة واحدة في اول سطر الى sheet المرحل اليها؟؟ هل هناك اي خطأ ممكن ان اكون كتبته وما هو.. أرجوك اتمنى منك الحل، والف الف شكرز
أرسل لي الملف لو سمحت
تسلم ايدك
ماذا لو كان عندي أكثر من 20 صف في نموذج الفاتورة أستاذ ؟ 30 مثلا ؟ هل انتقل لصفحة ثانية مثلا ؟
فقط عدل الملف ليستوعب الصفوف الجديدة
بعد الترحيل احتاج بعض الاوامر
استاذنا العزيز الاوامر اللي بعد كلمة next لا تعمل ايش ممكن يكون السبب
أية أوامر بالضبط
جيد
بارك الله فيك أخي
بارك الله فيكم
عندى سؤال
هل فى الإمكان استدعاء الفاتورة
يعنى لما اكتب رقم الفاتورة تظهر كل البيانات المسجلة من قبل
نعم ( حفظ واستدعاء وتعديل وحذف) الفاتوره انا عملت هذه الاكواد كلها على الفاتوره
السلام عليكم ورحمة الله وبركاته،،
بارك الله فيك أخي العزيز على الشرح..
بس كيف طريقة عمل رقم الفاتورة يكون ترقيم تلقائي بناءاً علي اخر رقم فاتورة تم ترحيلها؟.
sheet1.range("a1").value=sheet1.range("a1").value+1
غير الشيت و مكان ال خانة و هيتم ترقيمها تلقائيا
طيب باقي مجموع الفاتورة هاي كيف ممكن نضيفه واين ممكن نضعه
جزاك الله خيرا . عندي انشغال لو سمحتم هو عندما نقوم بإفراغ رقم الفاتورة مع البيانات الأخرى عند الترحيل لا يتكرر رقم الفاتورة مع البيانات في جدول الفواتير و شكرا
نفس مشكل
نفس المشكله برجاء الافاده
هل ممكن ان نجعل رقم الفاتورة يتغير تلقائيا بع الضغط علي الترحيل (يتم زيادتها ١ عن رقم الفاتورة السابقة)
Range("a5").Value = Range("a5").Value + 1
ضيف هذا الامر فى المعادلة وغير خانة رقم الفاتورة كما هي عندك انا كاتب A5 انت سجل كما هي عندك
نعم
زر الترحيل لايعمل ممكن بعد اذن حضرتك أعرف إيه المشكلة
ان كنت تقصد الملف المرفق, فقد أحدثت خطأ عند حفظ الملف , لم أحفظه مع وحدة الماكرو
@@MasaqatOnline تمام حضرتك طيب الحل هيكون ايه حضرتك وجزاك الله خير الجزاء على المجهود الرائع دا
@@حمادهالبنا-ظ3ت آسف أن أقول أن الحل هو إعادة كتابة الكود من جديد لذا قم بكتابته وحفظ الملف xlm
@@MasaqatOnline طيب حضرتك لو مسحت الملف ونزلته تاني هيشتغل عادي ولا مش هينفع وبعتذر للإزعاج
مشكور والله
والله شرحك يملل.
صح
من متابعينك عاليوتيوب وكنت عايز كود ترحيل البيانات من فاتوره الي سجل مش بيشتغل معايا ، ممكن تساعدني وتقولي ايه الخطأ لو مش هضايق حضرتك
اهلا بك اخي
راسلني بالملف على الواتساب
بعت لحضرتك
السلام عليكم اريد الأكواد كيف يمكنني ان احصل عليها
ممكن بعد ازنك تبعت او تنزل تحميل لي الملف ده عشان حاولت كتير جدا اعملها ومش عايزه بردو الترحيل يتنفذ خالص حاولت كتير جدا ممكن تنزل الملف ده عشان اخدوا واعدل عليه انا وشكرا
وهل ممكن حضرتك تضفني في الجروب
للأسف الملف لم يتم حفظه تم فقدانه
chat.whatsapp.com/GgGNfr7GRVeKyFxrUbqjmL
ممكن شرح اعادة بيانات الفاتورة والتعديل عليها
ممكن نحتفظ بنسخة من الفواتير المرحلة لنعود لها لاحقا مربوطة مع جدول الفواتير
الأفضل في هذه الحالة الاعتماد على قواعد بيانات أكسس.
كيف التواصل
00905349208579
تحية طيبة الأستاذ الكريم
عندي ملف إكسل حجمه 12 ميغا فجأة أصبح ثقيلاً ويعرض الرسال الآتية عند كل حفظ أو تغيير أو حتى تنقل بين الخلايا:
يتم الآن حساب: (4 معالج(معالجات))
ما الحل لمعالجة ثقل الملف في هذه الحالة ؟
شو منشان التاريخ يلي هو اهم شي ؟؟
مكتمل عدا تسلسل الفاتورة المفترض الي
السلام عليكم ورحمة الله وبركاته
كيفية ترحيل الخصم النقدى بدون تكرار
مشيت عالخطوات بس مابيرحل معى
ما المشكلة التي يظهرها بالضبط؟
ما بيتم الترحيل
و بيعطينى لون اصفر على اول سطر
sub button
@@yasserwayaa7424 راسلني واتساب
تسلم يارب
بس ماعندى رقمك وين موجود
@@yasserwayaa7424 انا شغال علي الخطوات حاليا وبيعطيني نفس المشكلة اللي واجهت حضرتك
لو امكن تقولي ايه الحل بتاعها
السلام عليكم
عندي مخزون فقرتين وكل فقرة بها مجموعة مواد أريد نفس هذا البرنامج مع ترحيل البيانات حيث
يحتوي على نموذج فاتورة في شيت والمخزون في شيت اخرى
حيث عند طباعة أوترحيل الفاتورة والتي بها مجموعة مواد تنقص هذه الاخيرة تلقائيا من المخزون مع حفظ الفاتورة في شيت خاص بالفواتير وكذا عند ادراج المواد يأتي بها من جدول المخزون وان امكن ترسلها في ملف عبر الايميل بارك الله فيك أخي الكريم ❤
عليكم السلام
لا يوجد لدي هذا الملف كما تريده, لكن يمكن عمله بأكثر من تقنية , يمكنك مراسلتي عبر الواتساب:
wa.me/message/FJRZ7QXDZEX6N1
شرح اكثر من رائع ومجهود جميل اتمنى تشترك بقناتى ونتبادل المعلومات فى الاكسل خاصه والاوفيس بشكل عام
excel to xml please
شكراً جزيلاً استاذي الكريم
ظهرت معي مشكلة بعد كتابة الكود والضغط على الزر لترحيل البيانات وهي أنه أظهر لي رسالة الرقم 400 وجانبها إشارة إكس بالأحمر وبعد الضغط على موافق والنقر مرة أخرة على الزر يعطيني خطأ التعجب Object required ومعناه ان (الكائن مطلوب) ولكن دققت جيداً في الكود ولم يكن هناك خطأ فيه أي كما شرحت حضرتك...
ما الحل هنا في هذه الحال ؟
وعندي سؤال آخر وهو هل يمكن كتابة كود نستطيع من خلاله جمع الأرقام المرحلة من الفاتورة تلقائيا مع الأرقام المرحلة قبلها في صفحة المبيعات كل صنف لوحده...؟؟
راسلني واتساب
00905541747748
السلام عليكم استاذي
انا علي من اليمن ومحتاج مساعدتك لو سمحت..
عملت ملف اكسل للموظفين يحسب عدد ايام الغياب والحضور للموظفين في الشهر
عملت اربع صفحات في ورقة العمل اكسل
كل ادارة ملف بموظفيها
بمعنى كل ادارة فيها مثلاً 15 موظف وعدد الغياب والحضور
اشتغلت حوالي 3 شهور والعمل كان زي الفل..
بعدين طلبوا مني اصمم خانة بحث بأسم الموظف وويطلع لي اجمالي الغياب والحضور لكل شهر
بمعنى بيانات الموظف ومدى التزامة
يعني المطلوب:
تصميم خانة بحث تجمع لي بيانات الموظف لعدة شهور من اكثر من ملف واكثر من صفحة
استاذي لو ممكن تساعدني أو تدلني على فيديو اكون شاكر لك.
غير مجدي .. والرابط لا يعمل
رقم الواتس لايعمل هل علي هذا الرقم واتس من فضلك
00905349208579
ربنا يبارك فيك تم كتابه كود الماكرو لمن اراده هو موجود في الرد على التعليق ده
Sub Button2_Click()
Dim r As Integer
Dim xnewr As Integer
For r = 15 To 34
If IsEmpty(Cells(r, 2)) Then Exit Sub
xnewr = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheet2.Cells(xnewr, 1) = Cells(4, 3)
Sheet2.Cells(xnewr, 2) = Cells(9, 4)
Sheet2.Cells(xnewr, 3) = Cells(r, 2)
Sheet2.Cells(xnewr, 4) = Cells(r, 6)
Sheet2.Cells(xnewr, 5) = Cells(r, 7)
Sheet2.Cells(xnewr, 6) = Cells(r, 8)
Cells(r, 2) = ""
Cells(r, 6) = ""
Cells(r, 7) = ""
Next
End Sub
فين الكود من فضلك و هل يوجد كود لاستعادة الفاتورة
@@ahmedsaad7069
Sub Button2_Click()
Dim r As Integer
Dim xnewr As Integer
For r = 15 To 34
If IsEmpty(Cells(r, 2)) Then Exit Sub
xnewr = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheet2.Cells(xnewr, 1) = Cells(4, 3)
Sheet2.Cells(xnewr, 2) = Cells(9, 4)
Sheet2.Cells(xnewr, 3) = Cells(r, 2)
Sheet2.Cells(xnewr, 4) = Cells(r, 6)
Sheet2.Cells(xnewr, 5) = Cells(r, 7)
Sheet2.Cells(xnewr, 6) = Cells(r, 8)
Cells(r, 2) = ""
Cells(r, 6) = ""
Cells(r, 7) = ""
Next
End Sub
@@CometMisr طيب هل متاح كود لاستراجاع الفاتوره من شيت الاكسيل
@@ahmedsaad7069
للأسف لاء
ممكن حضرتك تطبق ازاي استرجع الفاتورة زي اللي حضرتك عاملها دي في الفديو ازاي استعلم عن فاتورة برقم الفاتورة والتعديل عليها وترحيل البيانات مرة اخري بعد التعديل
نعم سأسجلها عندي ان شاء الله