مختار حسين محمود

الأستاذ الفاضل أبوحنين سأحاول تحقيق طلبك وتعديل الكود كما تريد الكابتن أبوالقبطان ,,,,,,, كابتن منتدانا العظيم أما فأعمالى فهى جنب أعمالكم لا تذكر ......شرفنى مروركم الكريم

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

تفضل أخى الكريم التوقيع بمجرد الكتابه فى اخرى مع حذف التوقيع بمجرد مسح محتوى الخليه التى كتبنا فيها الكود التالى يحقق لك ذلك الكود المستخدم يوضع فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A10")) Is Nothing Then With Target(1, 2) .Value = Range("k1") If Intersect(Target, Range("A2:A10")) = "" Then .Value = "" End If End With End If End Sub التوقيع بشرط الكتابة.rar

سلمت من كل شر عذرا الآن فلدىّ ظروف سأحاول التعديل وأوافيك إن شاء الله عاجلا

تابعنى فى الموضوع الجديد التوقيع فى خليه بمجرد الكتابه فى أخرى

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

نعم تابعنى فى الموضوع الجديد التوقيع بمجرد الكتابه فى خليه

وهذا بالأكواد يمكن ان تبنى عليه توقيع بالاكواد.rar

السلام عليكم تفضل الحل ولكن بالمعادلات تقبل تحياتى توقيع بالمعادلات.rar

جميلة جدا يا أستاذ سليم لى سؤال : نسيبنا من المعادلات اللى عملنا بيها القائمة لما تختار اى شىء من القائمة المنسدله . يتم اختياره فى الاعمده وباللون الاخضر عملتها ازاى حضرتك ؟

1 - افتح الفيجوال بيزك بتاع المرفق انظر فى اسماء الشيتات هتلاقى كلمة thisworkbook بين اسماء الشيتات دبل كليك عليه انسخ المديول اللى فيه افتح الملف بتاعك وافتح الفيجوال بيزك انظر فى اسماء الشيتات هتلاقى كلمة thisworkbook بين اسماء الشيتات دبل كليك عليه و الصق المديول . 2 - - افتح الفيجوال بيزك بتاع المرفق انظر تحت اسماء الشيتات هتلاقى كلمة userform باسم dahy دبل كليك عليه هتلاقيه فتح قدامك اعمله تصدير من قائمة file من الخيار export واعمله حفظ فى اى مسار تريد ثم روح على الملف بتاعك ومن قائمة file اختر import ودور على المسار اللى حفظت فيه ال userform علم عليه واختر open هتلاقى ال userform فى ملفك . دبل كليك عليه هيظهر قدامك الفورم اللى ظهر دبل كليك عليه هيظهر الكود بتاعها وهتلاقى فيه كلمة سر الدخول الى الملف ( يمكنك تعديلها ) بالنسبه للكلمات التى تظهر فى الفورم : عباره عن صوره معموله ببرنامج الرسام ( خلفيه لها لون معين واكتب عليها ما تريد ) اجعل طولها 4 سم وارتفاعها 1سم واحفظها فى مكان معين فى الفيجوال بيسك اضغط على الصورة القديمه واستبدلها بالجديده بتاعتك واحفظ على كده . أرجو أن أكون وفيت فى الشرح ....................تقبل تحياتى

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

الأستاذ الفاضل .... احمد فضيله بارك الله فيك وفى المنتدى وأساتذته الكرام.

بارك الله فيك أستاذى ياسر خليل يا اللى ما لك مثيل أنا فعلا كنت قاصد ألفت النظر بدون أن أتعدى على أستاذى فقدمت المعلومة لكم وللزملاء فى صورة سؤال فأنا لا أحب أن ألبس ثوب أبوالعريف عايز تعرف مين أبو العريف ؟ هو جار الأستاذ ظريف .... صاحب الاستاذ لطيف ........ههههههههههههه

ولا أجمل من كده شرح .... ما يعملوش إلا أبوخليل اسمح لى بسؤال هل هذه الجزئية [ & Chr(10) & Chr(10) & ] فى الكود التالى : "و تم ترحيل " & Chr(10) & Chr(10) & " طالب ناجح إلى شيت الناجحين " & M - 6 & " تم ترحيل " MsgBox "الحمد لله رب العالمين" , vbMsgBoxRight, " طالب له دور ثان إلى شيت الراسبين " & N - 6 & هى التى تترك سطرين بين النصين الواردين فى الـ MsgBox ؟

ولا أجمل من كده شرح .... ما يعملوش إلا أبوخليل اسمح لى بسؤال هل هذه الجزئية [ & Chr(10) & Chr(10) & ] فى الكود التالى : "و تم ترحيل " & Chr(10) & Chr(10) & " طالب ناجح إلى شيت الناجحين " & M - 6 & " تم ترحيل " MsgBox "الحمد لله رب العالمين" , vbMsgBoxRight, " طالب له دور ثان إلى شيت الراسبين " & N - 6 & هى التى تترك سطرين بين النصين الواردين فى الـ MsgBox ؟

أشكرك أستاذ ياسر على تشجيعكم لى والذى يدفعنى الى الأمام يوما بعد يوم والفضل لله ثم الى أساتذتنا - أمثالك - فى المنتدى وأعدك بأننى سأقدم مساهمات جديدة و جيدة ( من وجهة نظرى على الأقل ) فى الأيام القادمه بإذن الله تعالى

شكرا أستاذ ياسر على التلميح وجارى العمل بهذه النصيحه فى المرات المقبله

الملف على الرابط http://www.officena.net/ib/index.php?showtopic=57225&p=363459 المشاركة رقم 13

أرجو أن يكون المطلوب تم تنفيذه فى المرفق new ولو فيه أى شىء فى الملف تحت أمرك

تفضل الملف بتاعك المستخدم admin السرى 27102003 new.rar

افتح الفيجوال بيزك بتاع الملف المرفق انظر فى اسماء الشيتات هتلاقى كلمة thisworkbook بين اسماء الشيتات دبل كليك عليه انسخ المديول اللى فيه افتح الملف بتاعك وافتح الفيجوال بيزك انظر فى اسماء الشيتات هتلاقى كلمة thisworkbook بين اسماء الشيتات دبل كليك عليه الصق المديول واحفظ على كده أرجو يكون هو المطلوب

اليك تصريح دخول ولكن اجمل تعلمته من أستاذى ضاحى غريب يصعب شرحه باختصار ادراج فورم dahy فيه نحدد كلمة سر الدخول ادراج مديول فى workbook تصريح دخول مختلف.rar

تفضل المرفق أتمنى يحقق طلبك الكود المستخدم فى حدث work book سرى الدخول 123 تصريح دخول 123.rar

السلام عليكم المرفق يوضح كتابة تاريخ اليوم - الوقت الحالى فى خلية بمجرد الكتابه فى اخرى كتابة التاريخ والوقت فى خلية بمجرد الكتابة فى أخرى.rar