nicola

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

بارك الله فيك استاذ رجب جاويش وشكرا جزيلا لك

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

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

للرفع

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

السلام عليكم في المرفق مثال يشرح المشكلة بشكل افضل ولكم جزيل الشكر مشكلة في جملة IF.rar

السلام عليكم اخوتي الاكارم ارجوا مساعدتكم في مشكلة الكود حيث ان الكود يعمل بشكل جيد ولكن اواجة مشكلة باستخدام جملة IF وخصوصا عند اضافة Else حيث يصبح الكود دائما ينفذ الامر Else ولا ينفذ الامر الاول في حال تحقق جملة IF ارجوا مساعدتكم في حل المشكلة Label3.Caption = Sheets("Temp").Range("B14").Value Dim LastRow As Long Dim i As Integer, T As Integer LastRow = Sheets("SetupM").Cells(Rows.Count, "Q").End(xlUp).Row + 1 For i = 1 To 10 For T = 1 To LastRow If Label3.Caption = Sheets("SetupM").Cells(T, 18).Value Then Sheets("SetupM").Range("A1") = Sheets("SetupM").Cells(T, 19) Else Sheets("SetupM").Range("A1") = "لاتوجد بيانات" End If Next Next

للرفع

للرفع

بارك الله فيك اخي ابو نصار وشكرا جزيلا لك

للرفع

للرفع

السلام عليكم اخي ابو نصار ارجوا مساعدتك في حل هذه المشكلة الصغيرة حيث اريد ان اجعل هذا الكود يستدعي البيانات من صفحة احددها ضمن الكود اي اريد تحدد اسم الصفحة ضمن الكود Dim r As Range, rc As Range, Rn As Range Dim Rw On Error Resume Next Set r = Range("A2:AF1000") For Each rc In r If Cells(rc.Row, 1) = Val(TextBox1) Then Set Rn = Range(Cells(rc.Row, 3), Cells(rc.Row, rc.Column)) End If Next For c = 1 To Rn.Columns.Count If Rn.Cells(1, c).Value <> "" Then With Me.ComboBox1 .AddItem Rn.Cells(1, c).Value End With End If Next Set r = Nothing: rc = Nothing: Rn = Nothing

للرفع

للرفع

للرفع

للرفع

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

اخي ابو نصار الغالي زادك الله فضلا وغناك من غناه وشكرا جزيلا لك

للرفع

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

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

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

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