ترحيل فاتورة الى 2 شيت

[رضا-ابو مريم]

ترحيل  فاتورة (SaleForm) 

1- ترحيل راس الفاتورة (رقم الفاتورة و التاريخ و العميل الخ)الى شيت  SalesInvH

2- ترحيل بيانات الفاتورة (رقم الصنف و اسم الصنف و الكمية و السعر و الاجمالى  الخ) الى SalesInvT

3-اخفاء كل الصفوف الفارغة و اظهارها فقط عند الاستخدام 

و شكرا 

SalesTax4-4 - Copy.rar

[ياسر خليل أبو البراء]

الأخ الفاضل أبو مريم

يرجى فيما بعد الاكتفاء بطلب واحد فقط .. كما يرجى مراجعة التوجيهات

إليك الكود التالي

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

[رضا-ابو مريم]

الاخ ياسر اعتذر عن الخطاء غير المتعمد 

بالنسبة للطلب الثالث

المطلوب فى نفس ورقة العمل SaleForm اخفاء المدى من (A12:J36) 

و اظهار صف صف كلما وضعت كود الصنف فى الخلية من A12 :A36

[ياسر خليل أبو البراء]

الأخ الفاضل رضا أبو مريم

يرجى فيما بعد عند طرح موضوع أن يكون الموضوع ذو طلب واحد فقط ليسهل المساعدة من قبل الأخوة الأعضاء

إليك الملف التالي تم التعديل على الكود ، حيث أنني ظننت أن المرحل صف واحد فقط ..... تم التعديل ليناسب طلبك

 

Sales Tax V5.rar

[رضا-ابو مريم]

الاخ ياسر

هل ممكن كود الاستدعاء و التعديل لنفس الفاتورة 

[ياسر خليل أبو البراء]

أخي الفاضل

يرجى الإطلاع على موضوع التوجيهات

http://www.officena.net/ib/index.php?showtopic=60147

 

إذا انتهى الطلب يرجى اختيار أفضل إجابة ليظهر الموضوع مجاب

 

إذا كان طلب جديد يرجى طرحه في موضوع مستقل