Ahmed Saad 2017

السلام عليكم ورحمة الله وبركاته تم الانتهاء بمساعدة الاخ الفاضل @Mohamed Hicham من عمل اكواد ترحيل و استدعاء و طباعة الفواتير وتم تصميم يوزر فورم لادخال بيانات الفاتوره دون الدخول علي الاكسيل وصفحة الفواتير برجاء المساعدة في تفعيل اكود اليوزر فورم وتم شرح كل زرار و وظيفته في اليوزر في Control tip text وشكرا لسيادتكم فاتورة_Mh3 - (3) user form.xlsm

شكرا لحضرتك هجرب غدا ان شاء الله تعالى كده بتبقي لنا عمل يوزر فورم لادخال البيانات الخاصه بالفاتوره وانا عامل يوزر فورم الاصناف و ادخلها بتبقي باقي البيانات

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

@Mohamed Hicham بشكرك جزيلا علي مجهودك و انا اللي بتأسف لحضرتك علي تعبك و وقتك الثمين انا إن شاء الله تعالى هجرب الكود بكره إن شاء الله و اراجع حضرتك بعد التجربه

تمام اقصد انه عند ترحيل الفاتوره يتم ترحيلها في صفحتين 1- صفحة اليوميات -------- قد تم عمل الكود 2 - صفحة طباعة الفواتير ----------- اريد ان ترحل الفواتير تحت بعضها بدون فراغات ومثل الشيت المرسل

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

السلام عليكم ورحمة الله و بركاته تم الانتهاء من عمل كود ترحيل و استدعاء فاتورة بمساعدة و مجهود الاستاذ محمد هشام @Mohamed Hichamمطلوب عمل كود ترحيل بيانات محددة من الفاتوره الي طباعة الفاتوره باللوجو الشركة مرسل مثال بالفعل لفاتوره 1 و فاتوره 2 في شيت الفواتير المطبوعة فاتورة_MH.xlsm

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

@Mohamed Hicham انا جربت لاقيت انه بيتم ترحيل الفاتوره كل ما اضغط علي الترحيل يعني لو استدعيت الفاتوره رقم 1 او 2 هتستدعي بكل بيامتها و لو دوست ترحيل مره اخري هيتم ترحيلها مكرره بالرغم من ترحيلها اما بالنسبة لل طباعة انا عملت شيت و عملت مثال للمطلوب عند الضغذ علي الترحيل يتم عمل ملخص بالفاتوره باللوجو لطباعتها و لصقها علي الشحنه كما المثال المرسل وبشكرك مره أخري علي تعاونك و مجهودك بارك الله فيك أخي الكريم الغالي ❤️

@Mohamed Hicham اولا بشكرك جزيلا علي مجهودك وتعبك معايا ثانيا تم تجربة كود الاستدعاء يعمل بشكل رائع ثالثا كود الترحيل عند ضغط علي ترحيل الفاتوره يتم ترحيلها حتي لو تم ترحيلها مسبقا مما يودي الي تكرار الفواتير المرحله برجاء وضع شرط الترحيل في حالة وجود رقم الفاتوره في شيت اليومية العامه يظهر رساله بانه تم ترحيل هذه الفاتوره مسبقا هل تريد استدعائها ثالثا تم اضافة شيت طباعة استيكر ملخص بي بيانات الشحنة و تم عمل شكل تجريبي بالمطلوب فاتورة_MH.xlsm

السلام عليكم ورحمة الله اعضاء الجروب انا بعمل شيت مبيعات بيه فاتورة و يوميات مجمعه و ملصق ملخص بالفاتورة وكنت عامل كود ترحيل بمساعدة من استاذ محمد هشام و تم ادراج كود استدعاء فواتير ولكن به بعض المشاكل في استدعاء البيانات في الاعمدة الصحيحه برجاء المساعدة في تعديل الكود وشكرا مقدما للجميع officena 1.xlsm

@ضاحي الغريب ازاي نقدر نستفيد بالقالب ونحط داتا و بيانات حاولت اعمل امر شراء ولكن لم يتم الترحيل

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

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

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

