نجوم المشاركات

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

اخي الان يمكنك البحث عن اللرقم الذي تريده من بداية الرقم الاول من علي اليسار او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار والكود هو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C3").Address Then If Target <> "" Then Range("C5:D1000").ClearContents s = Len(Range("C3")) If s > 0 Then x = 2 For i = 2 To 1000 If Sheets("Data").Cells(i, x) <> "" Then m = Sheets("Data").Cells(i, x).Address o = Left(Sheets("Data").Range(m), 1) oo = Left(Sheets("Data").Range(m), 2) ooo = Left(Sheets("Data").Range(m), 3) oooo = Left(Sheets("Data").Range(m), 4) ooooo = Left(Sheets("Data").Range(m), 5) oooooo = Left(Sheets("Data").Range(m), 6) ooooooo = Left(Sheets("Data").Range(m), 7) oooooooo = Left(Sheets("Data").Range(m), 8) If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then With Columns(4).Rows(2000).End(xlUp) .Offset(1, 0) = Sheets("Data").Cells(i, x) Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1) End With End If End If Next End If End If End If End Sub اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2 اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000 فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000 ارجو ان كون استطعت ايصال المعلومة تحياتي ارقام 2 (2).xlsm

السلام عليكم السبب الاساسي فى فصل قسمي الباوربوينت الي قسم للاسئلة و اخر للدروس و الشرح، كان بهدف تفعيل خيار (افضل اجابة و تمت الاجابة) فى قسم الاسئلة و كما تم مناقشته هنا : تمت الاجابة - و أفضل اجابة، فقد تم توفير الخاصية لكافة المنتديات ، و عليه قد لا يبقي للفصل الي قسمين داعي ، و ووجودهما معا قد يكون اسهل فى المتابعة ، لذا اطرح هذا الموضوع للحوار فى قسم الباوربينت قبل الشروع فى الدمج الفصل : أكثر تنظيما الدمج : أسهل فى المتابعة و البحث عن معلومة

اخى الكريم لابد من رفع الملف كى يتم ضبط المعادلة فلا يمكن العمل على التخمين

بعد اذن الاساتذة الكرام هذا الماكرو Option Explicit Sub get_data() Dim B As Worksheet: Set B = Sheets("BASMMA") Dim N As Worksheet: Set N = Sheets("NASHER") Dim Dic As New Dictionary Dim i%: i = 2 Dim x With N Do Until .Range("B" & i) = vbNullString If Not Dic.Exists(.Range("B" & i).Value) Then Dic.Add .Range("B" & i).Value, .Range("F" & i).Resize(, 59).Value End If i = i + 1 Loop B.OLEObjects("Combobox1").Object.List = Dic.Keys End With x = N.Range("B:b").Find(B.Range("h2")).Row With B .Range("a2") = N.Cells(x, 1) .Range("b2") = N.Cells(x, 2) .Range("c2") = N.Cells(x, 4) .Range("e2").Resize(59, 1).Value = _ Application.Transpose(Dic.Items(x - 2)) End With Dic.RemoveAll End Sub الملف مرفق Salim_Search.xlsm

الف الف شكر استاذى ومعلمى

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

كيفية عمل فورم من خلال الفرام وتعديل التاريخ ب السباين بوتن الجزء التاسع الفيديو الصور الملف كيفية عمل فورم من خلال الفرام وقت التشغيل الجذء 9.rar

تفضل تسديد بتاريخ اليوم.xlsm

كيفية عمل فورم من خلال الفرام وقت التشغيل الجزء 8 الفيديو الصور كيفية عمل فورم من خلال الفرام وقت التشغيل الجذء 8.rar

اخي من الاقضل رفع ملف لرؤية عمل الكود والعمل علي المطلوب

السلام عليكم اضع بين ايديكم طريقة عمل القائمة المنسدلة على مايكروسوفت وورد متمنيا لكم الفائدة مرفق فيديو يشرح الطريقة قائمة منسدلة.docx

السلام عليكم نهنىء اخونا وحبيبنا محمد عصام ( ابو جودي ) اهلا وسهلا بك خبيرا معتمدا والف مبروك زادك الله علما ورفعة ونفع بك

