تعديل كود ترحيل

[Ahmed Saad 2017]

السلام عليكم وبها نبدأ اي موضوع 

السادة الاعضاء المحترمين

تحية طيبة وبعد

برجاء المساعدة في تعديل كود ترحيل( للاستاذ محمد الريفى) و استدعاء بيانت الفواتير حيث تم تعديل البيانات الاصلية للفاتورة و اضافة بعد البنود مثل بيانات العميل و شركات الشحن وكمية الصنف وحاولت ان افهم الكود الاصلي لتعديله ولكن للاسف لم استطيع 

المطلوب تعديل الكود لترحيل بيانات الفاتورة الي شيت اليوميات العامة و عند استدعء رقم الفاتورة يتم استدعاء جميع البيانات في نفس المكان المخصص لها وشكرا جزيلا مقدما

 

officena 1.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

اخي لاحظت ان  كثير من القيم  تتكرر بعدد الصفوف المرحلة وقد بدات انت   فعلا في انشاء عواميد اضافية  لها   هل سيتم الترحيل من العواميد او نسخ قيمة الخلية بعدد الصفوف دون انشاء العواميد

 

[Ahmed Saad 2017]

تم تعديل الملف واضافة يوزر فورم ادخال اصناف

 

officena 2.xlsm

 

اخي العزيز انا مش واضح بالنسبالي سؤال حضرتك 

انا بحاول اطور في الشيت الاصلي اني اعمل فاتورة مبيعات بيها بيانات العميل و بيانات الفاتورة و شركة الشحن و اصناف الفاتورة و بعد كده ارحلها في يومية عامة علشان اعمل تقارير عن الفواتير و المبيعات و العملاء 

وبعد كده اطبع استيكر بي البيانات الخاصة بالفاتورة علشان تلصق علي الشحنة بيها جميع البيانات مثل شيت " الفواتير المطبوعة" و بها صورة البراند ودي قابلني فيها صعوبة اني اظبطها 

فلو حضرتك ليك فكرة افضل يبقي ليك مني كل التحية 

 

تم تعديل نوفمبر 22, 2022 بواسطه Ahmed Saad 2017
تعديل الشيت

[محمد هشام.]

ان شاء الله نمشي خطوة خطوة حتى تكمل المطلوب نبدا أولا بالترحيل ثم الاستدعاء

2-(ماهو معيار البحث) بمعنى سوف يتم استدعاء البيانات برقم الفاتورة او الكود او......

3- وعند الانتهاء نقوم بتصميم الفاتورة للطباعة 

وبالنسبة للفورم المضاف لم تذكر دوره في الملف المرفق 

 

Sub Tarhil()

  Dim DL1%, DL2%, DL3%, MH%
   Application.ScreenUpdating = False
    DL1 = Range("B65500").End(xlUp).Row - 1
    With Sheets("اليومية العامه")
        DL2 = .Range("B65500").End(xlUp).Row + 1
        DL3 = .Range("R65500").End(xlUp).Row + 1
        MH = DL2 + DL1 - 9
        .Range("F" & DL2 & ":K" & MH) = Range("B9:G" & DL1).Value

        .Range("B" & DL2 & ":B" & MH) = Range("D3")         'التاريخ
        .Range("C" & DL2 & ":C" & MH) = Range("D4")          'اسم الشركة
        .Range("D" & DL2 & ":D" & MH) = Range("D5")         'رقم الفاتورة
        .Range("E" & DL2 & ":E" & MH) = Range("D6")         'كود الفاتورة
        .Range("L" & DL2 & ":L" & MH) = Range("B3")          'اسم العميل
        .Range("M" & DL2 & ":M" & MH) = Range("B4")          'التيلفون'
        .Range("N" & DL2 & ":N" & MH) = Range("B5")           'العنوان
        .Range("O" & DL2 & ":O" & MH) = Range("B6")           'المحافظة
        .Range("P" & DL2 & ":P" & MH) = Range("F3")          'شركة الشحن
        .Range("Q" & DL2 & ":Q" & MH) = Range("F4")          'اسم المندوب
        .Range("R" & DL2 & ":R" & MH) = Range("F5")          'رقم التيلفون
        .Range("S" & DL3) = Range("F6")                      'خدمة التوصيل
         
        
    End With
     Application.ScreenUpdating = True
 End Sub

 

 

officena 1.xlsm

[Ahmed Saad 2017]

بشكرك اخي العزيز علي مجهودك بارك الله فيك مقدما واتمني بالفعل نكمل المطلوب مع بعض لإنه هيفيد جزء كبير من زملائنا علي الجروب 

معيار البحث هو رقم الفاتوره 

ثانيا دور اليوزر فورم هو البحث عن اسم الصنف و إظهاره في اليست بوكس ثم إدخال الكمية المباعه ومن بعدها ترحيلها الي الفاتوره بالسعر و الإجمالي 

ثالثا ااكود الذي يوجد بالفعل بالشيت المرسل به ميزه إنه في حالة كتابة رقم الفاتوره و تكون بالفعل قد تم ترحيلها يظهر رسالة بان هذه الفاتوره موجوده بالفعل و يظهر اختيارات بإمكانية استدعائها الي نموزج الفاتورة من اليومية العامه فهل من الممكن إضافتها في الكود الجديد 

[Ahmed Saad 2017]

الاستاذ @Mohamed Hicham المحترم تحية طيبة وبعد

اولا بشكرك جزيلا  علي الكود جميل ومختصر بس محتاج حضرتك تشرحه ليا عشان الاستفادة و التعلم منه لو الواحد حابب يطبقه علي شيتات اخري

ثانيا كده تم الانتهاء من الخطوة الاولي وهي الترحيل 

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