الـعيدروس

السلام عليكم وهذا كود اخر لإثراء الموضوع Public Sub Extr_Ali() Repl Lr = Cells(Rows.Count, 1).End(xlUp).Row For R = 1 To Lr Cells(R, 2) = Ali_Strng(Cells(R, 1), 1) Cells(R, 3) = Ali_Strng(Cells(R, 1), 0) Next End Sub Private Function Ali_Strng(R As String, Bn As Boolean) Dim Ta() As String Dim S_E$, S_AR$ Dim Ad Ta = Split(R, " ") For I = 0 To UBound(Ta) If Ta(I) <> "" Then If Asc(Mid(Ta(I), 1, 1)) < 195 Then S_E = S_E & Ta(I) & " " Else S_AR = S_AR & Ta(I) & " " End If End If Next If Bn Then Ad = S_AR Else Ad = S_E Ali_Strng = Ad End Function Private Function Repl() With ActiveSheet.UsedRange.Columns(1) .Replace "-", "", xlPart .Replace "(", "", xlPart .Replace ")", "", xlPart End With End Function

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

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

السلام عليكم شاهد المرفق برنامج_aa5.rar

بالامكان عمل توقيت الى تاريخ معين وبعدها الملف يحذف نفسه او تمحى بياناته فأي خيار تريد ؟

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

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

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

السلام عليكم تم المطلوب في المرفق عند تعبئة اسم الصنف والتاريخ والمنصرف في ورقة تسجيل يومي يرحل القيم لجدول الصنف في الهرمون يتفعل الكود بعد كتابة المنصرف ارصدة الرئيسي_A.rar

ربما الملفات اوفيس 2007 او 2010 عشان لايفتح معك فيه برنامج لعمل توافق بين الاصدارات ابحث عنه وارفقه لك ان شاء الله

الطلب غير واضح ؟ مزيد من الشرح اخي الكريم

السلام عليكم الاختصار "F5" تفضل المرفق ترحيل مع vlookup1.rar

الف مبروك استاذ مجدي يونس حج مبرور وذنب مغفور ان شاء الله تقبل مروري

ارفق ملف وفيه بيانات كما في ملفك الاصلي لتتضح الصورة وان شاء الله نتوصل الى حل

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

تم تعديل عنوان المشاركة

الحمد الله الذي بنعمته تتم الصالحات نرجو منك الاطلاع على قواعد المشاركة للمنتدى لتفادي مايلزم في مشاركاتك القادمه قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف -------------------------- تم تعديل عنوان المشاركة --------------------------

لايوجد اسم الهرمون في ورقة الهرمون ؟

السلام عليكم هذا كود للاستاذ العلامه عبدالله باقشير عدلت عليه بما يتناسب مع طلبك أولاً تحدد الإسم الذي تريده ثابت للملف في اول الكود مثلاً هو "Ali_Xl" Private Const Nm_Fil As String = "Ali_Xl" Option Explicit '====================================================== Private Const Nm_Fil As String = "Ali_Xl" Sub auto_open() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ If Nm_Fil <> ThisWorkbook.Name Then '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ NewName = MyPath & Nm_Fil & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم إسترجاع اسم الملف", vbOKOnly, "الحمدلله" End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End If End Sub بحيث عند تغير اسم الملف مجرد فتح الملف يقوم بإسترجاع الاسم المحدد اول الكود ارجو ان يفي بالغرض التعديل السابق تحياتي

اولا تغير تنسيق الخلايا الى عام ثم المعادلة التاليه =HOUR(C2/5)*60+MINUTE(C2/5)

السلام عليكم كما عودتنا استاذ جمال معادلة في قمة الروعه يعجبني تعاملك مع المعادلات تقبل مروري

السلام عليكم Classeur1_A.rar

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

السلام عليكم تم في هذا المرفق ارجو التجربه برنامج_aa4.rar

اولاً اضغط ملف الاكسل باحد برامج الضغط ( Winrar أو Winzip ) ثم ارفقه