خالدي ابراهيم قام بنشر أغسطس 15, 2013 مشاركة قام بنشر أغسطس 15, 2013 السلام عليكم انا انشاءة قائمة عمودية بها اسماء اشخاص وبجانبها قائمة باسم ارقام انا اريد ربط الارقام باسم الشخص المراد مثال خالدي =20 مصطفى =18 ابراهيم = 17 محمد = 23 احمد 19 وبحيث ان الارقام مرتبة الى القيمة الكبرى يعني اريد عندما يزيد الرقم يرتقي صاحبه الى المركز متقدم واتمنى ان فكرتي واضحة رابط هذا التعليق شارك More sharing options...
خالدي ابراهيم قام بنشر أغسطس 15, 2013 الكاتب مشاركة قام بنشر أغسطس 15, 2013 الا توجد ردود رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 15, 2013 مشاركة قام بنشر أغسطس 15, 2013 اخي الكريم الرجاء ارفاق مثال وبه النتيجه المطلوبه رابط هذا التعليق شارك More sharing options...
خالدي ابراهيم قام بنشر أغسطس 15, 2013 الكاتب مشاركة قام بنشر أغسطس 15, 2013 انا اريد ترتيبها من الاكبر الى الاصغر بحيث ان الاسماء تتحرك مع الارقام رابط هذا التعليق شارك More sharing options...
خالدي ابراهيم قام بنشر أغسطس 15, 2013 الكاتب مشاركة قام بنشر أغسطس 15, 2013 و هذا هو الملف 22222.zip رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 15, 2013 مشاركة قام بنشر أغسطس 15, 2013 السلام عليكم ضع هذا الكود في حدث ورقة1 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1:B5")) Is Nothing Then With Range("A1:B5") .Sort .Columns(2), xlDescending End With End If End Sub المرفق 2010 222222.rar تحياتي 1 رابط هذا التعليق شارك More sharing options...
خالدي ابراهيم قام بنشر أغسطس 15, 2013 الكاتب مشاركة قام بنشر أغسطس 15, 2013 ممكن شرح بالصور اين اضع هذا الكود رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أغسطس 15, 2013 مشاركة قام بنشر أغسطس 15, 2013 الأستاذ / خالدي إبراهيم الملف جاهز وبه الكود للعلامة الكبير أستاذنا / عبد الله باقشير فقط وسعت المدى لكي يعطي مساحة اكبر لك حاول أن تجرب وتكتب أي اسم وأي رقم سوف يتم الترتيب مباشرة. A22.rar رابط هذا التعليق شارك More sharing options...
خالدي ابراهيم قام بنشر أغسطس 15, 2013 الكاتب مشاركة قام بنشر أغسطس 15, 2013 شكرا يا عباقرة الاكسل رابط هذا التعليق شارك More sharing options...
خالدي ابراهيم قام بنشر أغسطس 15, 2013 الكاتب مشاركة قام بنشر أغسطس 15, 2013 مشكلة و لو اتعبتكم معي ادخلت ه>ا الكود الى صفحة اخرى ونجح لكن بعد فترة توقف رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 15, 2013 مشاركة قام بنشر أغسطس 15, 2013 السلام عليكم ربما بهذه الصورة يكون المجال اوسع Private Sub Worksheet_Change(ByVal Target As Range) LR = Cells(Rows.Count, 2).End(xlUp).Row If Not Intersect(Target, Range("A1:B" & LR)) Is Nothing Then With Range("A1:B" & LR) .Sort .Columns(2), xlDescending End With End If End Sub رابط هذا التعليق شارك More sharing options...
خالدي ابراهيم قام بنشر أغسطس 15, 2013 الكاتب مشاركة قام بنشر أغسطس 15, 2013 شكرا جزيل نجح الامر رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 15, 2013 مشاركة قام بنشر أغسطس 15, 2013 ارجو المعذرة من أخي عبد الله و اختي ام عبد الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.