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

اخى رجب مشكورا على الاهتمام وارد السريع بارك الله لنا فيك وتم تجربة الملف وتم اكتشاف الاتى 1- تم اظهار الاعمده بنجاح والحمد لله ------------------------------------------------------------------------- 2-اما بخصوص الجمع فمن الواضح اننى لم استطع توصيل ما اريد اليك فانا اريد اظهار مجمود عمود AMOUNT فى i30 ,ومجموع عمود COM AMOUNT فى k30 ومجموع عمود NET AMOUNTفى L30 ومجموع عمود TRS AMOUNTفى M30 ومجموع عمود BAL AMOUNT فى N30 ثم فى الخليه A30 يتم تفقيط المبلغ الموجود فى الخليه I30 مثلا لو ان المبلغ الموجود 10 يكون التفقيط فقط عشرة جنيهات مصرى لاغير بحيث لايظهر فى الشيت اى معادلات -------------------------------------------------------------------- 3-اما بخصوص الكومبوبوكس فمثلا لدينا فى العمودK اسم AGENT هذا الاسم يحتوى على 3فواتير فمثلا لو قمنا باختيار هذا الاسم من الكوبوبوكس ثم الضغط على زر طباعه يتم طباع الثلاث فواتير الخاصه بهذ الاسم

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

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

الاخ laguili اولا ارحب بك فى هذا المنتدى ثانيا اوجه اليك دعوه طيبه الا وهى الالتزام بقواعد المنتدى ومنها ان تكون اسماء الظهور باللغه العربيه ثالثا هذه محاوله بسيطه منى على حسب فهمى للموضوع اتمنى ان اكون وفقت فى عمل ذلك نموذج لشهادة مدرسية.rar

اخى عبد الرحمن تفضل كود اخر يقف على اول خليه فارغه Sub H() Range("B" & [B10000].End(xlUp).Row + 1).Select End Sub كما يمكن ايضا استخدام هذا الكود Book1.rar

اخى رجب دائما ما نرى منك السهوله فى الاداء واسمح لى بالمشاركه فى الموضوع هذا كود للوصول الى اول خليه فارغه بعد الخليه النشطه Sub ActivateNextBlankDown() كود الوصول الى اول خليه فارغه بعد الخليه النشطه activeCell.offset(1, 0).Select Do While Not IsEmpty(activeCell) activeCell.offset(1, 0).Select Loop End Sub

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

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

أخى رجب مشكورا على الاهتمام ولكن بعد تجربه الكود ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ اتضح انه فى حالة وجود العمود الاخير مخفى العمود رقم14 ثم الضغط على اوبشن14 لاظهار العمود الاخير رقم14 لا يتم ظهوره وتظهر الاعمده حتى العمود13فقط ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ كما اريد اظهار تفقيط لاجمالى العمود amount فى الخليه a30 بحيث لايظهر معادلات فى الشيت ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ اريد اضافة كومبوبوكس داخل الفورم الخاص بالطباعه بحيث يكون مصدر البيانات الخاصه بالكومبوبوكس هو العمود رقم11(agent)فى شيت invoice ثم يتم طباعة الفواتير بناء على اسم العميل المختار من الكومبوبوكس

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

اخى رجب بالفعل هذا هو ما اقصده وكلامك صحيح مائه فى المائه بارك الله فيك

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

اخى بن عليه مشكورا على الاهتمام والرد السريع اولا جلب البيانات يتم من خلال الفورم invoice فلو قمت باستدعاء الفورم وكتابة الرقم واحد داخل اول تيكست بوكس سوف تظهر لك جميع البيانات الخاصه بالفاتوره رقم 1 وهكذا بالنسبه لباقى الفواتير المسجله داخل شيت invoice وبعد استدعاء بيانات الفاتوره اذا قمت بالضغط على زر print سوف يتم ترحيل جميع بيانات الاتوره الى شيت print هذا بالنسبه لجلب البيانات وبالنسبه لسؤالك عن رقم الفاتوره هو بالفعل العمود المسمى ب in فى شيت invoice

للرفع

للرفع

الاخوه الافاضل توضيحا اكثر للمطلوب قمت بتصميم فورم فاتوره وحينما اردت طباعة الفاتوره وجدت ان عرض الفورم لا يتناسب مع حجم الطابعه فقمت بتصميم شكل للفاتوره فى شيت print وقمت بترحيل البيانات اليه عند الضغط على زر print ولكنى اريد ايضا عند الضغط على زر print ان يتم تحديد ارقام الفواتير التى سوف يتم طباعتها مثلا طباعة فاتوره من 1 الى 3

اخى واستاذنا عبدالله ماذا لو اردت ارضافه معيار جديد للبحث الا وهو التاريخ ارجو المساعده ListBox.rar

للرفع

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

الاخوه الافاضل السلام عليكم ورحمه الله وبركاته لدى فورم لفاتوره ولكبر عرض الفورم قمت بتصميم شكل للفاتوره على شيت الاكسل وقمت بترحيل البيانات من الفورم الى الشيت ولكن ما ينقصنى هو كيفيه طباعه الفاتوره حيث اننى اريد عند الطباعه تحديد طباعه الفاتوره من رقم ؟؟؟ الى رقم ؟؟؟؟ مثلا من رقم 1 الى رقم 5 او من رقم 2 الى 4 على سبيل المثال ارجو المساعده print invo 3.rar

الاخوه الكرام انا لايظهر عندى الايكونه الخاصه بادراج عناصر اضافيه ضمن صندوق الادوات فماذا افعل لاظهارها

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

اخى ضاحى بالفعل الكود الذى ارفقته جميل وشرح وافى كما تعودنا منك ولكنى كنت اريدها هكذا Private Sub TextBox1_Change() Me.Label1 = Format(Me.TextBox1.Value, "#,##0.00 €") End Sub وقد اتى بالفكره استاذنا رجب بارك الله فيه مره اخرى اشكرك اخى على المساعده

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

الاخوه الافاضل اريد اظهار الارقام فى اللبول مضاف اليها عمله اليورو