رعد داود

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

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

وهذا ملف لعمل فاتورة على يوزرفورم وفيه فائدة كبيرة للاخ ابو حنين طريقة عمل فاتورة ووضع اكوادها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

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