ماجد القثمي

السلام عليكم لدي ملف يقوم بعمليه بحث وتعديل عن طريق ListBox قام به احد الاساتذه الافاضل في هذا المنتدى سوالي هو عند البحث عن اسم معين عن طريق الليستبوكس ولنفرض ان هذا الاسم يتكرر اكثر من مرة في الشيت تظهر النتائج كالتالي اول سطر في البوكس هي ثاني نتيجه (اي ثاني اسم متكرر موجود فالشيت) وثاني سطر تعطي ثالث نتيجه (اي ثالث اسم متكرر قي الشيت) وهكذا حتى اخر الليستبوكس واخر سطر فالبوكس يقوم باظهار اول نتيجه (اول اسم متكرر في الشيت) لماذا لا يتم عرض النتائج في الليست بوكس بالترتيب من 1 الى اخر شي لماذا يتم عرضها من النتيجه 2 الى الاخير ومن ثم وضع النتيجه الاولى اخر الليست الملف مرفق وبه الاستفسار واضح في حاله البحث عن اسم (محمد طاهر) ك مثال وشكرا بحث في قائمه باكثر من متغير.rar

شكرا جزيلا اخي الفاضل تعديلك على الكود حل المشكله

للرفع..

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

أخواني الاعزاء شكرا جزيلا على ردودكم الحلين هما بالضبط ما اريده وبطريقتين مختلفتين وقد اضفت بعض التعديلات لتلائم الشروط التي احتاجها جزاكم الله خير Private Sub Worksheet_Change(ByVal Target As Range) Dim Last As Long Last = Cells(Rows.Count, 2).End(xlUp).Row If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("L2:L" & Last)) Is Nothing Then If Target.Value = "A" Then If Target.Offset(, -2) <> "" Then With Target(1, -2) .Value = Format(Date, "dddd, mmmm dd, yyyy") End With End If End If End If End Sub

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

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

السلام عليكم أعزائي الاعضاء عندي طلب اتمنى يكون بسيط وسهل نعرف داله الترقيم التلقائي =IF(B2="","",SUBTOTAL(3,$B$2:$B2)) .والتي تستخدم للترقيم التلقائي والتعديل على الترقيم في حال حذف القيمه من احد السطور العلويه :الطلب اريد كود يعمل نفس عمل هذه الداله لتشغيله في صفحة اكواد الشيت Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub بحيث يتم تطبيق كود الترقيم على كامل العمود (A) مثلا تلقائيا بمجرد الكتابه في العمود (B) وشكرا لكم

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

استاذ ابو البراء جربت الطريقتين وكلاهما يعملان بالشكل المطلوب تماما شكرا جزيلا لسعة صدرك وجزاك الله خيرا

ياسلام عليك يا استاذ ابو البراء ماشاء الله تبارك الله الكود يعمل بشكل صحيح ولاحضت عدم استخدامك للفلتره المتقدمه كما شرحت في موضوعك السابق حاولت تشغيل الكود بدون زر التفعيل فنسخت الكود في( Private Sub Worksheet_SelectionChange(ByVal Target As Range) اصبح ياخذ وقت طويل جدا حتى ينفذ الكود حيث انه يمر على 1000 سطر للبحث هل من الممكن تلافي هذه المشكله لان عدد الفواتير قد يصل الى اكثر من 1000 مع الشكر على التفاعل

أشاره الى موضوع الاستاذ ابو البراء بخصوص الفلتره المتقدمه حاولت اطبق الفلتره المتقدمه التي شرحتها على ملف عندي فيه بيانات فواتير وكنت اريد فلترة الفواتير برقم الملف وبنفس طريقه الملف الذي ارفقته ولكن لم تضبط معي هل ممكن تطبيق الكود على ملفي وتكون الفلترة بمتغير واحد وليس متغيرين كما في ملفك الداتا موجوده في شيت (Invoices) واريد الفلتره ان تكون في الشيت (Inv.History) وشكرا Book1.rar

للرفع

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

حاول تتاكد ان نوع الورق A4 على نفس الاعدادات الخاصه بالطابعه

للرفع..

السلام عليكم اخواني الاعزاء عندي ملف به ورقه عمل لبيانات فواتير وكذلك يوزرفورم للبحث في هذه الفواتير عن طريق رقم الملف واظهار الفواتير المتعلقه برقم الملف المدخل احاول ان ارحل النتايج التي تظهر في اليوزر فورم داخل الفريم الى ورقه عمل(Invo..History) وطباعتها حاولت ان ارحل بطرق عد ولكن فشلت.. كذلك استصعب علي فهم الكود الخاص بالبحث وشكرا Book1.rar

برنامج مصغر قمت بتصميمه وتجميعه وتعديل بعض الاكواد التي استفدت منها من الاخوان في هذا المنتدى الجميل البرنامج عباره عن فورم لادخال بينات وفور للبحث عن هذه البيانات بالاسم وفورم اخر للبحث عنها برقم الجوال كذلك يقوم فورم الادخال بطباعه البيانات على نموذج طباعه بالامكان تغييره ووضعه في خلفيه الورقه print وتعديل اماكن text boxليتوافق مع النموذج المراد الطباعه عليه البرنامج متواضع وللاستخدام الشخصي واردت ان اشاركه مع اعضاء القروب والباحثين عن مثل هذه الافكار كما كنت ابحث قبل ان اتوصل للشكل النهائي للفكره التي اريدها وشكرا Reception.rar

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

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

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

للرفع..

للرفع.

السلام عليكم يا اخوان هذا ملف به جدول واحيانا يتم مسح صفوف من الوسط والاعلى والاسفل وتبقى صفوف بقية الصفوف بشكل متبعثر.. عملت هذا الكود لنقل الصفوف الى الاعلى في حال كان الصف الذي فوقها فارغا لماذا لا يعمل الكود بشكل متكرر؟؟؟؟ احتاج لتفعيل الكود كل مرة لنقل صف واحد فقط الى الاعلى في كل مرة ارجو الافاده وشكرا Pt.CasesLab Followup - Copy.rar

للرفع