KHMB

السلام عليكم ورحمة الله وبركاتة نرجوا المساعدة بارك الله فيكم وحفظكم من كل مكروه. 1- الطلب الأول : اريد ان ادخل رمز الشركة يعطيني إسم الشركة تلقائيا 2-الطلب الثاني : قائمة منسدلة بكلمتي شراء و بيع فقط 3- الطلب الثالث والاهم : عندما اضع المبلغ في الكمية المنفذه ثم اضع السعر يقوم الكود بالنظر إلي نوع الامر وينفذ الاتي : أ ) إذا شراء يضع حاصل ضرب (الكمية المنفذه) X (السعر) في خلية مبلغ الشراء ويكون قيمة صافي المبلغ في خلية الدائن ب) وإذا بيع يضع حاصل ضرب (الكمية المنفذه) X (السعر) في خلية مبلغ البيــغ ويكون قيمة صافي المبلغ في خلية المدين مع العلم : بأن عموله الشراء هي عبارة عن حاصل ضرب مبلغ الشراء في 0012. أي 12 من العشره آلاف في المئة وقيمة صافي المبلغ عبارة عن مبلغ الشراء + العمولة (يضاف) وعمولة البيـــع هي عبارة عن حاصل ضرب مبلغ البيــع في 0012. أي 12 من العشره آلاف في المئة وقيمة صافي المبلغ عبارة عن مبلغ البيــــع - العمولة (يخصم) وإذا أي استفسار او شي غير واضح مستعد لإضاحه. مع الشكر والتقدير للجميع سلفا Offcina.rar

UP

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

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

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

السلام عليكم ورحمة الله وبركاتة استاذ / احمد زمان فكرتني بمعصوب زمان بالطائف نحن بالإنتظــــــار وفقك الله وجزاك خيراً ابو الحسن والحسين

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

اخي ابو الحارث عظم الله اجركم انا لله وانا اليه راجعون

السلام عليكم ورحمة الله وبركاتة الأخ العزيز عبدالله رائع ممتاز جداً هل ممكن ان تضفي على الكود الآتي : 1- في حالة عدم وجود نتيجة للبحث يعطي رسالة لاتوجد نتيجة 2- في حالة وجود مثلا نتيجة . عند الإنتهاء يعطينا رسالة نهاية البحث او إنتهاء البحث وهكذا.... جزاك الله عنا خير الجزاء سلفاً

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

السلام عليكم ورحمة الله وبركاتة كل عام وانتم بخير اخواني ممكن عمل ذلك بالكود جزاكم الله خير

السلام عليكم ورحمة الله وبركاتة الأخ / بن علية ممتاز جداً ممكن تعمل لنا نفس الملف بالأكواد

السلام عليكم ورحمة الله وبركاتة إخواني في الله جمال الفار هشام شلبي جزاكم الله خير الجزاء وغفر الله لنا ولكم ولسائر المسلمين وكل عام وانتم بخير

السلام عليكم ورحمة الله وبركاتة خواتم مباركة وعتق رقابنا ورقاب امهاتنا وآبائناء من النار اخواني الأفاضل هذا ملف للأستاذ / هشام شلبي بارك الله فيه معمول بالمعادلات ممكن عمله بالكود hh.rar

السلام عليكم ورحمة الله وبركاتة جزاك الله خير الجزاء

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

السلام عليكم ورحمة الله وبركاتة إخواني ممكن مثال بسيط 2003 عن كيفية حذف ملف إكسل بعد تاريخ محدد

السلام عليكم ورحمة الله وبركاتة نعم اخي سبهاء جزاك الله خير تم التعديل حسب الرغبة وعمل الكود بكفاءه الكود بعد التعديل On Error Resume Next Dim fs As Object Dim fa As Object Dim fs1 As Object Dim fa1 As Object Set fs = CreateObject("Scripting.FileSystemObject") Set fs1 = CreateObject("Scripting.FileSystemObject") If fs1.FolderExists("C:\PROGRAM FILES\KHMB\KHMB2") = True Then MsgBox "File available" ElseIf fs.FolderExists("C:\PROGRAM FILES\KHMB") = True And fs1.FolderExists("C:\PROGRAM FILES\KHMB\KHMB2") = False Then Set fa1 = fs.Createfolder("C:\PROGRAM FILES\KHMB\KHMB2") MsgBox "Created the folder" Else Set fa = fs.Createfolder("C:\PROGRAM FILES\KHMB") Set fa1 = fs.Createfolder("C:\PROGRAM FILES\KHMB\KHMB2") MsgBox "Created the folder" End If

السلام عليكم ورحمة الله وبركاتة الاخ ابو احمد جزاك الله خير ولكن لم استفد من الرابط بالنسبة لإنشاء مجلد داخل مجلد البرامج هذا الكود : Sub MkF() On Error Resume Next Dim fs As Object Dim fa As Object Dim fs1 As Object Dim fa1 As Object Set fs = CreateObject("Scripting.FileSystemObject") Set fs1 = CreateObject("Scripting.FileSystemObject") If IsNull(ThisWorkbook.Path) Then Exit Sub If fs.FolderExists("C:\Program files\KHMB") = True Then MsgBox "File available" Else Set fa = fs.Createfolder("C:\Program files\KHMB") MsgBox "Created the folder" End If End Sub وهو شغال بإمتياز لكن المشكلة في إنشاء مجلد آخر داخل مجلد KHMB

السلام عليكم ورحمة الله وبركاتة اللهم اجعلنا جميعاً من المرحومين في اولة والمغفور لنا في وسطة وان يعتقنا من النار. اخواني نرجوا المحاولة في طلبي هذا كود إنشاء مجلد يكون كالتالي : C:\Program Files\KHMB1\KHMB2 اي مجلد 2 داخل مجلد1 داخل مجلد البرامج على المحث سي. وجزاكم الله خيراً شاكراً لكم حسن تعاملكم وتعاونكم مع الجميع

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

السلام عليكم ورحمة الله كل سنة وانتم بخير شهر مبارك على الجميع عمل رائع جزاك الله خير

السلام عليكم ورحمة الله وبركاتة للرفـــــــــع أخي منسق خدمات العمــلاء للتعلم والفائدة اكثر نرجوا كلمة المرور لمحرر الأكـــواد

السلام عليكم ورحمة الله وبركاتة للرفـــــــــع أخي منسق خدمات العمــلاء للتعلم والفائدة اكثر نرجوا كلمة المرور لمحرر الأكـــواد VBA