حرود

نعم اخي اطلعت على المشاركة رقم 8 هل تقصد ان نتبقى الكود في الملف

نعم اخي اطلعت على المشاركة رقم 8هل تبقى الكود في الملف

مسعادة في كود ترحيل الفاتورة.zip

بارك الله فيك اخي ياسرعلى النصيحة

السلام عليكم ارجو المساعدة جزاكم الله خير

ارجو تركيب الكود بارك الله فيكم

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

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

سلام عليكم ورحمة الله وبركاته دمتم جميعا احبتي في الله بكل خير وعافية وسعادةلسلام عليكم ورحمة الله وبركاته دمتم جميعا احبتي في الله بكل خير وعافية وسعادة عاوز تعديل هاد الكود ترحيل فاتورة من (2b) حتى (54b) ترحيل في شيت mat Sub AddData() Application.ScreenUpdating = False smsm.Range("d12").Select If smsm.Range("d12").Value = "" Then MsgBox "الرجاء ادخال الاسم قبل عملية الاضافة" Exit Sub End If Dim en As Longen = good.Range("e15000").End(xlUp).Row + 1 good.Cells(en, 4) = smsm.Range("d10").Value good.Cells(en, 5) = smsm.Range("d11").Value good.Cells(en, 6) = smsm.Range("d12").Value good.Cells(en, 7) = smsm.Range("c15").Value good.Cells(en, 8) = smsm.Range("d15").Value good.Cells(en, 9) = smsm.Range("e15").Value good.Cells(en, 10) = smsm.Range("c16").Value good.Cells(en, 11) = smsm.Range("d16").Value good.Cells(en, 12) = smsm.Range("e16").Value good.Cells(en, 13) = smsm.Range("c17").Value good.Cells(en, 14) = smsm.Range("d17").Value good.Cells(en, 15) = smsm.Range("e17").Value good.Cells(en, 16) = smsm.Range("c18").Value good.Cells(en, 17) = smsm.Range("d18").Value good.Cells(en, 18) = smsm.Range("e18").Value good.Cells(en, 19) = smsm.Range("c19").Value good.Cells(en, 20) = smsm.Range("d19").Value good.Cells(en, 21) = smsm.Range("e19").Value good.Cells(en, 22) = smsm.Range("c20").Value good.Cells(en, 23) = smsm.Range("d20").Value good.Cells(en, 24) = smsm.Range("e20").Value good.Cells(en, 25) = smsm.Range("c21").Value good.Cells(en, 26) = smsm.Range("d21").Value good.Cells(en, 27) = smsm.Range("e21").Value good.Cells(en, 28) = smsm.Range("c22").Value good.Cells(en, 29) = smsm.Range("d22").Value good.Cells(en, 30) = smsm.Range("e22").Value good.Cells(en, 31) = smsm.Range("c23").Value good.Cells(en, 32) = smsm.Range("d23").Value good.Cells(en, 33) = smsm.Range("e23").Value good.Cells(en, 34) = smsm.Range("c24").Value good.Cells(en, 35) = smsm.Range("d24").Value good.Cells(en, 36) = smsm.Range("e24").Value good.Cells(en, 37) = smsm.Range("c25").Value good.Cells(en, 38) = smsm.Range("d25").Value good.Cells(en, 39) = smsm.Range("e25").Value good.Cells(en, 40) = smsm.Range("c26").Value good.Cells(en, 41) = smsm.Range("d26").Value good.Cells(en, 42) = smsm.Range("e26").Value good.Cells(en, 43) = smsm.Range("c27").Value good.Cells(en, 44) = smsm.Range("d27").Value good.Cells(en, 45) = smsm.Range("e27").Value good.Cells(en, 46) = smsm.Range("c28").Value good.Cells(en, 47) = smsm.Range("d28").Value good.Cells(en, 48) = smsm.Range("e28").Value good.Cells(en, 49) = smsm.Range("c29").Value good.Cells(en, 50) = smsm.Range("d29").Value good.Cells(en, 51) = smsm.Range("e29").Value good.Cells(en, 52) = smsm.Range("c30").Value good.Cells(en, 53) = smsm.Range("d30").Value good.Cells(en, 54) = smsm.Range("e30").Value good.Cells(en, 55) = smsm.Range("c31").Value good.Cells(en, 56) = smsm.Range("d31").Value good.Cells(en, 57) = smsm.Range("e31").Value good.Cells(en, 58) = smsm.Range("c32").Value good.Cells(en, 59) = smsm.Range("d32").Value good.Cells(en, 60) = smsm.Range("e32").Value good.Cells(en, 61) = smsm.Range("c33").Value good.Cells(en, 62) = smsm.Range("d33").Value good.Cells(en, 63) = smsm.Range("e33").Value good.Cells(en, 64) = smsm.Range("c34").Value good.Cells(en, 65) = smsm.Range("d34").Value good.Cells(en, 66) = smsm.Range("e34").Value good.Cells(en, 66) = smsm.Range("e34").Value good.Cells(en, 3) = smsm.Range("e9").Value smsm.Range("d11:e11,d12:e12,c15:e34").ClearContents good.Range("b8:h1000").Sort Key1:=good.Range("b8"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal smsm.Range("e9") = smsm.Range("e9") + 1 smsm.Range("c11").Select End Sub الفاتورة.zip

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

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

لسلام عليكم ورحمة الله وبركاته دمتم جميعا احبتي في الله بكل خير وعافية وسعادة لدي استفسارين عن الليست بوكس الاول : هل يمكن ترتيب ظهور (4) الاعمدة في الليست بوكس

جزاك الله خيرا الأخ الكريم KHMB اللهم يسر لك أمرك كما جعلك سببًا للتيسير علينا

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

لسلام عليكم ورحمة الله وبركاته بارك الله فيك اخي KHMB على الاهتمام بالموضوع مشكلة لقد كنت في الكود اسم ورقة اقد تما تعديل عليه اخي الجموعي بارك الله فيه الكود الااول كانا Const Cont As Integer = 5 Sub Item() Dim Ary() Dim r As Long, RR As Long, LR As Long Dim c As Integer, cc As Integer Dim txt As String txt = KH_T_SEARSH.TextBox1 KH_T_SEARSH.ListBox1.Clear With æÑÞÉ1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row For r = 2 To LR If InStr(1, .Cells(r, "A"), KH_T_SEARSH.TextBox1, vbTextCompare) = 1 Then RR = RR + 1 ReDim Preserve Ary(1 To Cont, 1 To RR) For c = 1 To Cont cc = Choose(c, 1, 2, 3, 4, 5) Ary(c, RR) = .Cells(r, cc).Value Next End If Next End With If RR Then KH_T_SEARSH.ListBox1.Column = Ary Erase Ary End Sub كود تاني Const Cont As Integer = 5 Sub Item() Dim Ary() Dim r As Long, RR As Long, LR As Long Dim c As Integer, cc As Integer Dim txt As String txt = KH_T_SEARSH.TextBox1 KH_T_SEARSH.ListBox1.Clear With Sheets("codes") LR = .Cells(.Rows.Count, "A").End(xlUp).Row For r = 2 To LR If InStr(1, .Cells(r, "A"), KH_T_SEARSH.TextBox1, vbTextCompare) = 1 Then RR = RR + 1 ReDim Preserve Ary(1 To Cont, 1 To RR) For c = 1 To Cont cc = Choose(c, 1, 2, 3, 4, 5) Ary(c, RR) = .Cells(r, cc).Value Next End If Next End With If RR Then KH_T_SEARSH.ListBox1.Column = Ary Erase Ary End Sub

الملف يعمل بنجاح هل من طريقة تحعل المواشير في عمود الكمية عمود f مباشرا عند اختيار الصنف من الفورم Invoice full.zip

ماإصدارOffice لديك

يوجد لدي ملفات اخرى لااكسيل وتعمل بي شاكل جيد

الوندوز 7 32 بيت

اخي الجموعي لم تنجح معي اخي

أخي الكريم أعتقد المشكل في وينداوز ناقص الملف إبحث عن هذا الملف وأخبرني بالنتيجة Comdlg32.ocx على المسار التالي C:\Windows\System32 اخي الكريم الملف موجد في المسار comdlg32.zip

السلام عليكم ورحمة الله بارك الله فيك وهل الملف يعمل عندكم

السلام عليكم ورحمة الله اخي الجموعي بارك الله فيك لازال كما هوا انا اشتغيل على 2010 Office هل تكون المشكلة اخي في Office

لاعليك اخي KHMB بارك الله فيك

السلام عليكم ورحمة الله اخي KHMB بارك الله فيك على الاهتمام لقد تاكدت من كائنات ال ActiveX ولازال كما هوا