ehabaf2

الاستاذ الفاضل lionheart الحمدلله حمدا كثيرا طيبا مبارك فيه عرفت اعدل الكود و كنت فى قمة السعادة لانني عرفت اعدل الكود و الكود اشتغل و نفذ المطلوب بشكل رائع سلمت يداك و زادك الله من فضله و علمه الف الف شكر لجميع السادة الاساتذة الافاضل و القائمين على الموقع ملحوظة انا لم استخدم هذا الجزء و لم اعرف فيما يستخدم Application.Goto .Range("AM" & m), True

السلام عليكم استاذ lionheart الكود يعمل و ينفذ المطلوب الحمد لله و الف شكر لحضرتك و لكن ينقصه فقط مسح البيانات التى تم ترحيها يعني مسح درجات التقيم فقط من العمود F الى العمود O اكرر شكري لحضرتك

السلام عليكم استاذنا الفاضل حسونة حسين الف الف شكر على مجهود حضرتك و لكن كالعادة انا مقصر فى شرح المطلوب يوجد بعض الملاحظات فى الكود الاول عند ترحيل تقيم الطلاب يتم مسح درجات التقيم فقط من العمود F الى العمود O و لا يتم مسح بيانات الطلاب و كذلك يتم ترحيل الطالب الغائب المسجل غ ثانيا يتم الترحيل الى الاعمدة من العمود AM الى العمود BC و لا يتم مسح ما تم ترحيله عند تكرار الترحيل يعني هيتم تقيم الطلاب كل يوم و يتم ترحيل التقيم تحت بعض فى الاعمدة المرحل اليها من العمود AM الى العمود BC شيت التقيم لا يتم عليه اي حركة هو عبارة عن مخزن معلومات فقط و الكود لا يتعامل معه اكرر شكر لحضرتك على الاهتمام والمساعدة

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

كود الاستاذ الفاضل حسونه حسين و هو ينفذ المطلوب بشكل احترافى Option Explicit Sub CClose() Dim Ws As Worksheet, RangeArea As Range, C As Range, MergedRange As Range kh_Application False Set Ws = ThisWorkbook.ActiveSheet With Ws Set RangeArea = .Range(.Cells(1, 1).Address, .Cells(653, IIf(ActiveCell.Column = 1, 1, ActiveCell.Column - 1)).Address) .Unprotect Password:="1" If ActiveCell.Row <= 653 Then For Each C In RangeArea If C.MergeCells = True And C.MergeArea.Rows.Count = 1 Then Set MergedRange = C.MergeArea MergedRange.UnMerge MergedRange.HorizontalAlignment = xlCenterAcrossSelection End If Next C RangeArea.Locked = True End If .Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True End With kh_Application True End Sub Sub COpen() kh_Application False ActiveSheet.Unprotect Password:="1" If ActiveCell.Row <= 653 Then Range(Cells(1, 1).Address, Cells(653, ActiveCell.Column).Address).Locked = False End If ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True kh_Application True End Sub Sub kh_Application(ibol As Boolean) With Application .ScreenUpdating = ibol .Calculation = IIf(ibol, -4105, -4135) .EnableEvents = ibol End With End Sub الف شكر استاذنا الفاضل حسونه حسين على تعبك و اهتمامك زادكم الله من فضله و علمه

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

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

الف الف شكر استاذنا الفاضل أ / محمد صالح الف الف شكر استاذنا الفاضل أ / على بن على تعديل الكود رائع و يعمل جيدا زادكم الله من فضله و علمه

السلام عليكم السادة الخبراء رجاء المساعدة فى تعديل الكود التالى لكي يعمل على الصفوف ارقام من 9 الى 21 فقط و باقى الشيت لا يشمله الكود Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect "45" Target.Locked = True ActiveSheet.Protect "45" End Sub مرفق ملف للتوضيح شكرا جزيلا كود حماية.xlsm

السلام عليكم الاساتذة الافاضل كنت بسئل هل ممكن عمل كود VBA عند تنفيذه يتم غلق الخلايا فى النطاق من العمود B السطر رقم1 حتى السطر رقم 653 فى العمود النشط يعني العمود اللى فيه الخلية النشطة ارجو ان اكون قدرت اعبر عن المطلوب كود قفل نطاق محدد.xlsx

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

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

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

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

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

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

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

السلام عليكم الاساتذة الافاضل كود الاستاذ على بن على لا يعمل عند كتابة اي رقم يعطى رسالة خطأ كود الاستاذ أبو أحمد يعمل جيدا و لكن يسمح بالتعديل بعد أكتب فى الخلية مرتين هل ممكن تعديل الكود التالى باضافة نطاق محدد مثلا من A1 الى H00 Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect "1" Target.Locked = True ActiveSheet.Protect "1" End Sub وشكر لجميع السادة الاساتذة الخبراء على ما يقدمونه من مساعدة

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

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

السلام عليكم الاخوة الكرام كل عام و حضراتكم بالف خير و سعادة مطلوب كود vba لا يسمح بتعديل ما يكتب فى أسطر محددة يعني يقبل الكتابة داخل الاسطر المحددة و لكن بعد الكتابة لا يمكن بمسحها او تعديلها الا بعد فك حماية الملف مرفق الملف للتوضيح و التعديل رقم حماية الملف 1 عدم التعديل فى اسطر محددة.xlsx

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

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

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