عادل حنفي

اخي جرب المرفق Copy of combobox.xlsm

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

السلام عليكم الاخت ليلي المقصود اعتقد انه بسيط ولكنه مهم فانه عند توزيع البيانات يتم المقارنه بين القسم (والمقصود به هنا البيان المكتوب في كل خلية مدمجة في شيت حافظة الدوام كالاداريين ومادة القران الكريم وعام1-3(مربي).....وهكذا) وبين التخصص لكل موظف ويجب التطابق بينهما فاذا تم هذا الشرط فعند توزيع البيانات سينتقل الاسم تحت القسم المتطابق مع التخصص علما بان اي تخصص غير موجود له قسم سيتم انزاله تحت قسم الاداريين وانتي لن تغيري في تخصص كل موظف لا بل ستغيري في اسماء بنود الخلايا الدمجة فقط لتتطابق مع التخصص وان استحال الامر ارسلي ملف يوضح التخصصات الغير متطابقة مع القسم كالتالي القران مادة القران الكريم وهكذا ارجو اني استطعت ايصال المعلومة تحياتي

حبيبي يا جو مشكور علي مرورك تحياتي

استاذ وجيه لك كل الشكر علي كلماتك ومرورك

السلام عليكم ارجو تجربة المرفق وقد تم مراعاة معظم المشاكل لكن عليكي بان يكون القسم المدرج تحته البيانات مطابقا للعمل للتوضيح يجب ان يكون العمل مادة القرآن الكريم وليس القران تحت قسم مادة القرآن الكريم وقد تم عمل الملف بطريقة يسهل تعاملك معه بالرغم من انه استغرق 3 ايام لفكرة صغيرة وهي كيفية التعرف علي الاقسام والصف الاخير في كل قسم اخيرا بنفس طريقة عملك لهذا الملف صممي الملف الذي سيتم عليه عملك الفعلي والصقي نسحة فارغة من البيانات وليس من الاقسام في شيت Source فهو الشيت الذي يعتمد عليه لعمل نسخة لكل مدرسة ارجو انني قد فهمت المطلوب ونفذ بالطريقة الصحيحة ولو فيه اي استفسار انا منتظر للرد عليه تحياتي حافظة الدوام أوفيسنا.rar

مشكو اخي وجيه

حبيبي وانت بكل خير

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

اخي جرب المرفق ComboBox.xlsm

اخي جرب المرفق وعرفني اذا كان هذا ما تريده ام لا TEXTBOX.xlsm

اخي وجيه شرف الدين مشكور مرورك اخي Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين trans_2.rar

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

بعد اذن الاخوة اخي جرب الملف باللينك التالي https://www.officena.net/ib/topic/91166-نقل-بيانات-من-ملف-اكسل-لملف-اخر/

اخواني كل عام وانتم بخير جميعا بناء علي طلب احد الاخوة باللينك التالي https://www.officena.net/ib/topic/91148-نقل-واسترداد-البيانات-من-ملف-اكسل-الى-ملف-اكسيل-أخر/?fbclid=IwAR0xbxEnx7AZelkY6NQoXHeffLqB-RzI3Q_b1LqE8IcQdkcl1jbpWCjWm3I ولاكبر استفادة اردت الاجابة في مشاركة منفصلة شرح العمل:- افتح ملف" V2" اضغط علي الزر لاظهار الفورم اضعط علي زر استرداد بيانات من ملف اخر الكود المستخدم Sheets(1).Range("D6:G15") = "" mm = ActiveWorkbook.Name MyPath = ThisWorkbook.Path & "\v1.xlsm" 'On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set Mybook = Workbooks.Open(Filename:=MyPath) m = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Address Workbooks(mm).Sheets(1).Range(m).Formula = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Formula Workbooks("v1.xlsm").Close Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox ("DONE") trans.rar

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

اخي اسلام تم استخدام نفس فورم الاستغلام لمعرفة ماتريده وذلك عند اختارك لقبض وصرف جرب المرفق تحياتي وارد-صادر2.rar

السلام عليكم احسنت اخي عبد السلام فكرة ملفك قريبة جدا من ملفي مع العلم تم التجربة السريعة مادة الحاسب الآلي القاضي2.rar

اخي ان كنت فهمت ما تقصده ستكون المعادلة كالتالي =(G7*I7)+(H7*I7)

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

المهندس محمد طاهر كل عام وانتم بكل خير

اخي جرب المرفق لعله يكون المطلوب سعر البنزين.rar

السلام عليكم اخي وبعد اذن الاخوة المشاركين اولا تم تنفيذ المطلوب بالكود ثانيا لابد وان يكون شرط التسلسل عامود اخر غير عامود المسلسل كعامود الاسم مثلا ففي حالة عدم وجود اسم او الصف تم اخفاؤه فلن يتم عمل مسلسل له جرب الملف واتمني ان يفيدك في غملك تحياتي PROBLEM.rar

هحاول افهم الموضوع ماشي ازاي وان شاء الله ربنا يسهل

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