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

طلبك أخى ممكن وليس مستحيلاً 

ممكن ترفق ملف يوضح المطلوب بمثال

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

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

السلام عليكم ورحمه الله وبركاته

بالنسبة للطلب الأول :تفضل أخى تعديل الفورم ليلائم طلبك

بالنسبة للطلب الثانى : ياريت توضحلى شكل التقرير المطلوب وتقوم بارفاقه فى الملف

وشكرا

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