جميل جدا ... استاذنا الفاضل لو تتكرموا باضافة زر الطباعة للفورم حتى تكون طباعة التقرير من الفورم مياشرة أو بعد المعاينة مع مراعاة الصلاحية لأكثر من مستخدم . وتحياتي.
السلام عليكم إذا كنت استخدام لـ UserForm2 لتغيير التاريخ في TextBox في UserForm1 يؤدي إلى فقدان البيانات التي تم اختيارها سابقًا في ComboBox1 من UserForm1، وبمراعاة أن ShowModal مُعينة إلى False ممكن ايجاد حل لهذه المشكلة
العفو بارك الله فيكم الامر يطول شرحه سأحاول اختصاره فى هذه السطور 1- قم بإضافة تيسكت جديد و ليكن نسميه TXTCount 2- نكتب فى اول الكود سطر تفريغ الـ TXXCount وهو كالتالى Me.TXTCount.Value = "" و ليكن بعد السطر الخاص بتفريغ الليست بوكس 3-نكتب قبل كلمة Endif السطر التالى Me.TXTCount.Value = Val(Me.TXTCount.Value) + 1
السلام عليكم عندي طلب لو تكرمت اريد كود يضهر لي التاريخ المنتهي فيقط يعني انا اضع التواريخ التسجيل واضع تاريخ الانتهاء وعندما ياتي تاريخ الانتهاء يضهر عندي في البحث عن التواريخ المنتهية اذا ممكن جزاك الله خيرا
الله يبارك لك في صحتك ويديمها عليك يارب العالمين شكرا جزيلا علي الشرح الجميل لو تكرمت محتاج من حضرتك توضيح بسيط انا عاوز اعمل بحث بين تاريخين فقط بدون شرط ثالث
@@alhassanabuelkhair لك كل الشكر والتقدير انا نفذت الخطوات تمام ولكن معايا مشكلة في الكود بيظهر باللون الأحمر ومش عارف الخطأ فين ـif sheet4.Cells(lfor,"b").text >= cdate(me.TextBox1.Text)and sheet4.Cells(lfor,"b").text
@@alhassanabuelkhair اللغه انجليزيه لما بخلص واعمل رن علشان اشوفها بتفتح معايا تمام بحط التاريخ واختار المنتج وادوس علي البتون مبيجيش اي بينات خالص وكمان مبيدنيش رساله ان في حاجه غلط انا عدت الفيديو اكتر من ٥ مراتٍ وبركز في كل التفاصيل وبردو نفس المشكله
شرح جميل وشكرا على هذا المجهود لدي سؤال اذا ممكن وهو في حال رغبته المستخدم بعرض البيانات بين تاريخين ولكن لكل الفروع. فهل اذا كانت خانة الفروع فارغة يقبل عرض كل بيانات الفروع التي بين التاريخين؟ وشكرا
الله يخليك لينا يارب شكرن ياابو الخير علا الي انتا بتصنعو لكل الناس جزاك الله خيرا... لاكن يااستاذ والله مش زابطه معاي او مفتح اكسل بيطلعلي الافيس بيقول مفتاح البرنامج وعليه اشاره x
السلام عليكم ورحمة الله وبركاته مساء الخير اخي الحسن ابو الخير عملت زر البحث بس بعمل بحث مابيقبل بيدخل علا اكواد Lsrch =datasheet. Range("H1"). Value ومضلل بااللون الاصفر عاوز مساعدة
السلام عليكم لماذا لا نجد التطبيقات الاضافية في الاكسيل، مثال لم أقدر على تحميل تطبيق add-ins . لم أجد بعض الدوال و الوظائف. شكرا على كل ما تقدمه لنا من برمجيات وشروحات ادامك الله لنشر العلم وجزاك الله كل الخير....
@@alhassanabuelkhair اسف علي مجهودك الغالي اول هام الشيت اسمه DataSheet في البرمجه واسف علي عدم التوضيح جيدا المرة السابقة ثانيا : هذا هو الكود كامل والاعتراض هنا عليif للاسف ولا اعرف ما السبب Private Sub CommandButton1_Click() Me.TextBox3.Value = "" Dim Last, Lfor As Integer Last = DataSheet.Range("a10000").End(xlUp).Row Me.ListBox1.Clear Me.ListBox1.Height = 185 Me.ListBox1.Width = 580 Me.ListBox1.ColumnCount = 14 Me.ListBox1.ColumnWidths = "100,100,50,50,50,50,50,50,50,50,50,50" For Lfor = 1 To Last If DataSheet.Cells(Lfor, "C").Text
مساء الخير معك اخوك ابو فيصل السعودية ممكن وضع زر خيار للمستخدم بالنسبة للتاريخ ميلادي او هجري مثل ذكر او انثى مثلا في تكست بوكس التاريخ لاننا بالسعوديه احيانا نستخدم هجري او ميلادي خيار مرتبط في تكست التاريخ ولكم مني جزيل الشكر و العرفان 🌺
شكرا استاذ على المعلومات والشرح،، هل بالإمكان عمل بحث بين تاريخين لأكثر من معيار بحث في اليوزرفوم؟؟ مثلا بحث عن أسماء المشترين (من ماركة توشيبا) (ومن فرع القاهرة)
@@alhassanabuelkhairستاذ اذا معي عشرين عمود مثلا وعاوز اعمل بحث بين تاريخين لاكثر من معيار في وقت واحد وليس اختيار معيار واحد. فقط مثال ابحث بين تاريخين والمعيار يكون (العلامة التجارية) (وبلد المنشأ) (ونوع وسيلة النقل) (واسم مختبر الفحص) يعني اختار المعايير كلهم في آن واحد واضغط على البحث بين تاريخين
بارك الله فيك ولكن احتاج من شرح كيفية ارسال ايميلات من الاوتلوك ويوجد مرفقات اكثر من شيت الي عدة افراد لكل واحد منهم شيت مختلف باسم فرعه ويوجد علي سطح الميل رسالة نصية ثابتة يختلف محتواها علي حسب نتائج موجودة داخل شيت وجزاكم الله خيرا
@@alhassanabuelkhair ولكم جزيل الشكر، ولكن أقصد أنّكم عندما كتبتم الأكواد بدلا من العمود(F) كتبتم (E) فتكرّرت البيانات في عمودين على اللّيست بوكس. وشكرا لكم مرّة أخرى.
استاذ حسن المبدع شكرا علي كل شي بتقدمه كثير بتستفاد من فيدوهاتك بس الفيديو ده حاولت اعملو اكثر من مره بس مبيحبوش اي بينات خالص هل ده بسبب اني عامل واجهه ادخال بينات مسبقا ولا ملهاش علاقه ارجوك محتاج رد منك وشكرا مره تانيه علي كل الي بتقدمه ربنا يكرمك
و عليكم السلام ورحمه الله متشكر جدا لك 🌹🙏 ليس لها علاقة ادراج يوزرفورم سابق لكن قد اكون المشكلة فى اسم اليوزرفورم أو فى عمود المعيار أو حضرتك كتب كلمة Value و ليس كلمة Text
ممكن توضح كيفية كتابة كود انه بمجرد كتابة ناجح يقوم البرنامج مباشرة بتعديل القيمة الأولى إلى درجة لي بعدها وهكذا في كل مرحلة يعني ناجح قانون مرور يكتب مناورات وناجح مناورات يكتب سياقة وناجح سياقة يروح للارسال والطباعة ثم الأرشفة مع إذا كان العكس اي غائب ولا راسب تبقى نفس الحالة في كل مرحلة حتى ينجح
استاذ حسن كيف تفتح شيت معين رغم انو لدي 4 شيتات عن طريق الفورم ( زر يعني) شيت معين وليس ملف العمل( application. Show) مع عدم دخول الى الشيتات الاخرى وعدم القدرة على التعديل عليها يدويا.والتعديل يكون من الفورم فقط سؤال اخر كيف تصحح خطأ لما تضغط على زر اضافة مثلا والبيانات فارغة تظهر رسالة الكود خطا اريد رسالة لا توجد بيانات والكود صحيح اعتقد فهمت علي وشكرا اليك اتمنى تجاوبني 🌹
لفتح شيت معين من خلال زر باليوزرفورم اكتب الكود بالشكل التالى application.visible=true Unload me Sheet1.select طبعا تحدد اسم الشيت بالنسبة للسؤال الثانى اكتب كود يخبره انه اذا كان تيكست بوكس 1 يساوى فراغ يظهر رسالة تنبيه بهذا الشكل IIf Me.TextBox2.Value = "" Then MsgBox "ÈÑÌÇÁ ÅÏÎÇá ÇáÇÓã ÃæáÇð", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå" Exit Sub End If طبعا تحدد محتوى الرسالة
جزاك الله خيى باش مهندس انا جربت كل اللي قلته والدنيا تمام وعندي ١٣ عمود المهم كتبت ان عندي ١٣ واول ما اوصل في اظهار الاعمدة (1-10) (1،-11) (1،-12) لاحظت انه يكتب لي خطأ في اي عمود من رقمين ولو مسحته وابقيت ارقام الاعمدة من ١ الى ٩ يشتغل الكود عادي ما الحل من فضلك ولو هناك رابط كود طباعة التقرير
شكراً أستاذ الحسن موضوع مهم جداً ومفيد . بارك الله فيك و في اهلك
العفو 🙏🌹
بارك الله فيكم
شرح اكثر من رائع ودرس استفدت منه كما استفدت من الدروس التي قبلها شكرا لك أ /الحسن
متشكر جدا لك استاذ أشرف 🙏🙏🌹🌹
أسأل الله ربي سبحانه أن يوفقكم ويزيدكم علم الى علمكم
متشكر جدا لك 🌹🙏🙏
اللهم آمين نحن و اياكم 🤲
متابعك عبدالله الخطيب
من اليمن
ماشاء الله استفدت الكثير والكثير
أستمر بالله وبأفكار جديدة
موفق يااارب 😘
متشكر جدا لك 🌹🙏🙏
الله يبارك لك في صحتك ويديمها عليك يارب العالمين
شكرا جزيلا علي الشرح الجميل
بارك الله فيكم وجزاكم الله خيرا
شكراً أستاذ الحسن موضوع مهم جداً ومفيد . بارك الله فيك 👍❤️
متشكر جدا لك 🌹🙏🙏
يا هندسه عايز ابحث بين تاريخين عن متغيرات مختلفه موجودة فى اعمدة مختلفه
ما شاء الله تبارك الله بارك الله فيك وزادك من علمه
جميل جدا ... استاذنا الفاضل لو تتكرموا باضافة زر الطباعة للفورم حتى تكون طباعة التقرير من الفورم مياشرة أو بعد المعاينة مع مراعاة الصلاحية لأكثر من مستخدم . وتحياتي.
متشكر جدا لك 🌹🙏
يمكنك طباعة الفورم مباشرة
كيفية طريقة الطباعة مباشرة الله يسعدك
بالانتظار مشكور على جميع مجهوداتك
🙏🙏🌹🌹
موضوع قيم شكرا استاذنا
متشكر جدا لك 🌹🙏🙏
مجهود كبير يا هندسة الف شكر 😘😘😘
متشكر جدا لك 🌹🙏🙏
مساء الخير يا استاذ ابوالخير
عاوز نفس برنامجك بس بدون فروع ايش احتاج احذف من الاكواد لكي يكون معي شغال بدون مشاكل
مساء الخير اخى الفاضل
احذف السطر البرمجى الخاص بالفروع من الكود
او تواصل معنا واتساب لحل هذه المشكلة بإذن الله تعالى
شرح وافي و جميل بارك الله فيك
بارك الله فيكم وجزاكم الله خيرا
السلام عليكم
إذا كنت استخدام لـ UserForm2 لتغيير التاريخ في TextBox في UserForm1 يؤدي إلى فقدان البيانات التي تم اختيارها سابقًا في ComboBox1 من UserForm1، وبمراعاة أن ShowModal مُعينة إلى False
ممكن ايجاد حل لهذه المشكلة
كيف نبحث في عمود التاريخ وما يكون العمود الاول في الليست بوكس ارجو منك استاذي تعمل فيديو بذلك او انه تعطيني رابط لو شارح ذا من قبل
يمكن البحث بالتاريخ و ليس شرطاً أن يكون العمود الأول
@@alhassanabuelkhair كيف؟
شكرا على الفديو والتفاصيل
كيف اضيف حقل يظهر العدد مباشرة مثلا كم واحد القاهرة
العفو بارك الله فيكم
الامر يطول شرحه سأحاول اختصاره فى هذه السطور
1- قم بإضافة تيسكت جديد و ليكن نسميه TXTCount
2- نكتب فى اول الكود سطر تفريغ الـ TXXCount وهو كالتالى
Me.TXTCount.Value = ""
و ليكن بعد السطر الخاص بتفريغ الليست بوكس
3-نكتب قبل كلمة Endif السطر التالى
Me.TXTCount.Value = Val(Me.TXTCount.Value) + 1
السلام عليكم
عندي طلب لو تكرمت
اريد كود يضهر لي التاريخ المنتهي فيقط
يعني انا اضع التواريخ التسجيل واضع تاريخ الانتهاء وعندما ياتي تاريخ الانتهاء يضهر عندي في البحث عن التواريخ المنتهية
اذا ممكن جزاك الله خيرا
الله يبارك لك في صحتك ويديمها عليك يارب العالمين
شكرا جزيلا علي الشرح الجميل
لو تكرمت محتاج من حضرتك توضيح بسيط
انا عاوز اعمل بحث بين تاريخين فقط بدون شرط ثالث
بارك الله فيكم وجزاكم الله خيرا
اذن فى كود دالة IF احذف الشرط الثانى و احذف كلمة And
و كمل الكود عادى
@@alhassanabuelkhair لك كل الشكر والتقدير
انا نفذت الخطوات تمام ولكن معايا مشكلة في الكود
بيظهر باللون الأحمر ومش عارف الخطأ فين
ـif sheet4.Cells(lfor,"b").text >= cdate(me.TextBox1.Text)and sheet4.Cells(lfor,"b").text
مهتم 👍🏻
إن شاء الله ينال اعجابكم 👍
انا عملت كل حاجه وتمام بس لما باجي اجيب التقارير مش بيعمل اي حاجه ولا بيجيب بينات ولا حتي بيديني رساله ان في حاجه غلط ايه الحل ممكن رد جزاك الله خيرا
ممكن اعرف لغة واجهه البرنامج لديك عربيه ام إنجليزية
و ممكن تفاصيل اكثر
@@alhassanabuelkhair اللغه انجليزيه
لما بخلص واعمل رن علشان اشوفها بتفتح معايا تمام بحط التاريخ واختار المنتج وادوس علي البتون مبيجيش اي بينات خالص وكمان مبيدنيش رساله ان في حاجه غلط انا عدت الفيديو اكتر من ٥ مراتٍ وبركز في كل التفاصيل وبردو نفس المشكله
شرح جميل وشكرا على هذا المجهود
لدي سؤال اذا ممكن وهو في حال رغبته المستخدم بعرض البيانات بين تاريخين ولكن لكل الفروع. فهل اذا كانت خانة الفروع فارغة يقبل عرض كل بيانات الفروع التي بين التاريخين؟ وشكرا
العفو بارك الله فيكم
للاسف الكود الحالى لا يقبل مثل هذه الفكرة و لكنها ممكنه التنفيذ بإذن الله تعالى
جزاك الله خير
هل ممكن طباعة التقرير ؟
نعم
انا اسف جدا جدا جدا لحضرتك من كل قلبي.. جزاك الله خيرا عن كل اللي بتقدمه واتمني تتقبل اعتذاري
العفو استاذنا الفاضل بارك الله فيكم
السلام عليكم ورحمة الله وبركاته ازيك يااستاذ الحسن ابوالخير... اناعايز المساعدة ازي اكتب علا زر الاضافه باالعربي بيطلعلي علامه استفهام؟؟؟؟؟؟
و عليكم السلام ورحمه الله
اتفضل شاهد هذا الفيديو وإن شاء الله تعالى تحل المشكلة
ua-cam.com/video/S2LtRdOKfNo/v-deo.html
الله يخليك لينا يارب شكرن ياابو الخير علا الي انتا بتصنعو لكل الناس جزاك الله خيرا... لاكن يااستاذ والله مش زابطه معاي او مفتح اكسل بيطلعلي الافيس بيقول مفتاح البرنامج وعليه اشاره x
السلام عليكم ورحمة الله وبركاته مساء الخير اخي الحسن ابو الخير عملت زر البحث بس بعمل بحث مابيقبل بيدخل علا اكواد Lsrch =datasheet. Range("H1"). Value ومضلل بااللون الاصفر عاوز مساعدة
مشكور استاذ شرحك مبسط وسهل من فضلك كود لحساب مصاريف واظهار بين تاريخين بدون الفرع
شكراً جزيلاً لحضرتك
لعمل التقرير بين تاريخين فقط طبق الكود ماعدا سطر الفرع و أحذف كمبوبوكس الفرع
ماشاءالله عليك.
🙏🙏🙏🌹
كان سغال عندي لكن غيرت اللست بوكس الى لست فيو فتعطلت الاكواد كيف اعدلها
بالطبع سيتم ايقاف الاكواد لان طريقة الليست فيو مختلفة عن طريقة الليست بوكس
السلام عليكم
لماذا لا نجد التطبيقات الاضافية في الاكسيل، مثال لم أقدر على تحميل تطبيق add-ins .
لم أجد بعض الدوال و الوظائف.
شكرا على كل ما تقدمه لنا من برمجيات وشروحات ادامك الله لنشر العلم وجزاك الله كل الخير....
ااخي الفاضل
And DataSheet.Cells(Lfor, "R").Value = Me.ComboBox1.Value Then
في هذه المرحلة الاكسيل يعترض عليها هل هناك سبب واضح من خلال رؤيتك للكود؟
ممكن اعرف لغة الاكسل لديك
و ما اسم الشيت الذى به البيانات
و ممكن تسبدل كلمة text بكلمة value
@@alhassanabuelkhair
اللغة الانجليزية 2016
اما شيت البيانات اسمه في البرمجه datasheet
اذن اكتب فى الكود datasheet وليس DataSheet
لاحظ الحرف يفرق لو كان كابيتال او Small
@@alhassanabuelkhair
اسف علي مجهودك الغالي
اول هام الشيت اسمه DataSheet في البرمجه واسف علي عدم التوضيح جيدا المرة السابقة
ثانيا : هذا هو الكود كامل والاعتراض هنا عليif للاسف ولا اعرف ما السبب
Private Sub CommandButton1_Click()
Me.TextBox3.Value = ""
Dim Last, Lfor As Integer
Last = DataSheet.Range("a10000").End(xlUp).Row
Me.ListBox1.Clear
Me.ListBox1.Height = 185
Me.ListBox1.Width = 580
Me.ListBox1.ColumnCount = 14
Me.ListBox1.ColumnWidths = "100,100,50,50,50,50,50,50,50,50,50,50"
For Lfor = 1 To Last
If DataSheet.Cells(Lfor, "C").Text
يجب اغلاق دالة If بالكلمة End IF
و يجب اغلاق كلمة For بالكلمة Next
مساء الخير معك اخوك ابو فيصل السعودية ممكن وضع زر خيار للمستخدم بالنسبة للتاريخ ميلادي او هجري مثل ذكر او انثى مثلا في تكست بوكس التاريخ لاننا بالسعوديه احيانا نستخدم هجري او ميلادي خيار مرتبط في تكست التاريخ ولكم مني جزيل الشكر و العرفان 🌺
اهلا وسهلا بك استاذ ابو فيصل
فكرة رائعة
ممكن حضرتك تتواصل معنا عبر الواتساب التالى 👇
201114315018
السلام عليكم
استاء في نموذج ادخال البيانات في شيت عم نوصل لعند اضافة وماعم يضيف عم يعطي خطأ بالرغم من اني رجعت مالقيت خطأ شو الحل
و عليكم السلام ورحمه الله
تأكد انك لم تصل الى الرقم المحدد فى المتغير Last
كيف نحل مشكلة اذا الاسم مش موجود في الشيت. وجيت ابحث عنه فيطلع لي رسالة تيش الكود الي نستخدمة لذالك. حفظك الله استاذنا الغالي
شاهد هذا الفيديو وإن شاء الله تعالى تحل المشكلة
ua-cam.com/video/IkPqsmpiR8I/v-deo.html
شكرا استاذ هل يمكن تحميل هذا البرنامج على شكل ملف اكسل
نعم هو ملف اكسل
شكرا استاذ على المعلومات والشرح،، هل بالإمكان عمل بحث بين تاريخين لأكثر من معيار بحث في اليوزرفوم؟؟ مثلا بحث عن أسماء المشترين (من ماركة توشيبا) (ومن فرع القاهرة)
نعم هذا هو الشرح الذى تم بالفيديو
@@alhassanabuelkhairستاذ اذا معي عشرين عمود مثلا وعاوز اعمل بحث بين تاريخين لاكثر من معيار في وقت واحد وليس اختيار معيار واحد. فقط مثال ابحث بين تاريخين والمعيار يكون (العلامة التجارية) (وبلد المنشأ) (ونوع وسيلة النقل) (واسم مختبر الفحص) يعني اختار المعايير كلهم في آن واحد واضغط على البحث بين تاريخين
ممكن طريقة طباعة التقرير؟؟؟؟؟؟
لو عاوز أصدر التقرير لملف اكسيل بعد البحث ازاي؟
ممتاز هذا الاقتراح
بإذن الله تعالى نعمل فيديو عن ذلك قريباً
بارك الله فيك
ولكن احتاج من شرح كيفية ارسال ايميلات من الاوتلوك ويوجد مرفقات اكثر من شيت الي عدة افراد لكل واحد منهم شيت مختلف باسم فرعه ويوجد علي سطح الميل رسالة نصية ثابتة يختلف محتواها علي حسب نتائج موجودة داخل شيت
وجزاكم الله خيرا
شكرا لك على هذا المجهود، لكن هناك ملاحظة بسيطة أثناء كتابة الأكواد، بدلا من العمود (F) كتبت (E) فتكرّرت البيانات في الليست بوكس.
متشكر جدا لك 🌹🙏
بمنع تكرار البيانات فى الليست بوكس اكتب فى أول كود الفلتر هذا الفلتر
Me.Listbox1.clear
ثانيا يجب كتابة رقم العمود الذى به الفلتر
@@alhassanabuelkhair ولكم جزيل الشكر، ولكن أقصد أنّكم عندما كتبتم الأكواد بدلا من العمود(F) كتبتم (E) فتكرّرت البيانات في عمودين على اللّيست بوكس. وشكرا لكم مرّة أخرى.
اولا شكرا علي الشرح الممتاز
انا عملت كل حاجه بالظبط بس مشكلتي انه بيجبلي مشكله في me. listBox1.clear ممكن اعرف احلها ازاي ضرورى لاني متوقف عليها
استاذ حسن المبدع شكرا علي كل شي بتقدمه كثير بتستفاد من فيدوهاتك بس الفيديو ده حاولت اعملو اكثر من مره بس مبيحبوش اي بينات خالص هل ده بسبب اني عامل واجهه ادخال بينات مسبقا ولا ملهاش علاقه ارجوك محتاج رد منك وشكرا مره تانيه علي كل الي بتقدمه ربنا يكرمك
و عليكم السلام ورحمه الله
متشكر جدا لك 🌹🙏
ليس لها علاقة ادراج يوزرفورم سابق
لكن قد اكون المشكلة فى اسم اليوزرفورم أو فى عمود المعيار أو حضرتك كتب كلمة Value و ليس كلمة Text
💎💎💎💎
♥️♥️♥️🙏
ممكن توضح كيفية كتابة كود انه بمجرد كتابة ناجح يقوم البرنامج مباشرة بتعديل القيمة الأولى إلى درجة لي بعدها وهكذا في كل مرحلة يعني ناجح قانون مرور يكتب مناورات وناجح مناورات يكتب سياقة وناجح سياقة يروح للارسال والطباعة ثم الأرشفة مع إذا كان العكس اي غائب ولا راسب تبقى نفس الحالة في كل مرحلة حتى ينجح
👍👍❤
🙏🙏🌹🌹
استاذ حسن كيف تفتح شيت معين رغم انو لدي 4 شيتات عن طريق الفورم ( زر يعني) شيت معين وليس ملف العمل( application. Show) مع عدم دخول الى الشيتات الاخرى وعدم القدرة على التعديل عليها يدويا.والتعديل يكون من الفورم فقط
سؤال اخر
كيف تصحح خطأ لما تضغط على زر اضافة مثلا والبيانات فارغة تظهر رسالة الكود خطا اريد رسالة لا توجد بيانات والكود صحيح اعتقد فهمت علي وشكرا اليك اتمنى تجاوبني 🌹
لفتح شيت معين من خلال زر باليوزرفورم اكتب الكود بالشكل التالى
application.visible=true
Unload me
Sheet1.select
طبعا تحدد اسم الشيت
بالنسبة للسؤال الثانى
اكتب كود يخبره انه اذا كان تيكست بوكس 1 يساوى فراغ يظهر رسالة تنبيه بهذا الشكل
IIf Me.TextBox2.Value = "" Then
MsgBox "ÈÑÌÇÁ ÅÏÎÇá ÇáÇÓã ÃæáÇð", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
Exit Sub
End If
طبعا تحدد محتوى الرسالة
@@alhassanabuelkhair جزاك الله خيرا شكرا استاذنا الكريم تمنياتي الك بالتوفيق 🌹
جزاك الله خيى باش مهندس انا جربت كل اللي قلته والدنيا تمام
وعندي ١٣ عمود
المهم كتبت ان عندي ١٣
واول ما اوصل في اظهار الاعمدة
(1-10)
(1،-11)
(1،-12)
لاحظت انه يكتب لي خطأ في اي عمود من رقمين
ولو مسحته وابقيت ارقام الاعمدة من ١ الى ٩ يشتغل الكود عادي
ما الحل من فضلك
ولو هناك رابط كود طباعة التقرير
و جزاكم الله كل خير
المشكلة ان الليست بوكس يستوعب فقط حوالى 10 أعمدة
و لذلك يجب استخدام الليست فيو بدلاً من استخدام الليست بوكس