ابو تراب

هلا باخي ابوعبيد ان شاء الله ستحل عملت لك بعض التغييرات بحيث تعمل و الملف مشارك ...جرب الكود هذا وخبرنا كلمة السر 111 كما في الملف المرفق With ActiveWorkbook Application.DisplayAlerts = False .ExclusiveAccess Application.DisplayAlerts = True ActiveSheet.Unprotect 111 [A2] = [A1] ActiveSheet.Protect 111 Application.DisplayAlerts = False .KeepChangeHistory = True .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared Application.DisplayAlerts = True End With تشغيل ماكرو في ملف مشارك.zip

وعليكم السلام ابو حنين جرب المرفق و خبرنا ترحيل من ملف الى ملف.zip

وعليكم السلام و رحمة الله وبركاته هلا اخي ابوعبيد اذا كان و لابد من حماية الخلاياء هنا يمكنك تجريب الكود التالي عملت لك مرفق لتجريب اذا احببت كلمة السر هى 111 الكود === Sub Button1_Click() With Application .DisplayAlerts = False .ExclusiveAccess .DisplayAlerts = True ActiveSheet.Unprotect 111 [A2] = [A1] ActiveSheet.Protect 111 .DisplayAlerts = False .KeepChangeHistory = True .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared .DisplayAlerts = True End With End Sub تشغيل ماكرو في ملف مشارك.zip

بارك الله فيك اخي الجموعي و جزاك الله خيرا عن كل حرف كتبت

وعليكم السلام عليكم ورحمة الله وبركاته هلا ماجد جرب جميع الازرار في المرفق LISTBOX.zip

وعليكم السلام اخي ابوعبيد جرب الغاء ال Locked للخلاياء A1 و A2 , وبعدها احمي و شارك الورقة

وعليكم السلام لا ادري اذا هذا الموقع ممكن يفيد. Arabic mathematical notation بالتوفيق

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

وعليكم السلام ورحمة الله و بركاته تفضل هذا الكود بالمعادلات الدالة VLookup تفي بالغرض VLOOKUP($A11,بيانات!$B$11:$T$150,2,FALSE) ضبط الزر كما في الصورة ترحيل بيانات.zip

وعليكم السلام ورحمة الله و بركاته مرحبا أحمد جرب المرفق ترحيل بيانات.zip

هل هذا يفي بالغرض؟؟؟ ActiveCell.FormulaR1C1 = Format("=IF(R[0]C15<>"""",R[0]C15+R[0]C16,"""")", "yyyy/dd/mm")

هلا احمد الغي الخيار كما في الصورة

جزاك الله خيرا استاذنا عبدالله باقشير و شكرا لمرورك العطر.....ما اروع ان يتم اختصار الكود .. سهل الفهم و سريع التنفيذ

وعليكم السلام هلا هشام جرب المرفق هشام_عماد.zip

حياك الله اخي اكرم و شكرا على الملاحظة القيمة جرب الكود بعد التعديل تغيير لغة الكتابة للوحة المفاتيح.zip

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

تفضل جميع التحديثات عبر دالة واحدة فقط UpdateBoxes تشيك بوكس.zip

هلا بعاشق السلام تم تعديل المعادلة IFERROR(--IF(A6<>"",TRUNC((A6-$E$1))&" ",""),"") جرب الملف المرفق ملف.zip

وعليكم السلام و رحمة الله و بركاته اخي الغالي عبدالباري بعد اذنك استخدمت الملف الذي ارفقت و اضفت اضافة بسيطة لتجنب ادخال حروف انجليزية في مربع النص العربي و العكس. اذا ارد احدكم اضافة لغات اخر كاللغة الفرنسية مثلا فيمكنكم مراجعة الرابط التالي: قائمة اللغات هنا تجد ارقام ال Unicode لكل حرف تغيير لغة الكتابة للوحة المفاتيح.zip

وعليكم السلام فقط اضف علامتي - - في الخلاياء تبع العمود B =--IF(A2<>"",TRUNC((A2-$E$1))&" ","") جرب المرفق ملف.zip

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

هلا بالغالي ابو حنين و شكرا على كلماتك الطيبة المشجعة .... ما نحن الا طلاب علم و المنتدى يعج بالاساتذة الفضلاء و الخبراء بارك الله فيهم في ما يقدمون لنا من مساعدة و علم و جهد. الدالة تعتمد على السيرفر تبع القوقل لارسال البريد بغض النظر عن ايميل المرسل سوى كان في hotmail او outlook سيتم استبداله داخليا بحساب ال gmail الذي تم التسجيل الدخول عبره. المهم اذا كان ال outlook محمل لديك فلن تحتاج لاستخدام هذه الدالة فكود مثل ActiveWorkbook.FollowHyperlink يمكن ان يفتح لك برنامج الoutlook و يضع ايميل المرسل اليه و العنوان و نص الرسالة الكود ارسال الرسالة ============== Private Sub SendEmail(ToEmail As String, Subject As String, EmailMsg As String, Optional CC As String, Optional BCC As String) Dim EmailLink As String EmailLink = "mailto:" & ToEmail & "?" & "cc=" & CC & "&" & "bcc=" & BCC & "&" EmailLink = EmailLink & "subject=" & Subject & "&" EmailLink = EmailLink & "body=" & EmailMsg ActiveWorkbook.FollowHyperlink (EmailLink) Application.Wait (Now + TimeValue("0:00:03")) ''/ ارسل الرسالة Application.SendKeys "%s" End Sub تجد مثال لاستخدامها في الرابط التالي: http://www.officena.net/ib/index.php?showtopic=57606&hl= في حالة الرغبة بتحكم اكبر فربما ستحتاج لبرمجة الكائن Outlook.Application تحياتي

الحمد لله الذي بفضله تتم الصالحات ... شكرا الله لك كلماتك الطيبة اخي عباد هلا باخي KHMB شكرا لكلمات الطيبة و مرورك العطر ... تقبل الله منا و منكم صالح الاعمال

هلا ماجد جرب المرفق 14.zip

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