محي الدين ابو البشر

Sub Transfer() Dim rg As Range With Sheets("ورقة1") Set rg = .Range(.Range("A1:D1"), .Range("A1:D1").End(xlDown)) With rg .AutoFilter Field:=1, Criteria1:="منفذ" .Offset(1).Copy Sheets("ورقة2").Range("A2") .AutoFilter End With End With End Sub

الحمد لله ولك الشكر في حدث الصفحة (Sheet code) يوجد ماكرو يعمل فقط عند تغير الرقم(Sheet code)

ربما بناء على رقمكم (رقمنا) ترحيل بيانات للنموذج.xlsm أو بالمعادلات ترحيل بيانات للنموذج.xlsx

=FLOOR(B2,250) أو =FLOOR(B2;250) ???????????

والسلام عليكم ورحمة الله وبركاته هل تقصد شيء كهذا؟؟!! aBoo.xlsm

سلف الديار.xlsx

بارك الله

أخي الكريم عملت على الملف الأول ولم انتبه إلى تعديل الملف على كل جرب هذا عسى يكون المطلوب Double Dlick على إي خلية في العمود E (رقم ملف الحالة) سوف يظهر التقرير الخاص ... Book2.xls

يمكن تعديل السطر ReDim a(1 To 100, 1 To 2) إلى ReDim a(1 To 1000, 1 To 2) و أخبرني بالنتيجة بالتوفيق

هذا آخر ملف لك مع الكود المنقح ويعمل جيداً بعد الأخذ بعين الاعتبار الملاحظة التالية إذا سمحت لي: حسب العمود الأول لديك دائما تبدأ بـ اسم المدرسة ثم "المدرسة" ، أرقام الكتتاب ثم "رقم الاكتتاب" ..... وفي النهاية الديانات ثم "الديانة" هذا الكلام جميل ولا غيار عليه ولكن لا أدري لماذا في بعض المدارس يختلف الترتيب في الديانات "الديانة" ثم الديانات جرب الملف المرفق مع التعديل عسى يناسبك تحويل عمود 4 معدل.xlsm

لم تذكر ما هي التغييرات مع ذلك تحويل عمود (1).xlsm

عسى يكون المطلوب تحويل عمود (1).xlsm

فهمت الموضوع غلط آسف عل الـ MIS UNDERSTANGIG

تحويل عمود .xlsm

من الصورة أعلاه يبدو أنها غير الملف الذي ارسلته في المشاركة الأولى!!! مع العلم أن الكود يعمل على ملفك جيداً أو ممكن أن نحاول استبدال السطر With Columns(1)بـWith [a:a]