أبوأحـمـد

تفضل Sub PrintReceipt() Dim LRow As Long Dim namsh As String Dim wk, wk2 As Worksheet Dim x As Integer Dim check As Boolean namsh = "temp" Set wk = Worksheets("التكويد") For Each wk2 In Worksheets If wk2.Name Like namsh Then check = True: Exit For Next If check = False Then With ThisWorkbook .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = namsh End With End If Set wk2 = Worksheets(namsh) wk2.Range("A1:E9999") = "" LRow = wk.Range("A999").End(xlUp).Row wk.Range("A1:A" & LRow & ",E1:E" & LRow & ",R1:R" & LRow & ",S1:S" & LRow & ",T1:T" & LRow).Copy wk2.Range("A1") wk2.Columns("A:E").AutoFit With wk2 .PageSetup.PrintArea = "A1:E" & LRow .PrintOut , , , , True, , , , False 'أمر الطباعة End With ' حذف الورقة جديدة Application.DisplayAlerts = False If ThisWorkbook.Worksheets.Count = 1 Then MsgBox "There Is only One Sheet. The Deletion Can't Be Done!", vbCritical: Exit Sub If Evaluate("=ISREF('" & namsh & "'!A1)") Then Sheets(namsh).Delete End If Application.DisplayAlerts = True End Sub

الطباعة يفضل فتح موضوع جديد تبعا لسياسة المنتدى 77.xlsm

أنا ثبت المدخلات لحمايتها وهنا بالمعادلات بيان السولار اليومى لمزارع الامهات (1).xlsm

لابد أن نحقق هذه الطلبات باستخدام أكواد VBA هل ترغب بذلك؟

هذا بالمعادلات VLOOKUP عرض سند بواسطة الكود.xlsx وهذا بالأكواد بعد تسريع الكود ولك حرية الاختيار VLOOKUP عرض سند بواسطة الكود.xlsb

تفضل bb.xlsm

استخدم الدالة COUNTIF ثم قم بفرز نتيجة الدالة واحذف المكرر المثال بالمرفق =COUNTIF(A:A;D2) المصنف1.xlsx

تفضل بيان السولار اليومى لمزارع الامهات (1).xlsm

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

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

وعليكم السلام تفضل VLOOKUP عرض سند بواسطة الكود.xlsm

تفضل القرآن.xlsm

هناك طرق كثيرة للوصول لما يريد الأخ ولكن عمليا ليست مريح منها أيضا =IF(C2="المبلغ";C1;IF(ISNUMBER(B3);A2;"")) نقل المسميات حسب الشرط.xlsx

تفضل للارسال.xlsm

ليس له دخل أضف العميل في ورقة المبالغ المتأخرة أو استخدم الدالة IFERROR لإخفاء الخطأ

إذا تقصد هذا فمعناه: لم يجد للعميل سجل في المبالغ المتأخرة

وعليكم السلام ممكن صورة للخطأ اللي تقصد

ماهي النتائج الصحيحة التي تريدها ؟ وعلى أي أساس يتم احتساب عمر الدين المتبقي؟

تفضل نسبة التحصيل العلمي للطلاب.xlsb

تفضل maro1.xlsm

وعليكم السلام تفضل maro1.xlsm

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

ضع هذا آخر الكود قبل End Sub 'إجمالي عام For C = 2 To 43 With ورقة6 For R = 14 To 18 Step 4 If .Cells(R, C) > 0 Then coun = coun + 1 .Cells(19, C) = Val(.Cells(19, C)) + Val(.Cells(R, C)) End If Next If coun > 0 Then .Cells(19, C) = Val(.Cells(19, C)) / coun coun = 0 End With Next

أخي الموسطي إذا تأخر الرد فاعلم أن السؤال غير واضح وسندخل في تخمينات وربما إجابات غير صحيحة حاولت أخمن ما تريد فخرجت بهذا الحل يمكن اختيار العميل من القائمة فتظهر لك عملياته كاملة جديد (1).xlsx

وعليكم السلام ورحمة الله وبركاته ولو أني لم أفهم جيدا المطلوب ولكن مشاركة مع أستاذي عبدالفتاح If InStr(TextBox1.Text, "k") > 1 Then MsgBox "الحرف موجود" End If