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

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

افخر دائما بكم وبدعمك للمضي للامام 

تسلم اخي الغالي / حماده عمر

دائما انت المثل والقدوة لكل اعضاء المنتدي

عدلت لك الكود كما طلبت اتمني ان يفي بالغرض

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