عبد الفتاح كيرة

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

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

ماشاء الله على الردود الطيبة و الجميلة أخى mohammadey1 شكرا لك و جزاك الله خيرا أخى أبا أحمد شكرا لك و بارك الله فيك أخى الأستاذ جمال شكرا جدا لردك الطيب أخى الأستاذ سعد شكرا لدعائك ( فعلا أهم حاجة العافية و الستر ) أما سعادة المراقب الأستاذ طارق فقد شرفت بمروره بالموضوع الأخ accountant_mostafa لما تفتح الملف بواسطة إكسل 2007 ستأتيك رسالة لتفعيل الماكرو كى ينفذ الكود - وافق عليها بالتوفيق للجميع

السلام عليكم هذه وسيلة للتنقل عبر شيتات المصنف بواسطة كود يضيف ارتباطا تشعبيا لكل ورقة من أوراق المصنف أعتقد أنه كود بسيط و جميل لا يستنفذ ذاكرة ولا وقتا فى التنفيذ الارتباطات تضاف بدءا من الخلية a2 ثم إلى أسفل حسب عدد الشيتات الصورة الكود Sub List_All_Sheet_Names_in_Column_A_with_Hyperlinks() Range("a1:a100").ClearContents For Each wsh In ThisWorkbook.Worksheets Range("A65536").End(xlUp).Offset(1, 0).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=wsh.Name & "!A1", TextToDisplay:=wsh.Name Next wsh End Sub الملف التطبيقى إضافة ارتباط تشعبى للأوراق بالكود.rar

عليكم السلام جزاك الله خيرا ووفقك و جميع الإخوة لما فيه الخير

عليكم السلام و رحمة الله نعم بالضبط كما لاحظت أنت فى المعيار نحدد عنوان العمود + المعيار ولابد أن يكون العنوان فى المعيار موافقا تماما للعنوان فى البيانات لا مسافة زائدة و لا كشيدة و لا غير ذلك الحقيقة الفلترة المتقدمة باب كبير من أبواب إكسل يمكنك فلترة أى بيانات بهذه الطريقة كما أن الكود المسجل يمتاز بالسرعة لأنه يستخدم وظيفة مبيتة فى البرنامج ألا وهى الفلترة المتقدمة ============ ينبغى التدريب على هذه الميزة لإتقنها موفق بإذن الله

أخى جمال اطرح واحدا من هذا السطر من الكود LastOpen = Date - 1 & " " & Time الصورة

و الجزء الثالث

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

نعم فعلا ظننت أن الأخ السائل يريد الإبقاء على الصفحة الأولى تعديل : For I = 1 To 12 Sheets(I).Range("b5:O2500").ClearContents Next I Sheets("ورقة1").Range("A1").Select

بعد إذن أستاذنا جمال اختصرت الكود For I = 2 To 12 Sheets(I).Range("b5:O2500").ClearContents Next I Sheets("ورقة1").Range("A1").Select * للفائدة : ليس ضروريا أن تحدد المدى كى تحذفه - احذف مباشرة

تفضل و إن أردت احذف الزر kemas2-فرز.rar

عليكم السلام و رحمة الله تفضل غير من القائمة ثم اضغط الزر kemas-فرز.rar

شكرا أستاذ أحمد بارك الله فيك

شكرا لكم إخوتى الكرام

نعم أستاذ zoom10 و شرح الفديو هذا استفدته من موضوعك الذى أشرت أنت إليه و هو موضوع قيم استفدت منه كثيرا بارك الله فيك

أشكرك يا أستاذ جلال بارك الله فيك

شاهد هذا الشرح وقد أفردته بموضوع مستقل لعموم الفائدة

السلام عليكم أرجو المعذرة لعدم ضبط الصوت بصورة سليمة لكن يمكن سماعه جيدا مع زنة بسيطة يوضح الفديو كيفية ربط ملف الإكسل مع ملف الوورد وحدود هذا الربط إلى الفديو

نعم لإغلاق إكسل بدون تحذير Sub Button1_Click() Application.DisplayAlerts = False ActiveWorkbook.Close Application.Quit End Sub

لا مشكلة فقط غير خصائص listbox كما بالصورة المرفقات ليست بوكس 21 عمودا.rar

=IF(AI14<>1;IF($A14="";"";IF(AC14/AC$12>=85%;"ممتاز";IF(AC14/AC$12>=75%;"جيد جداً";IF(AC14/AC$12>=65%;"جيد";IF(AC14/AC$12>=50%;"مقبول";IF(AC14/AC$12<50%;"دون المستوى";""))))));IF($A14="";"";IF(AC14/AC$4>=85%;"ممتاز";IF(AC14/AC$4>=75%;"جيد جداً";IF(AC14/AC$4>=65%;"جيد";IF(AC14/AC$4>=50%;"مقبول";IF(AC14/AC$4<50%;"دون المستوى";"")))))))

هناك تنسيقات أخرى لتصدير الملف جرب نوعا آخر مثلا ملف وورد2003 أو إكسل 2003

و بعد الإدخال نضع Selection.Locked = True