الـعيدروس

السلام عليكم --------------- واجهة المتابعة --------------- جرب المرفق اي ملاحظه او تعديل الى وقت اخر نكمل العمل واجهة التقارير تحياتي برنامج_Ali.rar

المرفق السابق به مشكله في زر الطباعه تم التعديل يومية مبيعات_Ali1.rar

اذا كنت تريد ترحيل اوراق الايام الى ورقة "مصروفات السيارات" إستخدم الكود التالي Private Const Nm As String = "مصروفات السيارات" Public N_Sh$ Public Sub Ali_Tr() Dim Sh As Worksheet, S As Worksheet Dim my_r As Range Dim Lr& Set S = Sheets(Nm) S.Cells.Clear For Each Sh In ThisWorkbook.Worksheets With Sh Select Case .Name Case Is = Nm, "كشف حساب", "تقارير" Case Else N_Sh = .Name Lr = S.Cells(S.Rows.Count, 2).End(xlUp).Offset(1, 0).Row .Range("B14:J104").Copy Set Rr = S.Range("B" & Lr + 1) With Rr .Offset(0, -1) = N_Sh .PasteSpecial xlPasteValues End With With S.Range(S.Cells(Rr.Row, 1), S.Cells(Rr.Row, 10)) .Cells(1, 3) = Application.Text(.Cells(1, 3).Text, "[$-C01]dddd") .Cells(1, 8) = Application.Text(.Cells(1, 8).Text, "yyyy/mm/dd") .Cells(1, 8).Columns.AutoFit .Font.Color = RGB(255, 0, 0) .Font.Bold = True .Borders.Color = 1 End With End Select End With Next End Sub

السلام عليكم شاهد التفاصيل في المرفق شرح_تعديل.rar

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

كما تفضل الاستاذ ابو حنين وهذ شرح فيديو تفعيل الحساب تلقائي لاوفيس 2007 شرح_1.rar

السلام عليكم بحث_Ali.rar

السلام عليكم ارفق مثال وبه الجدول الذي تعمل عليه توفير للوقت والجهد

السموحه منك استاذ عبدالله لم ارى ردك الا بعد المشاركه

استبدل السطر If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0 بهذا If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = ii - 1

السلام عليكم ثثث_2.rar

السلام عليكم الملف المرفق_A.rar

أول حرفين من الاسم فقط ؟ دون اظهار الاسم كاملاً

عند الطباعه على ان يكون تنفيذ الطباعه بزر معين هل هكذا تريد ؟ والخطاء لان دالة Countifs لاتعمل على ٢٠٠٣ منتظر ردك

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

السلام عليكم اطلع على المرفق لفورم الاصناف الى ان اجد وقت واكمل ماتبقى يومية مبيعات.rar

ارفق مثال بارك الله فيك إضغط الملف بااحد برامج الضغط ( Winrar -Winzip ) ثم ارفقه

الاخ الفاضل temooo2000 اتبع هذا الرابط http://www.officena.net/ib/index.php?showtopic=41175&hl=

المصنف لايقوم بالحساب التلقائي اذهب الى اعدادات الاكسل وحفز الحساب تلقائي

Public Bn As Boolean Public Sub Ali_Brnt() With ActiveSheet C = .Cells(.Rows.Count, 6).End(xlUp).Row For Cl = C To 36 Step -1 If .Cells(Cl, 6).Value = 0 Then .Cells(Cl, 6).EntireRow.Hidden = Not Bn Next .PrintPreview .UsedRange.EntireRow.Hidden = Bn End With End Sub

الاخ spiritsolo انشاء موضوع جديد لطلبك مع اضافة مثال كبيانات وهمية وان شاء الله تجد حلول

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

رغم الشرح الطويل والمفصل إلا انه لم يستوعب الطلب <====== هل المخرجات التي تريدها بكل سهوله اصغر من او اكبر من قيمة اساسية ؟ اذا هكذا ضيف عمودين عمود به step وعمود به القيمة الاساسيه القيمة الاساسية + step مقارنة مع Number =IF(Number>القيمة الاساسية + step ;"Up";"Down")

الف مبروك اخ حمادة باشا فأنت تستحق اكثر بحكم نشاطك وجهودك الطيبه والى مزيد من التقديم والرقي تقبل مروري

السلام عليكم جرب هكذا انشاء مودويل والصق الدالة المركبة التاليه فيه Public Function Ali_Sum(Rn As Range) As Currency On Error Resume Next Application.Volatile Cr = Chr(10): Vl = Split(Rn.Value, Cr) For ii = LBound(Vl) To UBound(Vl) x = x + Val(Vl(ii)) Next Ali_Sum = x On Error GoTo 0 End Function بعدها استخدمها في خلية الجمع كالتالي =Ali_Sum(A1)