اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by ياسر خليل أبو البراء,

الردود الموصى بها

ترحيل  فاتورة (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

 

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

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information