ehabaf2

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

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

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

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

السلام عليكم الاخوة الكرام معى ملف اكسس محمى بكلمة سر و نسيت كلمة المرور فهل ممكن كسر الحماية و فتحه

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

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

الاخوة الافاضل السلام عليكم ارجو من السادة الخبراء شرح الكود التالى لكي اتمكن من نقله للعمل فى اي اعمدة اخرى داخل الشيت عاوز اعرف اعدل ازاى الاعمدة اللى بيعمل عليها الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim WRng As Range, WRng2 As Range Dim rg As Range, rg2 As Range Dim ST1 As Integer, ST2 As Integer Set WRng = Intersect(Application.ActiveSheet.Range("B8:B1000"), Target) Set WRng2 = Intersect(Application.ActiveSheet.Range("d8:d1000"), Target) On Error Resume Next ST1 = 1 ST2 = 1 If Not WRng Is Nothing Then Application.EnableEvents = False For Each rg In WRng If Not VBA.IsEmpty(rg.Value) Then rg.Offset(0, ST1).Value = Now rg.Offset(0, ST1).NumberFormat = "dd-mm-yyyy HH:mm" Else rg.Offset(0, ST1).ClearContents End If Next Application.EnableEvents = True End If If Not WRng2 Is Nothing Then Application.EnableEvents = False For Each rg2 In WRng2 If Not VBA.IsEmpty(rg2.Value) Then rg2.Offset(0, ST2).Value = Now rg2.Offset(0, ST2).NumberFormat = "dd-mm-yyyy HH:mm" Else rg2.Offset(0, ST2).ClearContents End If Next Application.EnableEvents = True End If End Sub

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

لو سمحت استاذنا الفاضل Mohamed Hicham ممكن تعديل الكود لتكرار العمل فى اكتر من مكان فى الشيت كود اخفاء2.xlsm

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

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

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

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

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

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

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

للاسف المعادلة لا تعمل

مرفق كود للتوضيح الف الف الف شكرا الاستاذ الفاضل محمد هشام الكود يعمنل و هو المطلويب الف الف شكر لحضرتك ربنا يحفظك و يزيدك مكن فضله

السلام عليكم الاخوة الكرام رجاء مساعدتى فى عمل كود اخفاء اعمدة بناء على قيمة خليه بحيث اذا كتبت رقم 10 يخفى اعمدة معين انا محدد اعمدة من 1 الى 50 الكود يخفى كل الاعمدة المحددة من رقم 11 الى 50 و هكذا اذا كتبت 15 يخفى الاعمدة من 16 الى 50 مرفق كود للتوضيح كود اخفاء.xlsx

السلام اخوانى و اخواتي اعضء منتدى الاكسل الكرام عندى سؤال عامل هايبر لينك فى الخلية a3 لما اضغط عليها تروح للخليه a100 عاوز انسخ الهيبر لينك بحيث لو وضعتها فى العمود h مثلا اضغط على الخلية h3 تذهب الى الخلية h100 و لكم جزيل الشكر