رضا-ابو مريم قام بنشر أبريل 24, 2015 مشاركة قام بنشر أبريل 24, 2015 ترحيل فاتورة (SaleForm) 1- ترحيل راس الفاتورة (رقم الفاتورة و التاريخ و العميل الخ)الى شيت SalesInvH 2- ترحيل بيانات الفاتورة (رقم الصنف و اسم الصنف و الكمية و السعر و الاجمالى الخ) الى SalesInvT 3-اخفاء كل الصفوف الفارغة و اظهارها فقط عند الاستخدام و شكرا SalesTax4-4 - Copy.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 24, 2015 مشاركة قام بنشر أبريل 24, 2015 الأخ الفاضل أبو مريم يرجى فيما بعد الاكتفاء بطلب واحد فقط .. كما يرجى مراجعة التوجيهات إليك الكود التالي Sub Tarhil() Dim WS As Worksheet, SH1 As Worksheet, SH2 As Worksheet Dim Rng1 As Range, Rng2 As Range, Rng3 As Range Dim LRSH1 As Long, LRSH2 As Long Set WS = Sheets("SalesForm"): Set SH1 = Sheets("SalesInvH"): Set SH2 = Sheets("SalesInvT") Set Rng1 = WS.Range("B1:B7"): Set Rng2 = WS.Range("E1:E6"): Set Rng3 = WS.Range("G1:G6") LRSH1 = SH1.Cells(Rows.Count, 1).End(xlUp).Row + 1 LRSH2 = SH2.Cells(Rows.Count, 1).End(xlUp).Row + 1 Application.ScreenUpdating = False Rng1.Copy SH1.Range("A" & LRSH1).PasteSpecial xlPasteValues, , , True Rng2.Copy SH1.Range("H" & LRSH1).PasteSpecial xlPasteValues, , , True Rng3.Copy SH1.Range("N" & LRSH1).PasteSpecial xlPasteValues, , , True WS.Range("B11:J11").Copy SH2.Range("G" & LRSH2).PasteSpecial xlPasteValues WS.Range("B1:B5").Copy SH2.Range("B" & LRSH2).PasteSpecial xlPasteValues, , , True SH2.Range("A" & LRSH2).Value = LRSH2 - 1 Application.CutCopyMode = False Application.ScreenUpdating = True End Sub بالنسبة للطلب الثالث غير مفهوم ، لأنك لم توضح ورقة العمل المطلوب العمل عليها .. Sales Tax V5.rar رابط هذا التعليق شارك More sharing options...
رضا-ابو مريم قام بنشر أبريل 25, 2015 الكاتب مشاركة قام بنشر أبريل 25, 2015 الاخ ياسر اعتذر عن الخطاء غير المتعمد بالنسبة للطلب الثالث المطلوب فى نفس ورقة العمل SaleForm اخفاء المدى من (A12:J36) و اظهار صف صف كلما وضعت كود الصنف فى الخلية من A12 :A36 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر أبريل 25, 2015 أفضل إجابة مشاركة قام بنشر أبريل 25, 2015 الأخ الفاضل رضا أبو مريم يرجى فيما بعد عند طرح موضوع أن يكون الموضوع ذو طلب واحد فقط ليسهل المساعدة من قبل الأخوة الأعضاء إليك الملف التالي تم التعديل على الكود ، حيث أنني ظننت أن المرحل صف واحد فقط ..... تم التعديل ليناسب طلبك Sales Tax V5.rar رابط هذا التعليق شارك More sharing options...
رضا-ابو مريم قام بنشر أبريل 25, 2015 الكاتب مشاركة قام بنشر أبريل 25, 2015 الاخ ياسر هل ممكن كود الاستدعاء و التعديل لنفس الفاتورة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 25, 2015 مشاركة قام بنشر أبريل 25, 2015 أخي الفاضل يرجى الإطلاع على موضوع التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 إذا انتهى الطلب يرجى اختيار أفضل إجابة ليظهر الموضوع مجاب إذا كان طلب جديد يرجى طرحه في موضوع مستقل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان