رعد داود

حسب  ما فهمته  من ملفك   وارفق  لك  صور  بالكود   من  ورقة  تصفية  ....  وعملت  فلترة  من  ورقة  التصاريح  نفس  النتيجة

وهذا  الرابط  مفيد 
 

وهذا  ملف  لعمل  فاتورة  على يوزرفورم   وفيه فائدة كبيرة  للاخ  ابو حنين

طريقة عمل فاتورة ووضع اكوادها5 اكسيل.rar

اسف   الرابط  الاول  ليس  يوزر  فورم 
إليك  هذه  المشاركة

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

أعتقد  أن  المطلوب   هو  في الملف 
 

وارفعه لكم  مرة  أخرى  أقرأ  الملاحظة

الفروووع.rar

السلام عليكم 

هذا  الملف  حسب  فهمي
أنشأت لكم  ورقة  تصفية   وتختار  منها  التصفية  حسب  المنطقة  او  الفرع
أرجو  ان يكون   المطلوب

الفروووع.rar

في اعدادات  اللغة   

 السلام عليكم

اريد البحث  في  العمود  c   بتحقق  شرطين   وكذلك البحث في العمود  d   بحسب  التاريخ
لدي  هذا  الكود   لكن  لايعمل  لشرطين 
 

Sub erad()
Dim ib As Boolean
Dim tst As Integer, tst1 As Integer, tst2 As Integer
Dim LastRow As Long, i As Long, ii As Long
Dim SText As String
Dim SText1 As String
Dim StDate As Double, EndDate As Double
With Sheets("واردات")
        .Range("A4:f1500").ClearContents
        SText = .Range("F1")
        SText1 = .Range("E1")
      
        If IsDate(.Range("C1")) And IsDate(.Range("C2")) Then
                StDate = .Range("C1")
                EndDate = .Range("C2")
        Else: ib = True
        End If
End With
ii = 4
With Sheets("data")
        LastRow = .Cells(Rows.Count, 4).End(xlUp).Row
        For i = 4 To LastRow
                '===============================
                If Len(Trim(SText)) = 0 Then tst = 1 Else tst = Abs(CStr(.Cells(i, "c")) = SText)
                                If Len(Trim(SText1)) = 0 Then tst1 = 1 Else tst1 = Abs(CStr(.Cells(i, "C")) = SText1)
                              
                If ib Then tst2 = 1 Else tst2 = Abs(.Cells(i, "D").Value2 >= StDate) * Abs(.Cells(i, "D").Value2 <= EndDate)
                '===============================
                If tst * tst1 * tst2 Then
                       Sheets("واردات").Cells(ii, "A").Value = .Cells(i, "B").Value
                       Sheets("واردات").Cells(ii, "B").Value = .Cells(i, "D").Value
                       Sheets("واردات").Cells(ii, "C").Value = .Cells(i, "m").Value
                       Sheets("واردات").Cells(ii, "D").Value = .Cells(i, "H").Value
                                              Sheets("واردات").Cells(ii, "E").Value = .Cells(i, "K").Value
                       Sheets("واردات").Cells(ii, "F").Value = .Cells(i, "L").Value
                                              
                        ii = ii + 1
                End If
        Next
End With
End Sub

مشكور   اخي

  كذلك  يصح  الكود  التالي    cellls (2,3)=""

السلام  عليكم

عندي  خلايا مدمجة  مثلا  c2:d2  و  c3:d3  و c4:d4   وهناك  خلايا  اخرى غير مدمجة   فماهو  كود  مسح  هذه الخلايا  جميعا ؟

جاري  التجربة  استاذنا  الفاضل 
والشكر  موصول  استاذ سليم

السلام  عليكم 
أرفق لكم ملف  لعمل ميزان مراجعة  بالكود  بديلا" عن  الدالة التجميعية  الشرطية    sumifs 

مع فائق الشكر  والتقدير .... تــم تعديل رفع الملف , من فضلك لا تقوم برفع الملف مضغوط طالما حجمه صغير

2020المكتب.xlsm

تم   اخي  الفاضل  @احمد الفلاحجي

الاستاذ @kha9009lid
الف  شكر  استاذي  العزيز
تم ترتيب  السجلات  لتظهر  بالتقرير  حسب  الترقيم  التلقائي  والتاريخ  ايضا  جعلته  في  التقرير  من  الاصغر  الى  الاكبر
والعملية  مضبوطة  تمام
لك  مني  خالص  الود والتحية
والشكر  ايضا  للاخ  @احمد الفلاحجي

احسنتم  كثيرا  استاذي
جاري  التجربة  على  سجلات  كثيرة
وتحياتي  لكم

37 minutes ago, kha9009lid said:

جرب الان

 

حركة صندوق 1.accdb 832 kB · 2 downloads

الف  شكر  العزيز
المعادلة  لاغبار  عليها   التي  تخص  السابق
لكن  الذي  بعدها  مثلا  يكون  الرصيد  هو  :
السابق + الوارد الحالي += الرصيد
او
السابق_المصروف الحالي = الرصيد
وهكذ1
مع  ملاحظة  عند  كثرة  السجلات   لايعطيني  التاريخ يتوقف  عند  7/3  

العزيز  استاذ

   @احمد الفلاحجي
الله  يعطيك  العافية
هذا  الرصيد  الموجود  هو  ماقبل  التاريخ  باضافة  او  نقصان  الحركة  التي  تليه
بمعنى  ان  رصيد  ماقبل  5/3/2020 هو 7,610,000  هو الذي  يظهر   ثم  تأتي  العملية  التي  بعدها  وهكذا في  الحقل الذي  يليه  يكون7,700,000
وهكذا  الذي  يليه  بحسب  نوع  العملية  الحسابية

14 hours ago, أحمد الفلاحجى said:

اخى @رعد داود كيف والظاهر فالصوره خلاف كلامك

ممكن توضح بصوره من نفس المرفق وتشرح عليه فالصوره السابقه توضح ان الرصيد قبل تاريخ 5/3/2020 هو 7610000

ثم تمت حركه وارد بمبلغ 90000 والنهائى 7700000

يوم 6 سابق 7700000 وتم صرف 123500 نهائى 7576500

فياريت توضح كلامك بصوره وارقام من خلال المرفق المعدل لاخى خالد @kha9009lid جزاه الله خيرا هو واخوانى الافاضل بارك الله فيهم

بالتوفيق

اشكرك  اخي  استاذ
    نعم  الترصيد  صحيح  لكني  أحببت  ان يظهر  الرصيد  السابق  بالبداية  حقل  فوق
ثم تبدأ  عملية  الترصيد  بعدها   العمل  تام  لكن  هذا  الذي  كنت  اريده   @احمد الفلاحجي

On 3/15/2020 at 12:10 PM, kha9009lid said:

السلام عليكم هل ترغب في اظهار الرصيد السابق قبل كل عملية ايداع او صرف

 

اذا كان هو المطلوب فان الاستاذ @اكرم العريقي اعطاك الحل الصحيح

جرب المرفق

 

حركة صندوق 1.accdb 832 kB · 28 downloads

استاذي  العزيز
لم  يجلب الرصيد السابق  ويصاف  الى  الحركة التي  بعده

الف شكر  اخي  الكريم

  @kha9009lid

@jjafferr
الاستاذ جعفر  هل  لديكم فكرة عن  الحل

السلام  عليكم

الاخ  الفاضل  حربي العنزي
انا  عندي  معادلة  الرصيد  تمام  وشغالة
انا  اريد  في  التقرير  جلب  الرصيد  قبل  تاريخ  5/3/2020  مثلا   والذي  هو 7,700,000
ثم  يبدأ  الرصيد  بالتقرير  باضافة  الوارد والتنقيص  من المصروف  وهكذا
شكرا  لمداخلتك

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

لكن اريد اظهار الرصيد السابق  قبل التاريخ  من  في  التقرير
وارفق  صورة  من  جدول  اكسل  للتوضيح  اكثر          

حركة صندوق 1.rar