samycalls2020

الأخ الكريم محمد يوسف الموضوع ليس أعمده ولكن الموضوع خاص ببعض الصفوف التي أريد استثنائها من إلغاء التصفية شكرا لمشاركتك المقدرة

هذه محاولة متواضعة .. ولكن ماذا إذا كان الجدول أكبر وأكثر في عدد الصفوف والأعمدة , ويكون عدد الصفوف المستثناة من إلغاء التصفية 50 صف أو أكثر إلغاء تصفية ماعدا.xlsb

الأخوة الأفاضل . . سلام الله عليكم أريد كود يقوم بإلغاء أي تصفية موجوده بالجدول ماعدا التصفية الموجودة من الصف السادس إلى الصف العاشر من الجدول تنويه : قد يكون الجدول أكبر وأكثر في عدد الصفوف والأعمدة , ويكون عدد الصفوف المستثناة من إلغاء التصفية 50 صف أو أكثر تحياتي إلغاء تصفية ماعدا.xlsb

مشكور أستاذنا الكريم

السلام عليكم لدى ملف باسم الخزينة أريد كود لسخ بيانات في العمود S3 حتى S102 وذلك يكون من ملف تقارير من F7 الى F106 وأن يغلق ملف تقارير بعد النسخ منه . كل التحية الخزينة.xlsb تقارير.xlsb

ألف شكر أ / محمد هشام ..تقديري وتحياتي

السلام عليكم . . الأخوة الكرام .هذا ملف المطلوب عمل كود لفرز عمود رقم واحد في الجدول بناء على الاسم الموجود في الخلية K4 والوقوف على اول خليه بها الاسم بعد الفرز في نفس العمود ..شكرا أول خلية.xlsb

الحمد لله الذى بنعمته تتم الصالحات شكر وعرفان للأستاذ / إبراهيم الحداد . . على هذا المجهود العظيم إن لله عبادا اختصهم بقضاء حوائج الناس حببهم إلى الخير وحبب الخير إليهم أسأل الله العلى القدير أن نكون منهم حفظك الله وسدد خطاك

أستاذي الكريم .. وعليكم السلام ورحمة الله الموضوع كله أن البيانات الموجودة في الملف الذى أرسلته أنا في بداية عرض الموضوع بيانات غير حقيقية وبعد تعديل الكود وعمله أردت أن أغير البيانات في ورقة الحركة بالبيانات الموجودة لدى فرفض الكود العمل عند تغير البيانات في الخلايا من D5 إلى D11 فمثلا D5 مادة أحياء إذا غيرتها بماده أخرى لا يعمل الكود وكذلك من G5 إلى G11 لو غيرت اسم يوم بيوم أخر لا يعمل الكود وكذلك في F سيكون التسجيل في ورقة الحركة مستمر وتراكمي بمرور الأيام وبدون مسحها ولكن يكون هناك قدرة على تعديل أي بيان في أي وقت ومع كل مرة تسجل بيانات جديدة يرحل الكود الى باقي الأوراق . الخلاصة : الكود تمام ويعمل جيدا ..بارك الله فيك . . ولكن كل المطلوب أن الخلايا المذكورة استطيع التعديل عليها كباقي الخلايا في ورقة الحركة دون اعتراض وتوقف الكود . دروس3.xlsm

بسم الله والصلاة والسلام على رسول الله أ / إبراهيم .. السلام عليكم .. عند التطبيق وأستخدم الملف لم يقبل الكود مسح أو تغير هذه البيانات في هذه الخلايا وذلك لكى أتمكن من كتابة البيانات الحقيقية الخاصة بي تغير بيان معين أو بعض البيانات أحياناً يكون أمر ضروري لأسباب مختلفة أ / إبراهيم .. أذكر أنى قلت أن إضافة ورقتين على أساس أسماء الطلاب محمود ومصطفى أخر طلب لي ولكني وجدت أن المصلحة لي ولغيرى تتطلب أن أتكلم عن هذا الأمر وهذه صورة الخلايا والبيانات التي لا تقبل المسح أو التغير كل الشكر والتقدير والاحترام

تمام أ / إبراهيم الكود يعمل . . الله يبارك فيك ولو سمحت لي بإضافة ورقتين على أساس أسماء الطلاب محمود ومصطفى وده أخر طلب فكيف يتم تعديل الكود دروس1.xlsm

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

السلام عليكم برجاء التكرم والمساعدة في عمل ماكرو ترحيل بيانات من ورقة الحركة الى الـ 14 ورقة الأخرى على أساس (المادة) لسبع ورقات بالمجموعة الزرقاء وعلى أساس (اليوم) لسبع ورقات أخرى بالمجموعة الحمراء ويكون الترحيل مرتب حسب التاريخ ( التسلسل الزمنى ) وبدون اسطر فارغة . كل الشكر والتقدير دروس.xlsm

السلام عليكم لدى طابعة HP LaserJet P1102 تعمل على ويندوز Win 10 21h2 .. المشكلة هى اختلاف التنسيق المعروض في الشاشة عن التنسيق بعد الطباعة مع أننى استخدمة ويندوز7 فى الفترة السابفة مع نفس الطابعة كان التنسيق المعروض في الشاشة مطابق للتنسيق بعد الطباعة .. فما هو سبب المشكلة .. هل الطابعة أم ويندوز 10 أم شئ أخر ؟ عند الضغط على Ctrl + P لطباعة الجزء المحدد تكون معاينة الطباعة مضبوطة كما أرغب بعد أختيار طباعة التحديد من الأعدادات ولكن عند الطباعة تجد الأمر مختلف على الورق وما هو الحل ؟ ..ولكم كل الشكر إيصال إستلام قيمة إيجار شهرى.xlsx

السلام عليكم أرجو المساعده .. فى نقل شكل وتغير حجمه وعودته لحجمه ومكانه .. المراد 1- عمل ماكرو لتحريك شكل الى أعلى يسارً وجعل حجمه 1 طول و1 عرض 2- عمل ماكرو لعودة الشكل الى مكانه وحجمه شكراً التحكم فى شكل.xlsm

السلام عليكم .. أرجو المساعده قى هذا الكود عمل كود تلقائى يعمل عند فتح الملف إذا C5 تساوى C12 يكون من E5 الى E12 = "" أى لاشئ أو delete من E5 الى E12 كود بشرط.xlsm

أشكرك أ / مهند

السلام عليكم .. الأخوة الأفاضل .. هل من طريقة لجعل الأرقام الزائدة عن 15 رقم لاتتحول الى أصفار الأرقام الطويلة.xlsx

للرفع

السلام عليكم .. مرة أخرى وإن شاء الله أخيرة فى هذا الموضوع إن أذن لى استاذ / سليم.. Double_but2.xlsm

طلب أخير استاذ / سليم .. أن سمحت لى أضفت زر أخر لنفس الماكرو والمراد .. هو أن يعمل الزران معاً بنفس الماكرو ويتغير نصهما ولونهما معاً بالضغط على أى منهما . زر مزدوج2.xlsm

السلام عليكم .. هل يمكن اضافة للكود بحيث يتم تغير لون الشكل مع لون الكلمة زر مزدوج.xlsm

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

أستاذى الفاضل .. أين جملة الأستدعاء فى ماذكر من أمثله مثال هذا كود يعمل بزر Sub للتصفية() ' لنسخ حساب القائمة المنسدلة من أرصدة الى الخزينة Sheets("الخزينة").Range("H9").Value = Range("D7").Value Application.ScreenUpdating = False Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set ws = Sheets("الخزينة") Set sh = Sheets("تصفية") Application.ScreenUpdating = False ' إلغاء الفرز والتصفية إن وجد لجدول3 Sheets("الخزينة").Range("الجدول3").AutoFilter ' تصفية للعمود 13 P Sheets("الخزينة").Range("الجدول3").AutoFilter Field:=13, Criteria1:= _ "<>" Application.ScreenUpdating = False sh.Range("D12:N11011").ClearContents lr = sh.Cells(Rows.Count, 4).End(xlUp).Row + 1 Application.ScreenUpdating = False ws.Range("D12:K11011").SpecialCells(xlCellTypeVisible).Copy sh.Range("D" & lr).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = False ' إلغاء تصفية للعمود 13 P Sheets("الخزينة").Range("الجدول3").AutoFilter Field:=13 End Sub أين تكون الأضافة حتى لايعمل أى كود أخر فى الملف وليس فى الورقة نفسها فقط سواء كان تلقائى أو بزر

الأستاذ عبد الفتاح / سلام الله عليكم مثلا لديك اكثر من ماكرو sub macro1() , sub macro2 تكتب call macro1 , call macro 2 السؤال .. أين نكتب هذا ؟ فى نفس الماكرو المطلوب استدعائه .. أم فى ماكرو منفصل وماذا إن كان هناك عدد من الماكرو تلقائى (يعمل بدون زر) وغيرهم يعمل بزر لأن المشكلة عمل عدد كبير من الماكرو فى نفس الوقت يسبب بطئ شديد