دغيدى

أخى .. محمود دمت دوما كريما فى وقتكم وعطائكم

أخى جمال الملف لم يفتح مع العلم أننى استخدم ووندوز 7 واوفيس 2010 و 2013 مرسل صورة الرسالة

أخى جمال قبل تنزيل العمل الذى انا واسق منه أقول كفاك اسمك " جمـــــــال "

أخى الفاضل / أ / هاني عدلي سلمت يداك .. خذ بنصيحة أبو خديجة بارك الله فيكما

عفوا تعديل بسيط فى الأوائل شيت هيثم 3.rar

أخى الفضل محمود شكرا لكم وكفاكم تواضعا تم تعديل آخر بعد مشاركتكم وهى اضافة المجموع

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

أخى الفاضل / ابو خديجة وحنين أفاض الله عليكم من العلم ماينفع

أخى محمــــــــــــود بارك الله فيكم

تم عمل اللازم من تغيير العنوان وبعض أخطاء الكتابة

أخى الكريم أبو خديجة وحنين يفضل مسح الرسالة لأننى دخلت عن طريق الرسالة رغم تغيير رقم الهارد شكرا لكم

أخى الكريم أبو خديجة وحنين عيدية وهدية شكرا لكم

أخى ىالفضل أهلا بك عضو جديد ولكن يجب كتابة عنوان يد على الموضوع .. ويحب أن يكون الطلب واضحا منتظركم حتى نغير العنوان

سلمت أخى يا محمود

{ كُلُّ مَنْ عَلَيْهَا فَانٍ * وَيَبْقَى وَجْهُ رَبِّكَ ذُو الْجَلَالِ وَالْإِكْرَام } { وَلَنَبْلُوَنَّكُمْ بِشَيْءٍ مِّنَ الْخَوفِ وَالْجُوعِ وَنَقْصٍ مِّنَ الأَمَوَالِ وَالأنفُسِ وَالثَّمَرَاتِ وَبَشِّرِ الصَّابِرِينَ {البقرة/155} الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ {البقرة/156} أُولَئِكَ عَلَيْهِمْ صَلَوَاتٌ مِّن رَّبِّهِمْ وَرَحْمَةٌ وَأُولَئِكَ هُمُ الْمُهْتَدُونَ }

أخى الفاضل / عبد الله بارك الله فيها وبارك لكم اللهم اجعلها قرة عين لك

الأخوة الأحباء كل عام وأنتم بخير بمناسبة عيد الفطر المبارك أعاده الله عليكم بالخير والبركة والسعادة تقبل الله صيامكم وقيامكم كل عيد وأنتم بخير

أخى الكريم / يحيى حسين أثابكم الله فى هذا الشهر الكريم

أخى الحبيب .. جمــــال الفــــار شكرا جزيلا

Private Sub Worksheet_Selectionchange(ByVal Target As Range) A = "A" 'عمود التسلسل B = "B" 'عمود البيانات R = 3 'البيانات تبدأ من الصف '================================================= L = Range(B & 65000).End(xlUp).Row If L < R Then Exit Sub Range(Cells(R, A), Cells(L, A)).ClearContents '================================================= For i = R To L If Cells(i, A) = "" And Cells(i, B) <> "" Then N = N + 1 For ii = i To L If Cells(ii, B) = Cells(i, B) Then Cells(ii, A) = N End If Next ii End If Next i End Sub =============================================== أحى الفاضل / إبراهيم ابوليله ضع هذا الكود فى حدث الورقة المختارة يعمل بدون زر

I رقم متغير يدل على الصف 2 العمود الثانى

أحبائى جمال الفار أحمد فضيلة الشكر كل الشكر لكما نعم الأخوةأنتم كل عام وأنتم بخير

أخى الفاضل / على نور اسم على مسمى

أخى / محمد يحياوي الكبير كبير