moodyfy2 قام بنشر سبتمبر 16 مشاركة قام بنشر سبتمبر 16 السلام عليكم تحياتى لجميع اعضاء الجروب المحترمين * textbox1 الموجود داخل user form8 يقوم بالبحث عن رقم الحساب فى البيانات الموجوده فى شيت home1 ويقوم بترحيل البيانات الى التكست بوكس والكومبو بوكس الموجودة فى userform 8 * اريد اضافة listbox1 يظهر به نتائج البحث فى textbox1 ( الست بوكس عمود واحد يعرض نتائج البحث فى رقم الحساب كما هو موضح بالصورة الموجود فى اللست بوكس او التنقل بالاسهم بين نتائج البحث . يقوم بترحيل البيانات الى جميع اللست بوكس والكومبو بوكس الموجودة فى userform 8 * زر اضافى يقوم بترحيل البيانات داخل جميع التكست بوكس وال كومبو بوكس الى شيت home 1 ) وعند الضغط على نتائج البحث برنامج المعطل ver 20 2024 مثال.xlsm رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر سبتمبر 21 الكاتب مشاركة قام بنشر سبتمبر 21 الأساتذة الكرام هل يوجد حل لمشكلتي وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الأحد at 06:27 مشاركة قام بنشر الأحد at 06:27 السلام عليكم جرب الملف واخبرنى بالملاحظات لانى عملته بسرعة قبل الذهاب الى العمل ____برنامج المعطل ver 20 2024 مثال.xlsm رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر الثلاثاء at 19:36 الكاتب مشاركة قام بنشر الثلاثاء at 19:36 الاخ الكريم الاستاذ عبدالله بشير عبدالله شكرا جزيلا لاهتمامك لكن لاتظهر نتائج البحث داخل textbox1 داخل lestbox1 اريد ان تظهر نتائج البحث فى تكست بوكس 1 عن اي رقم فى اللست بوكس . كما فى الفيديو التالى 4.7z رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الأربعاء at 06:34 مشاركة قام بنشر الأربعاء at 06:34 السلام عليكم / وصلت الفكرة ان شاء الله جرب الملف واخبرنى باي تعديل اظهار نتائج البحث في اللستبوكس.xlsm 1 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الأربعاء at 18:23 مشاركة قام بنشر الأربعاء at 18:23 (معدل) تعديل للملف اظهار نتائج البحث في اللستبوكس.xlsm تم تعديل الأربعاء at 18:24 بواسطه عبدالله بشير عبدالله 2 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر الأربعاء at 19:14 مشاركة قام بنشر الأربعاء at 19:14 السلام عليكم استاذنا الفاضل عبدالله مشكورا على الكود الجميل وفققك الله تقبل تحياتى 2 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الأربعاء at 19:32 مشاركة قام بنشر الأربعاء at 19:32 (معدل) وعليكم السلام ورحمة الله وبركاته معلمى واستاذي ابراهيم ابو ليلة / الجيل الذهبى للمنتدى ربما اشتركنا في المنتدى في نفس الفترة وعاصرنا عبدالله باقشير وملك المعادلات والدغيدى وعبدالله المجرب والشهابي وتعلمنا منهم الكثير وغيرهم الكثير , اشتراكى القديم في 2011 باسم عبدالله الصاري وتم ترقيتي الى الخبراء ومنذ سنتين لم اتمكن من الذخول الى المنتدى بسبب الدخول اصبح بالبريد الالكتروني والذي نسيته فاشتركت مجددا بلسم الحالى على كل حال اسعدنى تعليقك ولك وافر التقدير والاحترام تم تعديل الأربعاء at 19:34 بواسطه عبدالله بشير عبدالله 1 رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر الأربعاء at 20:14 الكاتب مشاركة قام بنشر الأربعاء at 20:14 استاذى الجليل عبدالله بشير عبدالله شكرا جزيلا على التفاعل والاهتمام وجزاك الله خير لكن لى ملاحظات اخجل من طلبها 1- اريد عند مسح محتويات TEXTBOX1 يتم تفريغ التكستبوكس والكومبوبوكس 2-عن اختيار نتائج الللست بوكس تظهر فى التكستبوكس و الكومبوبوكس بياناات لا تخص رقم الحساب المحدد فى اللست بوكس 3- اريد عن كتابة او عند عرض محتويات TextBox17 و TextBox18 تظهر فى تنسيق YYYY/MM/DD 4- اريد عن كتابة او عند عرض محتويات TextBox4تظهر فى تنسيق YYYY/MM وجزاك الله واسف على الاطالة 1 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الخميس at 06:16 مشاركة قام بنشر الخميس at 06:16 (معدل) السلام عليكم تم تعديل النقطتين الاولى والثانية والثانية كان سببها اكثر من رقم حساب مكرر النقطتان 3 4 ان شاء بعد العودة من العمل جرب المرفق ولاحرج في اي ملاحظة تقبل تحياتي اظهار نتائج البحث في اللستبوكس1.xlsm تم تعديل الخميس at 06:16 بواسطه عبدالله بشير عبدالله 2 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الخميس at 13:42 مشاركة قام بنشر الخميس at 13:42 بالنسبة تكست 18 و19 اذهب الى لوحة التحكم - الساعة والمنطقة - المنطقة - ثم كما بالصورة الملف اظهار نتائج البحث في اللستبوكس1.xlsm 1 رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر الخميس at 21:08 الكاتب مشاركة قام بنشر الخميس at 21:08 استاذ عبدالله بشير عبدالله بارك الله فيك مجهود عظيم جعل الله فى ميزان حسناتك * تمام كدة لكن في ملاحظة واحدة 1- هى ان عتد اختيار اي نتائج البحث داخل اللست بوكس ولم يسجل لها تاريخ رفع وتاريخ تركيب ( TextBox18 - TextBox17) تكتب تاريخ 30/12/1899 بالرغم ان الخلايا فارغة داخل الشيت ولا يوجد بها تاريخ مسجل كما هو موضح بالصورة ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر منذ 7 ساعات مشاركة قام بنشر منذ 7 ساعات (معدل) وعليكم السلام ورحمة الله تعالى وبركاته لقد قمت بتجربة الملف المرفق من الاخ الفاضل @عبدالله بشير عبدالله يؤدي المطلوب مع عدم ظهور اي تواريخ غير موجودة كما في الصورة لديك على العموم تم اعادة تصحيح الاكواد الخاصة بك واختصارها بطريقة مختلفة مع ظافة بعض اللمسات البسيطة لتتناسب مع طلبك برنامج المعطل 2024.xlsm تم تعديل منذ 3 ساعات بواسطه محمد هشام. 2 رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر منذ 4 ساعات الكاتب مشاركة قام بنشر منذ 4 ساعات الاستاذ محمد هشام ارق تحياتى واحترامى لشخصكم وايضا للاستاذ عبدالله بشير عبدالله مجهود عظيم من حضراتكم اكيد عندى انا مشكلة لانى بضيف الاكواد الى برنامج اكبر مساحته كبيرة يحتوى الى الكثير من user forms والصفحات لا اتمكن من رفعة * عند ملاحظة عن كتابة رقم حساب جديد للاضافة يعطى الرسالة التالية كما هو موضح بالصورة رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر منذ 3 ساعات مشاركة قام بنشر منذ 3 ساعات (معدل) بما انك تستخدم ملف اخر يجب أولا الضغط على زر "Debug" في الرسالة لتحديد السطر البرمجي الذي يسبب الخطأ لنحاول اصلاحه رغم انه صراحة يصعب التعامل مع الاخطاء بهده الطريقة دون معاينة الملف الاصلي أما بخصوص الملف المرفق كما ترى الكود يقوم باظافة البيانات بدون ادنى مشكلة مع التحقق من وجود رقم الحساب مسبقا الملف بعد اظافة تسطير البيانات الجديدة وتنسيق ورقة العمل اليك الكود التالي لتلوين الصف النشط لان عملية حدف الصفوف من الممكن ان تأثر على التنسيق الشرطي الموجود مسبقا Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim f As Worksheet, Lr As Long Set f = ThisWorkbook.Sheets("home1") Lr = f.Cells(f.Rows.Count, "B").End(xlUp).Row Application.EnableEvents = False f.Range("B2:AX" & Lr).Interior.ColorIndex = xlNone If Not Intersect(Target, f.Range("B2:AX" & Lr)) Is Nothing And Target.Rows.Count = 1 Then f.Range("B" & Target.Row & ":AX" & Target.Row).Interior.Color = RGB(0, 255, 0) End If Application.EnableEvents = True End Sub برنامج المعطل 2024.xlsm تم تعديل منذ 1 ساعه بواسطه محمد هشام. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان