ياسر أحمد الشيخ

طلبك أخى ممكن وليس مستحيلاً ممكن ترفق ملف يوضح المطلوب بمثال

ممكن أخى توضح المطلوب لأن الملف غير واضح من الممكن أن ترفق ملف به التقرير فى شكله النهائى وإن شاء الله يتم الحل باستخدام البيفوت

السلام عليكم ورحمه الله وبركاته بالنسبة للطلب الأول :تفضل أخى تعديل الفورم ليلائم طلبك بالنسبة للطلب الثانى : ياريت توضحلى شكل التقرير المطلوب وتقوم بارفاقه فى الملف وشكرا PAYMENT.rar

السلام عليكم ورحمه الله وبركاته قد تكون المشكلة فى عملية الحساب غير فعالة Calculation لتفعيل عملية الحساب وجعلها أتوماتيكياً لمستخدمى أوفيس 2007 وأعلى اتبع الآتى : 1- اضغط أخى على زر أوفيس ثم Excel options 2- ثم اضغط على التبويب المسمى Formulas ثم فى أول جزء فى الأعلى علم على الخيارAutomatic وشكرا

هههههههههههههه شكرا أخى ياسر على اطرائك الجميل أنا بس بحاول اساعد الأعضاء على قد ما أقدر >>>>>> الله في عون العبد ما كان العبد في عون أخي <<<<<<<<

ممكن أخى توضحلى شكل التقرير المطلوب وتقوم بارفاقه فى الملف

تستطيع أخى التنقل بين الصفوف عن طريق استخدام scrollbar الموجود فى الفورم

تفضل الملف المرفق يا ريت يكون طلبك PAYMENT.rar

تفضل أخى ملف لترجمة الأسماء Trans Prog.rar

تفضل أخى الحل بطريقتين 1- كود قم باختيار رقم الدورة من خلية C2 وسيتم تنفيذ الكود أتوماتيكياً 2-معادلات وشكرا تمرين آخر.rar

السلام عليكم أخى تفضل أخى ضع هذه المعادلة فى الخلية D25 =IF(ROUNDUP(D24/$L$24*100,0)<97,ROUNDUP(D24/$L$24*100,0)&"*",ROUNDUP(D24/$L$24*100,0)) وشكرا

تفضل أخى حل آخر وليس هناك حاجة لكتابه اسم الشهر فى عمود منفصل شكرا Sumproduct(SUmif+Count).zip

كود رائع أخى ولاثراء الموضوع لكل عشاق المعادلات أتقدم بمعادلة لعمل الموضوع =IFERROR(INDEX($A$1:$A$100,SMALL(IF(LEFT($A$1:$A$100,LEN($B$2))=$B$2,ROW($A$1:$A$100)),ROW(1:1))),"") انظر المرفق Search Cells that begins with.zip

ضع المعادلة الآتية فى الخلية D25 : =ROUNDUP(D24/$L$24*100,0) أرجو أن يكون طلبك

لا شكر على واجب يا أخى وأى استفسار أنا فى الخدمة وشكراً

السلام عليكم ورحمه الله وبركاته تفضل أخى المرفق أرجو أن يكون طلبك وشكرا 2015.rar

آسف على التأخير أخى ، ولكن كان عندى ضغط عمل تفضل أخى الكود استبدله بكود حسب الاختيار Sub حسب_الاختيار() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim c As Range For Each c In Sheet1.Range("chose") If c.Value = "نعم" Then ' Z = Z + 1 lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1 Sheet2.Range(Sheet2.Cells(lstrow, "b"), Sheet2.Cells(lstrow, "g")) = _ Sheet1.Range(Sheet1.Cells(c.Row, "b"), Sheet1.Cells(c.Row, "g")).Value 'Sheet2.Cells(lstrow, "a") = Z: End If Next c MsgBox ("تم ترحيل الصفوف المحددة بنجاح"), vbDefaultButton1, " تحياتي أ / محـمـود جـمـعـه " Sheets("المبيعات (1)").Select Range("c2").Select Application.ScreenUpdating = True Application.Calculation = xlCalculationSemiautomatic End Sub أرجو أن يكون هذا طلبك

اذا كان الجواب صحيح أخى اختر "تحديد كأفضل إجابة"

اذا كان الجواب صحيح أخى اختر "تحديد كأفضل إجابة"

بعد اذن الأخ ياسر خليل تفضل أخى قم بنسخ الكود التالى وضعه فى الملف فى محرر الأكواد قبل السطر End Sub Range("B3:H100").ClearContents وشكرا

استبدل أخى كود كشف_حساب بالكود التالى: وذلك ابتداء من dim mo as string Dim mo As String Dim Lr As Long, i As Long Dim r As Integer mo = Range("b3").Value sh = [b2] Range("a5:e1000").ClearContents Application.ScreenUpdating = False With ActiveSheet Lr = Sheets(sh).Cells(.Rows.Count, "b").End(xlUp).Row For i = 3 To Lr If mo = CStr(Sheets(sh).Cells(i, "b")) And Sheets(sh).Cells(i, "f") >= [d3] And Sheets(sh).Cells(i, "f") <= [e3] Then r = r + 1 Cells(r + 4, "a").Value = Sheets(sh).Cells(i, "f").Value Cells(r + 4, "b").Value = Sheets(sh).Cells(i, "d").Value Cells(r + 4, "c").Value = Sheets(sh).Cells(i, "c").Value Cells(r + 4, "d").Value = Sheets(sh).Cells(i, "g").Value Cells(r + 4, "e").Value = Sheets(sh).Cells(i, "h").Value End If Next End With Run "btnSort_Click" Run "OnFiltercashf" End Sub أرجو أن يكون هذا طلبك

ارفق ملف أخى

انظر المرفق لقد صممت لك أخى نموج ادخال بيانات Form أتمنى يكون هذا طلبك نموزج-ادخال.zip

السلام عليكم ورحمه الله وبركاته لقد بحثت يا أخوانى على الانترنت عن شرح للـــclass module ولم أجد مطلقاً فهذا الموضوع هام جدا أرجو أن يتفضل أحد أساتذة المنتدى بشرحه حتى يستفيد منه باقى الأعضاء وشكرا جزيلاً

انظر أخى الكود بعد التعديل Sub حسب_الاختيار() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim c As Range Sheet2.Range("b5:d100") = Empty For Each c In Sheet1.Range("chose") If c.Value = "نعم" Then ' Z = Z + 1 lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1 Sheet2.Range(Sheet2.Cells(lstrow, "b"), Sheet2.Cells(lstrow, "g")) = _ Sheet1.Range(Sheet1.Cells(c.Row, "b"), Sheet1.Cells(c.Row, "g")).Value 'Sheet2.Cells(lstrow, "a") = Z: End If Next c MsgBox ("تم ترحيل الصفوف المحددة بنجاح"), vbDefaultButton1, " تحياتي أ / محـمـود جـمـعـه " Sheets("المبيعات (1)").Select Range("c2").Select Application.ScreenUpdating = True Application.Calculation = xlCalculationSemiautomatic End Sub