حسين العصلوجى

شكرا لكم جميعا اخوتي واصدقائي الغاليين افخر دائما بكم وبدعمك للمضي للامام

تسلم اخي الغالي / حماده عمر دائما انت المثل والقدوة لكل اعضاء المنتدي

عدلت لك الكود كما طلبت اتمني ان يفي بالغرض H-تجربة.rar

جرب المرفق واتمني ان يفى بالغرض H-تجربة.rar

جرب المرفق maste.rar

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

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

تم التنفيذ علي الملف الاول جرب المرفق ان كان يفي بالغرض اطبقه لك بالكامل علي ملفك الجديد . maste.rar

لا يوجد ورقة باسم assembly بملف maste الذي قمت بارفاقه يوجد total

المرفق يقوم بالفعل بترجمة اي اسم تقوم بكتابته تلقائيا بناءا علي الاسماء المكتوبة من قبل ارفق الملف وفاعدة البيانات لأطبق لك المعادلة عليهم

حدد المفردات التي تاثر علي المرتب من خصومات وتامينات الخ

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

اي اعمده مطلوب نقلها حدد المطلوب تفصيلا فالمرفق

جرب استخدام دالة index مع ال match كما فالمرفق Book2.rar

الامر بسيط ارفق الملف وضع به الاسماء بالعربي والانجليزي وساعد لك الكود

جرب المرفق وان شاء الله يحقق ما طلبت add.rar

اثراءا للموضوع :- كود يقوم بالترحيل وارد ومنصرف عن طريق الفورم Z = 2 x = 2 y = 3 On Error GoTo 1 Do Until Me.Controls("comboBox" & x).Value = "" lr = Range("A" & Rows.Count).End(xlUp).Row Cells(lr + 1, 4).Value = ComboBox1.Value Cells(lr + 1, 1).Value = Application.Text(TextBox2.Value, "dd/mm/yyyy") Cells(lr + 1, 3).Value = TextBox1.Value Cells(lr + 1, 5).Value = TextBox3.Value Cells(lr + 1, 2).Value = Me.Controls("comboBox" & x).Value Cells(lr + 1, 6).Value = Me.Controls("textBox" & Z + 2).Value Cells(lr + 1, 7).Value = Me.Controls("textBox" & y + 2).Value x = x + 1 y = y + 2 Z = Z + 2 Loop For i = 1 To 15 Me.Controls("TextBox" & i).Value = "" Me.Controls("ComboBox" & i).Value = "" Next 1 End Sub H-مخازن.rar

اثراءا للموضوع كود اخر يقوم بالترحيل مباشرة بمجرد الادخال دون زر التحديث Private Sub Worksheet_Change(ByVal Target As Range) Set ws = Worksheets("ÏÑÌÇÊ ÇáØáÇÈ") Set ws2 = Worksheets("ÊÕäíÝ ÇáØáÇÈ") If Target.Column = 2 Then Select Case Target.Value Case 0 To 49: c = 3 Case 50 To 64: c = 5 Case 65 To 74: c = 7 Case 75 To 84: c = 9 Case 85 To 99: c = 11 Case Else: c = 13 End Select ws2.Cells(ws2.Cells(65536, c + 1).End(xlUp).Row + 1, c + 1) = Target.Value ws2.Cells(ws2.Cells(65536, c).End(xlUp).Row + 1, c) = ws.Cells(Target.Row, 1) End If End Sub نقل البيانات مباشرة H -.rar

تم تعديل المكرو لأظهار الرقم الاكاديمي اتمني ان يفي المرفق بالغرض H-تقرير الغياب اليومي.rar

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

انت طلبت فالكود ان يتم مسح البيانات بعد الترحيل فبالتالي لا مجاال لحدوث تكرار الترحيل فما الحاجه لكتابة تم الترحيل

هذا المرفق يقوم بالترحيل بالشروط التي حددتها ومن ثم يفرغ العواميد اما بالنسبه لموضوع التكرار :- فيجب اضافة عمود لرقم السطر في صفحة الاستعاضه ليعتمد عليها الكود في تحديد هل هذا السطر سبق ترحيله لدفتر الاستاذ ام لا لان الوضع هكذا مبهم فكيف يمكن تديد ان كان السطر روحل من قبل ام لا واي تعديل تواصل معي بالرد H-استعاضة كلابشة.rar

تم تعديل الكود لتلافي المشكلة التي ظهرت معك والشكر موصول للاخ / عطاء الله HH-مستهدف شهرى.rar

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

جرب المرفق اتمني ان يفى بالغرض Sub RoundSameSideCornerRectangle3_Click() Set ws = Worksheets("ãÑÇíå") Set ws2 = Worksheets("ÔåÇÏÇÊ") For x = 10 To ws.Range("c65536").End(xlUp).Row ws2.Cells(14, 3) = ws.Cells(x, 3).Value ws2.Cells(14, 10) = ws.Cells(x, 2).Value ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next End Sub بالنسبة للشرح فهذا كود يقوم بتعديل خانة الاسم ورقم الجلوس اللذان اعتمدت عليهم كاساس لدالة vlookup لجلب التقديرات من صفحة البيانات ومن ثم يقوم بالطباعه قبل التعديل التالي H-طباعة.rar