السلام عليكم وبها نبدأ اي موضوع السادة الاعضاء المحترمين تحية طيبة وبعد برجاء المساعدة في تعديل كود ترحيل( للاستاذ محمد الريفى) و استدعاء بيانت الفواتير حيث تم تعديل البيانات الاصلية للفاتورة و اضافة بعد البنود مثل بيانات العميل و شركات الشحن وكمية الصنف وحاولت ان افهم الكود الاصلي لتعديله ولكن للاسف لم استطيع المطلوب تعديل الكود لترحيل بيانات الفاتورة الي شيت اليوميات العامة و عند استدعء رقم الفاتورة يتم استدعاء جميع البيانات في نفس المكان المخصص لها وشكرا جزيلا مقدما officena 1.xlsm

تمام هجرب إن شاء الله تعالى بكره و بشكرك حضرتك جزيل الشكر علي مجهودك جزاك الله خيرا

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

تم تعديل الملف وارساله مره اخري اشكرك جزيلا test (2).xlsm

استاذ ضاحي بشكرك جزيلا علي المساعدة انا بعت الشيت لحضرتك و بدلت السطر بس الرسالة بتظهر و لما بكتب العدد في التيكست بوكس 3 ودوس علي الصنف تاني للترحيل في الفاتورة مش بيرحل وياريت حضرتك تقولي ليه السطر الخاص بكود ضرب عمود الكمية في السعر مش بيسمع وشكرا جزيلا وهذه هى المعادلة CONCATENATE(D7," - ",D6," - ",TEXT(D5,"dd-mm-yyyy")) بعتذر لحضرتك تم الارسال test (2).xlsm

السلام عليكم وبها نبدأ اي موضوع برجاء التعديل علي كود ترحيل بيانات من لست بوكس الي شيت اكسيل حيث اريد انه عندما لا يوجد كمية في Text box 3 ان لا يقوم بالترحيل وان تظهر رسالة بادخال الكمية حيث تم التعديل وتظهر الرسالة ولكن يتم تنفيذ الامر برجاء الافادة الكود Private Sub ListBox1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual LR = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1 For YYY = 0 To ListBox1.ListCount If ListBox1.Selected(YYY) = True Then TextBox3.Enabled = True Range("C" & LR).Value = ListBox1.List(YYY, 0) Range("B" & LR).Value = ListBox1.List(YYY, 1) Range("D" & LR).Value = ListBox1.List(YYY, 2) Range("E" & LR).Value = ListBox1.List(YYY, 3) Range("A" & LR).Value = ListBox1.List(YYY, 4) Range("F" & LR).Value = TextBox3.Value If TextBox3 <> "0" Then MsgBox " please insert a count ": Exit Sub Range("G" & LR).Value = Cells(9, 7).Formula = "=(E9 * F9)" ListBox1.Visible = True TextBox1 = "" TextBox2 = "" TextBox3 = "" 'Cells(9, 7).Formula = "=(E9 * F9)" 'Range("G9:G200").FillDown 'Exit Sub End If Next YYY Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic end sub تم وضع الكود بطريقه صحيحه لتسهل قراءته

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

السادة الاعضاء تحية طيبة وبعد تم عمل معادلة دمج اكثر من خلية لتوليد كود للفاتورة و لم يتم الدمج بالفورمات للتاريخ مثل ما هو واضح بالمثال المرسل برجاء الافادة بالحل او بكود لعمل الدمج وشكرا لسيادتكم test.xlsx

للرفع

السلام عليكم ورحمة الله برجاء الافادة في تعديل هذا الكود لعرض عدد اعمده اكثر من الموجود بالكود حيث يتم عرض من عمود I حتي العمود L فقط ..المطلوب فتح مساحة العرض في الفورم حتي العمود O انتبه من فضلك .. مشاركة مكررة .. فقد تـــم بالفعل حذف المشاركة الأخرى Private Sub kh_Startdle2() Dim i As Integer, ii As Integer, e As Integer With dlRng For i = 1 To .Rows.Count If IsNumeric(.Cells(i, 1)) Then ii = ii + 1 e = IIf(Len(.Cells(i, 2)), 2, IIf(Len(.Cells(i, 4)), 4, IIf(Len(.Cells(i, 6)), 6, 8))) ReDim Preserve cAry(1 To ii) cAry(ii) = i & " " & e End If Next End With If ii Then kh_SContl 0 End Sub نموذج للدليل المحاسبي 4 مستويات.xlsm