ابوعبدالعزيز111111

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

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

السلام عليكم ورحمة الله وبركاته سؤالي هو اثابكم الله عن كيفة البحث عن اسماءاشتركو في لعبة معينة مثال: لدي لاعبين كثر في العاب مختلفة اريد ان ابحث عن اللعيبة في لعبة معينة عن طريق ادخال اسم اللعبة مثل كرة قدم او رمي الجلة او الجري وجزاكم الله خيرا

EMembers-3 اشكرك على تفاعلك وجعله الله في موازين اعمالك وياليت تكمل معروفك وتشرح لنا كيف كيف تم عمل هذا العمل لتعم الفائدة لي ولغيري وشكرا

لدي طالب في سباق جري اريد ان ادخل الوقت الذي استغرقة الطالب لقطع مسافة معينة وحتساب درجته حسب الوقت اللي استغرقة مثال المسافة 1600 متر الوقت 6دقائق و23 ثانية = الدرجة 100 6دقائق و29 ثانية = الدرجة98 وهكذا ارجو المساعدة

اخي الاستاذ عبدالله اثابك الله شكر لك صنيعك سؤالي هو طريقةالترحيل من اوراق عدة الي ورقة واحد وانا نفذت هذا الكود ولكن في اخطاء بالرغم من انه ادى الغرض والكودهو Application.ScreenUpdating = False Dim lr As Integer lr = [a100].End(xlUp).Row Sheets("a").Range("a1:n" & lr).Copy Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Sheets("b").Range("a1:n" & lr).Copy Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Sheets("c").Range("a1:n" & lr).Copy Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Sheets("d").Range("a1:n" & lr).Copy Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Sheets("f").Range("a1:n" & lr).Copy Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Sheets("x").Range("a1:n" & lr).Copy Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Sheets("v").Range("a1:n" & lr).Copy Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues Sheets("a").Range("a1:n" & lr).Delete Sheets("b").Range("a1:n" & lr).Delete Sheets("c").Range("a1:n" & lr).Delete Sheets("d").Range("a1:n" & lr).Delete Sheets("f").Range("a1:n" & lr).Delete Sheets("x").Range("a1:n" & lr).Delete Sheets("v").Range("a1:n" & lr).Delete End Sub