حسام كامل

الف مليون مبرووووووك والى الامام دوماً .........

ثانياً المشكلة فى الفورم 2 الفاتورة انى اريد شرح للكود فقط حتى اكون قادر على الفهم وتطبيقه حسب متطلباتى وهذه هى الفائده من المنتدى

شكرا اخى ضاحى وعذراً على عدم التزامى بقواعد المشاركة فى المنتدى

مشكور اخى ضاحى لكن اريد الفورم 2 لا يعمل بشكل صحيح ما المشكله ومشكور على عدم التأخر بالرد

الرجاء المساعده ضرورى فى هذه المشكلة لماذا يوزرفورم 2 لا يعمل بشكل صحيح General Ledger MRF Mar.rar

Private Sub CommandButton1_Click() Call sama121 Z = Cells(Rows.Count, 16).End(xlUp).Row + 1 X = Cells(Rows.Count, 16).End(xlUp).Row + 1 T = 16 For i = 1 To 15 If Me.Controls("textbox" & T) <> "" And Me.Controls("textbox" & T + 1) <> "" Then Cells(X, 16) = Me.Controls("textbox" & T).Value Cells(X, 17) = Me.Controls("textbox" & T + 1).Text Cells(X, 18) = Me.Controls("textbox" & T + 2).Text Cells(X, 19) = Me.Controls("textbox" & T + 3).Text Cells(X, 20) = Me.Controls("textbox" & T + 4).Text Cells(X, 21) = Me.Controls("textbox" & T + 5).Text X = X + 1 End If T = T + 6 Next Y = Cells(Rows.Count, 16).End(xlUp).Row If X > Z Then For T = 1 To 15 Cells(Z, T).Value = Me.Controls("textbox" & T).Text Next If X <> 10 Then Range("a" & Z & ":o" & Y).FillDown End If 'For T = 1 To 105 'Me.Controls("textbox" & T) = "" 'Next 'Hide 'Show '======================= 'ترحيل التكست الموجود بجوار الحساب لصفحة شيت2 Call SAMA '======================= End Sub 12 الخزينة الفرعية.rar 12 الخزينة الفرعية.rar

شكراً اخى الفاضل عل المساعدة

شكراً اخى شوقى ولكن لم تفلح هذه الطريقه او ربما انا لا اجيد استخدامها لو من الممكن عملها وارفاقها بالملف لك جزيل الشكر

اسف على هذا الخطاء Copy of General Ledger MRF Mar..rar

الرجاء المساعده فى ما هى المشكله فى هذا الملف

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