نجوم المشاركات

السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. ربطةورزمة.rar

أستخدم هذه المعدلة أخى ستحقق المطلوب =SUM(Sheet1:Sheet2!E11) تقبل تحياتى

بسم الله الرحمن الرحيم Formula To VBA ضع الماوس على الخلية التي يوجد فيها معادلة معينة وإضغط على بسم الله ستظهر لديك المعادلة محولة و جاهزة للنسخ , قم بنسخها ثم قم بوضعها داخل كود أخونا الكريم عبد الله باقشير جزاه الله خيرا . الطريقة و الكود في المرفقات لكم مني أطيب التحيات محول المعادلات السريع.rar

جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row If Not Intersect(Target, Range("A1:C" & LR)) Is Nothing Then LR = LR - 9 If LR <= 0 Then LR = 1 Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value Range("I1").Resize(10, 1).Value = Cells(LR, "B").Resize(10, 1).Value Range("J1").Resize(10, 1).Value = Cells(LR, "C").Resize(10, 1).Value End If End Sub

السلام عليكم جرب الكود التالي مع ملاخظة انه يتم وضعة في موديل الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F8:F12")) Is Nothing Then Cells(Target.Row, "G").ClearContents End If End Sub المرفق 2010 تحياتي example1+.rar

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

بعد طريقة أستاذنا الرائع ومهندس منتدانا " طارق محمود " هذه طريقة أخرى جهزة بطريقة " التنسيق " =TEXT(VALUE(B1)-VALUE(A1);"ss.000")& "00 SEC" تقبل تحياتى

السلام عليكم تفضل أخي إن شاء الله يكون ماطلبت تغيرات سعر الذهب.rar

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك نعم يوجد طريقة سهلة بشرط أن تكون الأرقام كلها ذات طول واحد (مثلا أرقام تليفونات) الطريقة ظلل المجال كله (الذي به الأرقام) كليك يمين الماوس إختر Format Cells ثم Custom ثم في خانة Type ضع عدد الأصفار التي تريدها مثلا إذا كانت الأرقام ثمانية وتريد زيادتها للعشرة ضع عشرة أصفار 0000000000 ولزيادة علامة + بدلا من الأصفار أيضا إتبع نفس الخطوات السابقة حتي الرابعة ثم 5. ثم في خانة Type ضع + ثم 0 أو + ثم مسافة ثم 0 أيهما تفضل

السلام عليكم اخى الحبيب جرب الشاشة الافتتاحية مرة اخرى تم ايقاف زر × للخروج من الشاشة ويتم الالتزام بزر الخروج من البرنامج الموجود فى الشاشة الافتتاحية مع وجود رسالة تاكيد للخروج من البرنامج اسم المستخدم / حسام كلمة السر / 1964 الشاشة الافتتاحية.rar

أخى العزيز هل هذا ما تريد اسم المستخدم : حسام كلمة السر : 1964 ملفات مرفقة الشاشة الافتتاحية.rar

السلام عليكم ورحمة الله وبركاته لتعم الفائدة الرجاء تزويد الأعضاء بكلمة المرور ، فكثير من اعضاء المنتدى مشكورين لهم من المساهمات والافكار والبرامج لا حصر لها وكلها بدون تحفظ او تشفير ، فالمنتدى تعليمي ، وفي حالة الرفض يحق لإدارة المنتدى حذف الموضوع لانه لا جدوى له بدون معرفه الطريقه .