إبراهيم ابوليله

اخى رجب باختصار المشكله تحدث حينما يت تسجيل بعض من صفوفو الفاتوره بمعنى مثلا فى الفاتوره رقم 1 تم تسجيل 8 صفوف فقط وفى الفاتوره رقم2 تم تسجيل15صف وفى الفاتوره رقم3 تم تسجيل4صفوف وفى الفاتوره رقم 4 تم تسجيل15صف وفى الفاتوره 5 تم تسجيل13صف ----------------------------------------------- حينما يتم استدعاء البيانات من اجل الطباعه يحدث الخطأ لان الاستدعاء يحدث كل 15 صف فكيف يتم مواجهه هذا الخطأ بحيث لايظهر الا البيانات الخاصه برقم الفاتوره print invo 3.rar

للرفع

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

اخى الجموعى هل تم عمل المطلوب ام ماذا تريد

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

اخى محمد تسلم على الهديه الجميله دى بارك الله فيك

اخى الكريم هل تقصد الخطا الذى كان يحدث عند فتح الفورم شاهد المرفق نموذج لشهادة مدرسية+طباعة.rar

اخى ابوحنين ما اجمل حينما تكتب بارك الله فيك

اخى رجب لا اريد ان اثقل عليك ولكنى اريد ان اطمئن هل هناك امل فى تحقيق طلبى

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

اخى طارق اخى رجب حلول متنوعه بارك الله فيكم

اخى الجموعى Lr = Cells(Rows.Count, "A").End(xlUp).Row تحديد اخر سطر به بيانات فى العمود الاول If Me.ComboBox1.Value = "" Then: Exit Sub هنا نقول انه لو ان قيمة الكومبوبوكس1 فارغه ليس بها بيانات لا يتم تنفيذ شيئا If Me.ComboBox1.Value = "جدول1" Then هنا نقول ان لو قيمة الكومبوبوكس1 = جدول1 يتم تنفيذ الاتى For r = 1 To 9 Rمتغير تم تعريفه على انه من 1 الى 9 وتم تعريفه بذلك لاننا قمنا بتسميه التيكست بوكس فى البدايه من 1 الى 11 بالتسلسل Sheet1.Cells(Lr + 1, r).Value = Me.Controls("TEXTBOX" & r) Sheet1.Cells(Lr + 1, r).Value-----هنا نقول ان قيمة اخر خليه بها بيانات+1(اى الخليه التى تلى اخر خليه بها بيانات) تساوى Me.Controls("TEXTBOX" & r----قيمة التيكست بوكس من رقم 1 الى رقم 9 (المتغير الذى تم تعريفه سابقا R) Next Next----تقوم بتكرار العمليه السابقه من 1 الى 9 End If هنا يتم انهاء عمل القيد طالما بدئناه ب IF -------------------------------------------------------------------- وهكذا بالنسبه للباقى ------------------------------------------------------------------- LR1 = Cells(Rows.Count, "J").End(xlUp).Row If Me.ComboBox1.Value = "جدول2" Then For rr = 1 To 9 Sheet1.Cells(LR1 + 1, rr).Offset(0, 9) = Me.Controls("TEXTBOX" & rr) Next End If LR2 = Cells(Rows.Count, "S").End(xlUp).Row If Me.ComboBox1.Value = "جدول3" Then For rr = 1 To 9 Sheet1.Cells(LR2 + 1, rr).Offset(0, 18) = Me.Controls("TEXTBOX" & rr) Next End If LR3 = Cells(Rows.Count, "AB").End(xlUp).Row If Me.ComboBox1.Value = "جدول4" Then For rr = 1 To 9 Sheet1.Cells(LR3 + 1, rr).Offset(0, 27) = Me.Controls("TEXTBOX" & rr) Next End If ComboBox1_Change أتمنى ان اكون استطعت توصيل المعلومه فكما قلت سابقا ان اشرح على قدر فهمى

اخى الجموعى هل تقصد هكذا نموذج لشهادة مدرسية+طباعة.rar

اخى سعد عابد كود رائع وجميل ويتسم بالبساطه بارك الله فيك ولكن هل من شرح iif(sheet

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

اخى حماده الزياده فى الخير تدل على الاصرار على توصيل كافة المعلومات الينا بارك الله فيك

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

اخى عادل ارجو مراجعة المشاركه رقم6

اخى الجموعى هل تقصد هكذا نموذج لشهادة مدرسية+طباعة.rar

اخى وليد جرب تغير شكل المعادلة الى الاتى =DATEDIF(DATE(MID(B3,LEN(B3)-12,3),MID(B3,LEN(B3)-10,3),MID(B3,LEN(B3)-8,3)),TODAY(),"y")

اخى عادل وهكذا يكون الشكل النهائى هل هذا ما تريده كشف حساب من شيتين على شكل حرف T.rar

اخى عادل مبدءيا هل تقصد هكذا كشف حساب من شيتين على شكل حرف T.rar

اخى الجموعى هل تقصد هكذا نموذج لشهادة مدرسية+طباعة.rar

اخى الجموعى اليك المعلومه Me.TextBox8.Value = Format(Me.TextBox8.Value, "dd-mm-yyyy") dd-----تشير الى اليوم mm----تشير الى الشهر yyyy-----تشير الى السنه وبذلك اذا قمنا بعمل الفورمات "dd-mm-yyyy" يتم ظهور التاريخ 10-10-1985 اما اذا قمنا بتغير الفورمات الى "yyyy-mm-dd" بذلك يظهر التاريخ 1985-10-10

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