سـامي 169

اكمل الجميل ماهو التغيير الذي تم

الله عليك وعلى الدفه يحفظك ربنا استاذ اسامه ارجو شرحها ElseIf InStr(1, Cells(R, 113).Value, "دور ثان") Then وعندى سؤال ارجو التكرم بالاجابه عليه هل يمكن تغيير كود الترحيل هذا الى كود استدعاء يعني عايز اضع الزر في صفحة كشف الناجح وزر في كشف الدور التاني

استاذ اسامه صعها في المرفق من فضلك ادام الله عليك الخير

الاستاذ اسامه الله يبارك لك ويجزيك الله كل خير ..لم ار مشاركتك جاري التجريب

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

يجزيك الله كل خير اخي القومي اريد ان تتفضل بايجاد حل الولد هتكون الكلمه المعيار هي .. له دور ثان في والبنت هتكون كلمة المعيار هي .. لها دور ثان في فكيف نتصرف في هذه الحاله من اجل ترحيلهم ارجوكم

لولد هتكون الكلمه المعيار هي .. له دور ثان في والبنت هتكون كلمة المعيار هي .. لها دور ثان في فكيف نتصرف في هذه الحاله من اجل ترحيلهم ارجوكم

عمود الحاله هو اللي فيه ناجح او دور تان وعمود ال M هو اللي هيكون فيه اسماء مواد الدور التاني اخي الكريم If Cells(R, 113) = "دور ثان في" Then الولد هتكون الكلمه المعيار هي .. له دور ثان في والبنت هتكون كلمة المعيار هي .. لها دور ثان في فكيف نتصرف في هذه الحاله

Sub HH_START() Dim b As Integer, M As Integer Sheets("كشف ناجح").Range("c7:m1000").ClearContents Sheets("كشف الدور الثاني").Range("c7:m1000").ClearContents M = 7: b = 7 Application.ScreenUpdating = False For R = 1 To 1000 If Cells(R, 113) = "ناجح" Then Range("A" & R).Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,df1,di1").Copy Sheets("كشف ناجح").Range("c" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 End If If Cells(R, 113) = "دور ثان في" Then Range("A" & R).Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,df1,di1").Copy Sheets("كشف الدور الثاني").Range("c" & b).PasteSpecial xlPasteValues Application.CutCopyMode = False b = b + 1 End If Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub Range("b1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,df1,di1" لماذا اخترنا هذه الحلايا وخاصه الرقم 1 اخي الكريم القومي يحفظك الله لماذا اخترنا هذه الحلايا وخاصه الرقم 1

كرما منكم اريد كود استدعاء الناجحين والدور الثاني في هذا المرفق جزاكم الله خيرا استدعاء بيانات الناجحين والدور الثاني.rar

Option Explicit Sub nageh_SALIM() Dim Dico, D, k Dim C As Range, Rng As Range Dim B As Long, I As Long Dim MyVal As Range Dim lrc As Integer, lrcq As Integer _ , lrb As Integer, m As Integer Dim lra As Integer lrc = Sheets("الشيت كامل").Cells(Rows.Count, "c").End(xlUp).Row Set Rng = Sheets("الشيت كامل").Range("c13:c" & lrc) lrcq = Sheets("الشيت كامل").Cells(Rows.Count, "cq").End(xlUp).Row Set MyVal = Sheets("الشيت كامل").Range("cq13:cq" & lrcq) lrb = Sheets("ناجح").Cells(Rows.Count, "b").End(xlUp).Row Sheets("ناجح").Range("B2:B" & lrb).ClearContents lra = Sheets("ناجح").Cells(Rows.Count, "a").End(xlUp).Row Sheets("ناجح").Range("a2:a" & lra).ClearContents Set Dico = CreateObject("Scripting.Dictionary") For I = 13 To lrcq If Sheets("الشيت كامل").Range("cq" & I) >= 160 Then If Not Dico.Exists(Sheets("الشيت كامل") _ .Range("c" & I)) Then Dico.Add Sheets("الشيت كامل") _ .Range("c" & I).Value, Sheets("الشيت كامل").Range("cq" & I).Value End If Next I B = 2 m = 2 For Each D In Dico.items Sheets("ناجح").Range("b" & B) = D B = B + 1 Next D For Each k In Dico.Keys Sheets("ناجح").Range("a" & m) = k m = m + 1 Next k Sheets("ناجح").Columns("a:b").Font.Size = 18 Sheets("ناجح").Columns("a:b").AutoFit End Sub كود مفيد جزاك الله خيرا استاذ سليم حاصبيا ولكن نريد ان يتم استدعاء ايضا اعمدة معينه اخرى ماذا نفعل ؟

رابط لآخربورتيبل لافضل برنامج لتعليم الكتابه على لوحة المفاتيح http://up.top4top.net/downloadf-top4top_46db9bc6141-rar.html رابط لآخربالتنصيب لافضل برنامج لتعليم الكتابه على لوحة المفاتيح http://up.top4top.net/downloadf-top4top_7fc21fea051-rar.html

تعلم الكتابه على لوحة المفاتيح بسرعه فائقه بأفضل برنامج Typing Arabic مفيد.rar

الله يبارك لك تمام التمام استاذ سليم حاصبيا ويجزيك عني كل خير

لو سمحتم المعادله مش عارف اضبطها

تعمل جيدا وعند تغيير الى ارقام تعطي الخطأ na ساعدوني

تمام التمام يحفظك ربنا استاذ سليم

استاذ سليم جزئيه صغيره في حاله اختيارنا الخليه B11 تكون الخليه B12 تكتب رقم مثلا لو اخترت الصف الثاني يكتب 2 ولو اخترت الصف الخامس يكتب 5

=IF(MATCH($B$11;$E$1:$E$6;0)+1<7;INDEX($E$1:$E$6;MATCH($B$11;$E$1:$E$6;0)+1);$E$1) عز الطلب ربنا يبارك لك استاذ سليم حاصبيا

الموضوع مش حب في 2003 وانما اجهزة المدارس ضعيفة آدي الحكايه

تعطي الخطأ name

=_xlfn.IFERROR(INDEX($E$1:$E$6;MATCH($B$11;$E$1:$E$6;0)+1);$E$1) استاذ سليم يجزيك الله الف خير ولكني اعمل على اوفيس 2003 والجزء الملون بالاحمر هل من الممكن نزيله

احضار كلمه بدلاله كلمه اخرى عندما اختار في الخليه B11 الصف الاول تأتي في خليه B17 الصف الاعلى منها يعني تكتب الصف الثاني الابتدائي كرما منكم الصف الرابع.rar

استدعاء بيانات الشهادات بداله اوفيست يدلاله رقم الجلوس وبها قائمه مطاطه لرقم الجلوس للمبدع ياسر خليل ووالمبدع سليم حاصبيا Offset Function.rar

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