Ahmed Saad 2017

@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

هل هناك طريقة للتشغيل علي نسخه 64

البرنامج به مشكلة عند التشغيل

السلام عليكم احبائى الأفاضل ..هل في معادلة او كود لمعرفة اكبر عشرة اصناف مبيعا في شيت مبيعات اصناف برجاء الافادة من الاخوة ؟

انا بشكر حضرتك جزيلا يا استاذ عمر جزاك الله خيرا

@omar elhosseiniلا اريد حذف البيانات المرحله من الخزينة يا استاذ عمر أريد الآني انه في حالة الفلترة علي حساب جاري التامينات الاجتماعية و جاري مصلحة الضرائب و مصروفات مستحقة و مصروفات مقدمة و صدقات مستحقة يتم ترحيلهم في صفحات منفصله وانا كنت بلغت حضرتك ان الحسابات دي بتترحل كلها في صفحه واحده مع بعض اسمها صفحة الالتزامات كما موضح بالجدول المطابق اللي بعته لحضرتك ممكن حضرتك تبعتلنا مثال علي الشيت في تصحيح الخطأ المحاسبي

الخطا بيحصل لما بحتاج اعمل تعديل

اقصد يا استاذ عمر ان بيانات شيت الخزينة كانت في Tables و بعد عملية الترحيل اصبحت Range @omar elhosseiniوبخصوص الجزء ده انا محتاج الحسابات دي ترحل في صفحه واحده اسمها الالتزامات كما وضحت لحضرتك من قبل بالفعل لغيت الكود ده واتحلت المشكلة هل في اي غلط في الغائه ؟ 'Sub Convert_Tables_To_Range() '' 'Dim xSheet As Worksheet 'Dim xList As ListObject 'Set xSheet = ActiveWorkbook.ActiveSheet 'For Each xList In xSheet.ListObjects ' xList.Unlist 'Next 'End Sub

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