أبوأحـمـد

طمنا يا أستاذ hhnazmy المعادلة جابت نتيجة أو لا أهم شي تفهنا المطلوب والأساتذة في هذا المنتدى ما شاء الله قادرين على حل أعقد المسائل

غير الكود إلى Sub TR7el() Dim wk, wk2 As Worksheet Dim ro, ro4 As Long Set wk = Worksheets("رصد2") Set wk2 = Worksheets("شيت2") ro4 = wk2.Range("A" & Rows.Count).End(xlUp).Row If ro4 >= 10 Then wk2.Range("A10:CH" & ro4) = "" ro = wk.Range("B" & Rows.Count).End(xlUp).Row wk.Range("B8:D" & ro & ",G8:CK" & ro).Copy wk2.Range("A10").PasteSpecial Paste:=xlPasteValues End Sub وخبرني

ماني فاهم النسخ يتم للقيم فقط صور هذا التنسيق

أخي هاشم الترتيب يتم حسب ماهو موجود في قاعدة البيانات وتستطيع تغيير مسمى المادة في ورقة نسبة التحصيل بما يتوافق مع ترتيب المواد في قاعدة البيانات السلوك غير موجودة في قاعدة البيانات المرفق بعد إضافة المجاميع نسبة التحصيل العلمي للطلاب.xlsb

معادلة أخرى ولكن تعتمد على الخلية التي فوقها ="الشاطبية " & MID(C4;SEARCH("-";C4;1)+1;LEN(C4))+1 &"-" &MID(C4;SEARCH("-";C4;1)+1;LEN(C4))+5 Format.xlsx

حساب المدرسة.xlsm

تفضل كود نسخ البيانات.xlsm

إنت عايز ايه؟🫣

Sub Export() 'تعريف المتغيرات Dim WshtNames As Variant Dim WshtNameCrnt As Variant Dim Rang1 As Range Dim wk As Worksheet Dim nsh As String Dim wk_Row, wk1_Row, r As Integer 'تحميل متغير الورقة الرئيسية Set wk = Worksheets("الرئيسية") 'تحميل متغير صفوف البيانات في الورقة الرئيسية wk_Row = 10000 'تحميل متغير نطاق البيانات في الورقة الرئيسية Set Rang1 = wk.Range("C6:C" & wk_Row) 'تحميل متغير اورق المراد الإرسال لها WshtNames = (Array("الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع")) 'مسح البيانات السابقة For Each WshtNameCrnt In WshtNames With Worksheets(WshtNameCrnt) wk1_Row = .Range("B10000").End(xlUp).Row .Range("B3:c" & wk1_Row + 1) = "" End With Next 'عمل حلقة تكرار بعدد صفوف البيانات في الورقة الرئيسية For r = 6 To wk_Row 'تحميل متغير التفضيلات بعد حذف منصرف ليتناسب مع الورقة المرسل لها nsh = Trim(Mid(wk.Range("C" & r), 6, Len(wk.Range("C" & r)))) 'حلقة تكرار الاورق المراد الإرسال لها For Each WshtNameCrnt In WshtNames ' مقارنة بند التفضيلات مع ورقة العمل If Worksheets(WshtNameCrnt).Name = nsh Then ' في حال انطبق اشرط ارسال بند التفضيلات إلى ورقة العمل With Worksheets(WshtNameCrnt) wk1_Row = .Range("B10000").End(xlUp).Row .Range("B" & wk1_Row + 1) = wk.Range("C" & r) .Range("C" & wk1_Row + 1) = wk.Range("G" & r) End With End If Next Next 'اضافة المجموع For Each WshtNameCrnt In WshtNames With Worksheets(WshtNameCrnt) wk1_Row = .Range("B10000").End(xlUp).Row .Range("B" & wk1_Row + 1) = "المجموع" .Range("c" & wk1_Row + 1) = "=SUM(C3:C" & wk1_Row & ")" End With Next End Sub

باقي المجاميع ما أدري تريدها إجمالي أو متوسط نسبة التحصيل العلمي للطلاب.xlsb

تفضل Private Sub MSGE() Dim Action As VbMsgBoxResult Action = MsgBox("هل تريد حفظ التعديلات", vbYesNo + vbExclamation + vbDefaultButton2, "تنبيه!") If Action = vbYes Then MsgBox "نعم" Else MsgBox "لا" End If End Sub

شكرا يا أمير على الدعم الكبير

وعليكم السلام ورحمة الله وبركاته تفضل حساب المدرسة.xlsm

بالمعادلات أو أكواد؟ وهل تريد مجموع (ف 1) من 50 أو النهائي 100 ؟

غير تعريف المتغير ii من Byte إلى Long

أولا تأكد من صحة معادلتك وأنا منطقية ثانيا استخدم الدالة IFERROR بدلا من =6/0 استخدم =IFERROR(6/0;0) أو =IFERROR(6/0;"تكتب ما تريد أو تتركه فارغ")

وعليكم السلام ورحمة الله وبركاته جرب مع تغيير مسمى العملة الرئيسية والفرعية =NumberToText(B8;"ريال";"هللة") خزينة القاهرة.xls

لعلي فهمت المطلوب ضع المعادلة التالية في الخلية الحمراء H41 =G41*33.30112%

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

يوجد سجلات مكررة حسب التاريخ وكذلك العداد ربما لو جمعنا التاريخ مع الوقت نخرج بنتيجة

يمكن ولكن يوجد سجلات متكررة

هل تريد فرز الوقت مع التاريخ؟ أرجو ذكر السجلات الخطأ

ملاحظة هامة: أي معادلة تعتمد على عمود اسانسير راجعها وعدلها لأني دمجت الخلايا ليكون التعامل معها أسهل

ممكن ذكرها؟

تفضل برنامج ادارة خدمات عقار (1).xlsm