رائــــــــــــــــــــــــــــــــــــــــــع جدا شكــــــــــــــــــــــــــرا الاستاذ سليم جعله الله فى ميزان حسناتك

جرب هذا الكود Option Explicit Sub Tarhil() Dim My_St: My_St = Sheets("data").Range("b1") Dim My_col% My_col = Sheets("tab").Range("A1:F1").Find(My_St).Column Sheets("data").Range("b2", Range("b1").End(4)).Copy _ Sheets("tab").Cells(2, My_col) End Sub

اخي جرب المرفق اكتب في الخلية C3 في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه ثم اضغط Inter ارجو ان يساعدك هذا تحياتي ارقام 2.xlsm

ان كنت تستخدم هذا الامر في البحث والذي يبنيه المعالج الافتراضي DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 استبدله بهذا DoCmd.RunCommand acCmdFind او هذا RunCommand acCmdFind واذا لم يفلح الامر ضع قاعدة تجريبية بالمشكلة وان شاء الله ستجد الحل :: تحياتي

لبس من الضروري ان يكون نفس المتفير MyID الرسالة تعطيك مثالاُ عما يجري فتش عن المتغير المكرر في الاكواد عندك هذا نتيجة عدم استعمال Option Explicit في بداية كل كود

وعليكم السلام لا يمكن الا بتوسعة ارتفاع الصف كما بالملف example.xlsx

السلام عليكم ورحمة الله وبركاته يا دكتور @حلبي والله انا كنت خايف اكون فهمت السؤال غلط لكن الحمد لله لك يذهب تعبى سدى اعتذر عن التأخر فى الرد انا اخدت الدواء ونمت لانى كنت مرخق جدا ولم استيقظ الا منذ قليل ارجوك بدون مبالغة انا مجرد طالب علم فقط الاجابة ما هى الا رزق من الله يساق الى صاحب السؤال ومن يتقدم بها ما هو الا سبب فقط قد سخره الله تعالى الى صاحب السؤال فالفضل كل الفضل لله سبحانه وتعالى هو صاحب العلم وهو الرزاق واشكرك على دعواتكم الطيبة لوالداى ولابنائى ونعم يا دكتور الحمد لله تعالى لى من الابناء ثلاث ابنتان وولد هما كل حياتى بعد والداى جزاكم الله خيرا نفس مدلول الكلام اوجه اليك استاذ @A7MD M7MD كل الشكر على دعواتكم لوالداى اسال الله تعالى من فضله ان يرزقكم بمثل ما دعوتم لى واسأله ان يزيدكم من فضله واسأل الله تعالى ان يرزق كل من تعلمت على يديه حرفا او فكرة فقد اخذو بيدى من ظلمات الجهل ولولا فضلهم بعد فضل رب العباد سبحانه لما استطعت تقديم اى شئ فوالله سوف اظل ادين لهم ما حييت اللهم احسن اليهم يارب كما احسنوا هم الينا واللهم زدهم علما ونورا واغفر لهم وللابائهم يارب العالمين اللهم ارفع درجاتهم فى الجنان يارب العالمين امين امين امين واخر دعوانا ان الحمد لله رب العالمين

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

تفضل الصف الأول بالدوائر الحمراء كنترول اولى - ت النهائى 201999(2).rar وإليك الصف الثاني بالدوائر الحمراء مع خاالص تحياتي ثانية(1).rar

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

الرجاء المرور على الملف لانه غير دقيق نهائيا الدرجو 8.5+12.8+غ = غ كيف؟ المفروض المجموع 21

بعد إذن أستاذنا الفاضل إبراهيم الحداد تم عمل التحقق من الصحة بالمعاداة مثلاً لمادة الرياضة العامة في خانة آخر العام =AND(OR(BA8="غ";BA8="صفر";AND(BA8>=0;BA8<=$BA$6))) حتى إذا تم تغيير درجة المادة يتماشى معها وتم عمل المعادلة التي ذكرها في خانة المجموع وإليكم الملف بعد التعديل كنترول اولى - ت النهائى 201999.rar

وعليكم السلام .... انظر المرفق ... New Microsoft Access قاعدة بيانات (6).accdb