سمرقند الجيلاني

تحياتي لكل القائمين بالمنتدى ملف.zip

مساء الخير... لك كل الشكر استاذ ياسر .. بس والله ما فهمت شي كل شي بالانقلش.. شكرا على كل حال والشكر لكل المحترفين بالموقع

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

السلام عليكم ورحمة الله وبركاته الأخ ياسر العربي الأخ ناصر سعيد إذا فيه مجال احكي معك بالخاص لاني ما فهمت شي تحياتي لجميع السادة المحترفين بالموقع

مساء الخير الاخوة الكرام... بصراحة عندي ورقة عمل اريد ادخال البيانات الثابتة بالتذييل ولكن للأسف تطلع رسالة تقول استخدم كم كبير من الحروف ارجو الانقاص وانا ما فيني اتنازل عن اي كلمة لان كل البيانات عن اعتماد الصفحات بالورقة تشمل الادارة وبيانات الادخال والتوقيعات والتاريخ ولازم تكون موجودة بكل ورقة ولكم الشكر من الاخت سمرقند

وعليكم السلام ورحمة الله وبركاته جار تحميل الملف .. شكرا بارك الله فيك.. رح اطلع عليه واشتغل بيه واذا صعب علي شي برجعلكم تحياتي..

السلام عليكم ورحمة الله وبركاته.. عندي منظومة بالاكسل شغل مدرسة للنتائج.. اريد الدالة اللي تستخدم في نقل الراسبين لشيت خاص .. على فكرة ما اعرف اتعامل بالماكرو ولا ادخال الفيجول بيسك عشان هيك بدي داله .. ارجو المساعدة

إذا سمحتم حد يترجملي هذا الكود Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ÇáäÇÌÍæä").Range("a9:am138").ClearContents Sheets("ÑÇÓÈ").Range("a8:am1000").ClearContents Application.ScreenUpdating = False X = 8: Y = 8 For I = 8 To LR If Cells(I, 39).Value = "äÇÌÍ" And Cells(I, 2) <> " " Then Range("a" & I).Resize(1, 39).Copy Sheets("ÇáäÇÌÍæä").Range("a" & X).PasteSpecial xlPasteValuesAndNumberFormats Application.CutCopyMode = False X = X + 1 ElseIf Cells(I, 39).Value = " áå ÏæÑ ËÇä" And Cells(I, 2) <> " " Then Range("a" & I).Resize(1, 39).Copy Sheets("ÑÇÓÈ").Range("a" & Y).PasteSpecial xlPasteValuesAndNumberFormats Application.CutCopyMode = False Y = Y + 1 End If Next I Application.ScreenUpdating = True End Sub