المستر قام بنشر يناير 3, 2021 مشاركة قام بنشر يناير 3, 2021 السلام عليكم كنت محتاج اعمل فاتورة بيع بالاصناف والاكواد والسعر واسم العميل وبعد كتابة الفاتورة يتم الطباعة ويتم تحويلها علي شيت اخر لحفظ الداتا هل ممكن حد يساعدني او لو في شركة بتنفذ ده ياريت تعرفوني محتاج اعمل فاتورة بنفس التفاصيل الي موجودة وبعد كتابة الفاتورة اعملها ترحيل بيانات واضافة فاتورة جديدة مشاركة مكررة ... تـــم بالفعل حذف المشاركة الأخرى فاتورة مستلزمات طبية.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 3, 2021 أفضل إجابة مشاركة قام بنشر يناير 3, 2021 بداية يجب ازالة الخلايا المدمجة من الملف (كي يعمل الكود بشكل صحيح) تمت الازالة الكود Option Explicit Sub Get_data() Dim LrF%, k%, LrB% Dim Arr_Form Dim Arr_to Dim Lr Arr_Form = Array("B3", "B4", "B5", "J3", "I5") Arr_to = Array(5, 6, 7, 8, 9) LrF = Fatura.Cells(Rows.Count, "B").End(3).Row - 3 LrB = Bayan.Cells(Rows.Count, "A").End(3).Row + 1 If Fatura.Cells(9, 3) = vbNullString Then Exit Sub For k = LBound(Arr_Form) To UBound(Arr_Form) Bayan.Cells(LrB, Arr_to(k)).Value = _ Fatura.Range(Arr_Form(k)).Value Next For k = 9 To LrF If Fatura.Cells(k, 3) = vbNullString Then Exit For End If Bayan.Cells(LrB, 1).Resize(, 4).Value = _ Fatura.Cells(k, 1).Resize(, 4).Value LrB = LrB + 1 Next End Sub Wael.xlsm 2 رابط هذا التعليق شارك More sharing options...
المستر قام بنشر يناير 7, 2021 الكاتب مشاركة قام بنشر يناير 7, 2021 شكرا اخي سليم حاصبيا علي مساعدتك ومجهودك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان