ياسر خليل أبو البراء

أخي المسكين قل إنا لله وإنا إليه راجعون الإنسان لازم يغلط عشان يتعلم * أولاً لو الملف ما زال مفتوحاً يبقى تعمل تراجع Ctrl+Z أما إذا أغلق الملف بعد الحفظ فقل إنا لله وإنا إليه راجعون ثانياً : بعد كدا لما يكون ملف مهم اعمل نسخة احتياطية كل فترة وممكن لو ملف مهم قوي اعمل نسخة احتياطية للملف بعد أي تعديل حتى يمكنك الرجوع إلى النسخة الاحتياطية في حالة فقدان البيانات أو حدوث أي خطأ !!

أولا نبهتك إن الناس صايمة ومفيش فايدة أكذب عليك لو قلت أنا فاهم (إنت بتتكلم على الورقة الأولى اللي اسمها الزيوت ولا الثانية اللي اسمها توزيع الزيت) وضح أكتر وأعطي النتائج المتوقعة أو المطلوبة (وأخيراً راعي حالة الناس في الصيام)

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

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

يوجد طريقة أخرى ولكن ستجعل اتجاه الورقة من اليسار إلى اليمين عن طريق تغيير الخاصية DisplayRightToLeft إلى False

لو ممكن ترفقي ملف للتوضيح اضغطي الملف بوينرار قبل إرفاقه

أخي الكريم سعد عابد جزيت خيراً على كلماتك الرقيقة وأسلوبك المهذب كل سنة وإنت طيب يا راجل يا طيب

أخي الغالي الكود يعمل معي الآن بشكل صحيح جرب الملف التالي Amir.rar

أخي عامر جرب الكود بالشكل التالي Sub Auto_open() Dim Expiry As Date Expiry = DateValue("10/09/2010") If Date < Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual Sheets(2).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Application.Calculation = xlAutomatic Application.ScreenUpdating = False Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet4.Visible = xlSheetVeryHidden Sheet5.Visible = xlSheetVeryHidden Sheet1.Visible = True Sheet1.Select Else ActiveWorkbook.Save ActiveWorkbook.Close End If End Sub

أخي الغالي طلباتك كترت وكدا بقى مش حنسيبك غير لما تعزمنا على الأفطار أو تدعي لنا دعوة طيبة بالنسبة لطلبك يا بطل بسيطة قوي ادخل على التبويب View ثم انقر على Normal فتعود الأمور إلى طبيعتها

بسم الله ما شاء الله عليك يا ابن علية فعلاً ما يجيبهاش غير بن علية (ملك المعادلات) بارك الله فيك وجعل أعمالك في ميزان حسناتك

الأخ الحبيب إليك ما طلبت (كود تعبت فيه جداً ...) إن شاء الله دا حل مؤقت حتى يستطيع أحد الأعضاء أن يقدم حل أسهل أخوك أبو البراء SumDates.rar

أخي الغالي إليك الملف التالي به البيانات مرتبة حسب اسم العائلة بالنسبة للطلب الثاني :محتاج شزية تفصيل (يعني إنت عايز في الشيت الجديد اسم العائلة فقط من غير أي بيانات أخرى ؟؟وهل تريد اسم العائلة مكرر أم تريد اسم العائلة يمتب مرة واحدة في الورقة الجديدة ) أرجو الإيضاح أخوك أبو البراء TestFile.rar

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

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

أخي الحبيب طلبك مش واضح ...عموما حسب ما فهمت إليك الملف التالي افلام والت ديزني.rar

كل عام وأنت بخير أخي الحبيب إليك ما طلبت وإن شاء الله يكون بفايدة ومتنساش لي عندك دعوة أخوك أبو البراء Final.rar

أخي الحبيب ما تقصده هو التصفية Filter وليس الفرز Sort عموماً قمت بإزالة المسافات في بداية أسماء الأفلام حتى تحصل على نتائج دقيقة اطلع على الملف المرفق واخبرني بالنتيجة أخوك أبو البراء Test.rar

الأخ ضياء أعتذر على التأخر في الرد عليك إليك شرح مبسط للكود الذي استخدمته Application.ScreenUpdating = False For Each cell In Range("RNG") If cell.Value = "" Then cell.Value = "" Else cell.Value = cell.Value * 1 End If Next cell Application.ScreenUpdating =True السطر الأول لإيقاف عملية تحديث الشاشة أثناء تنفيذ الكود (هذا يضمن سرعة تنفيذ الكود إلى حدٍ ما) قمت بتحديد نطاق الأرقام (التي يتم التعامل معها على أنها نصوص وليس أرقام ) وذلك لتحويلها إلى أرقام السطر الثاني من خلاله يتم الإشارة إلى كل خلية في هذا النطاق السطر الثالث جملة If الشرطية :إذا كانت الخلية فارغة أي ليس بها بيانات نتركها كما هي أما إذا لم تكن الخلية فارغة فإن قيمة الخلية يتم ضربها * 1 وهذا هو لب الكود (الهدف من هذا السطر تحويل النصوص إلى أرقام) ثم إنهاء جملة If وإنهاء جملة For Each أخيرا تفعيل تحديث الشاشة مرة أخرى

أخي الحبيب تفضل الملف المرفق بس ما تنساناش بدعوة عند الإفطار أخوك أبو البراء حساب فرق في التاريخ.rar

أخي الحبيب رغم أن طلبك غير واضح عموما إليك الملف التالي عله يفي بالغرض tt.rar

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

أين هي تلك الفكرة أخي أبو عبد الله؟؟ أنا مش شايف الفكرة ولا إنت اللي نسيتها ولا فيه ايه؟؟؟ الصيام بدأ يعمل عمايله مع الناس ..لسه على ما نتعود كل سنة وإنت طيب

بسم الله ما شاء الله الإبداعات في الصيام أفضل من إبداعاتك في أيام الإفطار تسلم الأيادي يا باشمهندس يا كبير وكل سنة وإنت طيب

ولا يهمك حبيبي مفيش تعب ولا حاجة..إنت تؤمر كل عام وإنت بخير