أحمد فؤاد

فكرة رائعة من أستاذنا القدير بن علية وتطبيق دقيق من أستاذنا / الشهابي بارك الله فييييييييييييك وجعله في ميزان حسناتك

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

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

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

ألف مبروووووووك ويارب دائما للأمام

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

بسم الله ماشاء الله أكواد غاية في الروعة بارك الله فيك

السلام عليكم ورحمة الله وبركاته أستاذي طارق محمود تسلم إيدك معادلة رائعة بارك الله فيك

السلام عليكم ورحمة الله وبركاته أخي ريان أحمد أخي هاني أبو أدهم أخي أبو شرف جربت الملف والكود أكثر من مرة والكود شغال تمام بس في تنويه أولا : وهو إمتداد ملف الإكسل لابد أن يكون مطابق في الكود أي xls أو xlsx أو xlsb وهكذا ثانيا : وهو مكان الملف لابد يكون مطابق لما في الكود وسيكون الملف جاهز أخوكم : أحمد فؤاد

أخي ريان في الجزء الخاص بإسم الملف سيكون MyFlName = "contra.xls" بإفتراض أن إمتداد الملف xls سيتم تسمية فولدر في D بإسم officena سيكون إمتداد الملف كالتالي MyPath = "d:\officena" وبقية الكود كما هو لن يتم به أي تغيير

أخي أولا حدد مسار الملف الذي ستضع فيه الكود وضعه MyPath = "Z:\SHARED GENERAL" وكذلك إسم الملف MyFlName = "TEST-1.xls" ثم ضع هذين الكودين في ThisWorkbook Private Sub Workbook_Open() Dim MyPath As String MyPath = "Z:\SHARED GENERAL" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close End If Dim MyFlName As String MyFlName = "TEST-1.xls" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close End If End Sub Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim lReply As Long If SaveAsUI = True Then lReply = MsgBox("عفواً لايمكنك حفظ هذا الملف بإسم جديد .. هل تريد حفظ الملف بإسمه الحالي ؟", vbQuestion + vbOKCancel) Cancel = (lReply = vbCancel) If Cancel = False Then Me.Save Cancel = True End If

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

السلام عليكم ورحمة الله وبركاته أستاذي / عبد الله باقشير كود رائع بارك الله فيك دائما مبدع وأكوادك تمتاز بالدقة والفنية جعله الله في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته أخي محمد راجع الروابط التالية http://www.officena.net/ib/index.php?showtopic=23078 http://www.officena.net/ib/index.php?showtopic=29856 http://www.officena.net/ib/index.php?showtopic=39158 إن شاء الله تفيدك

أستاذي / جمال عبد السميع ( أبو محمود ) هو ده المطلوب ملف أكثر من رائع بارك الله فيك فعلا مبدع نسأل الله أن يبارك لك في عملك وعلمك ويرزقك من حيث لا تحتسب جزاك الله خيرا

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

السلام عليكم ورحمة الله وبركاته هل ممكن حماية المعادلة أو الخلية التي بها معادلة من التعديل ولكن أريد أن يكون الشيت نشط في بقية الخلايا لأن لو تم حماية الورقة بكلمة سر لبعض الخلايا لا يمكن التغيير في خط ولا تغير أي شي في خلية غير المحمية

السلام عليكم ورحمة الله وبركاته أخي وأستاذي القدير / ضاحي بارك الله فيك وزادك من العلم الكثير والكثير أعمالك تمتاز بأفكارها الجميلة والجديدة دائما مبدع والله يعجز اللسان عن الكلام حفظك الله وحفظ لك أولادك ورزقك من حيث لا تحتسب

الأستاذة الفاضلة / أم عبد الله بشكرك علي إستجابتك السريعة وشكرا علي الملف ولكن كنت أريد المطلوب الموضح في ملف أستاذي YasserKhalil أستاذي / YasserKhalil ملف رائع جدا ومعادلة أكثر من رائعة بارك الله فيك

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

السلام عليكم ورحمة الله وبركاته أستاذي / عباد بشكرك كثيرا علي مرورك الطيب وكلماتك العطرة أفتقد تواجدي المستمر في الموقع لمشاهدة أعمالك الرائعة والمتقنة وكذلك أكوادك التي تعلمت منها الكثير تلميذك / أحمد فؤاد

السلام عايكم ورحمة الله وبركاته أخي العزير / فتحي أبو الفضل أنا آسف جدا علي تأخري عليك ولكن لظروف عملي ولا يتواجد عندي نت في جميع أماكن وجودي تم عمل ماطلبته أنظر إلي المرفق وأعلمني أنا لم أجرب الكود حاول تجربة الملف كاملا وحاول التسجيل في جميع الصفحات وأعلمني بالنتيجة أنا تحت أمرك أخوك / أحمد فؤاد VIP.rar

السلام عليكم ورحمة الله وبركاته أخي / فتحي أبو الفضل أولا : كل عام وأنت بخير وربنا يتقبل منا الصيام والقيام وصالح الأعمال أسألك دعوة صالحة وصادقة في هذه الأيام المباركة آسف جدا علي التأخير ولكن ظروف شغلي متعبة شوية أخي تم عمل ملفين بهم طلبك إن شاء الله أرجو الإطلاع وإبداء الرأي ملاحظة لم يتم تجربة أي ملف منهم لو وجد بهم خلل أرجو إبلاغي لتعديلة أخوك / أحمد فؤاد 123.rar vip.rar

السلام عليكم ورحمة الله وبركاته أخي / فتحي جرب المرفق أرجو أن ينال إعجابك لحين الإنتهاء منه وأعلمني بالنتيجة هل هذا ماتريد أكمل أم تريد تعديل ؟ عهدة 1.rar

السلام عليكم ورحمة الله وبركاته أخي الفاضل / إسلام الشيمي بارك الله فيك أشكرك علي تفاعلك مع موضوعي المتواضع