عبدالله باقشير

السلام عليكم هذه محاولة جدول الرواتب.rar

جزاكم الله خيرا

السلام عليكم غير معادلة المصدر لقاعدة التحقق من الصحة =INDIRECT(SUBSTITUTE(M3;" ";"_")) تحياتي Book2_Tareq1.rar

جزاكم الله خيرا على مروركم الطيب وحفظكم الله وحفظ مصر الحبيبة من كل مكروه تقبلوا تحياتي وشكري

الحمد لله رب العالمين جزاكم الله خيرا

جزاك الله خيرا جرب المعادلة هذه =COUNTIF(A2:A67;"* لغة انجليزية *") اذا كان اسم المادة يؤخذ من خلية معينة مثلا E1 =COUNTIF(A2:A67;"*"&E1&"*") تحياتي

السلام عليكم كل عام وانتم بخير شاهد المرفق 2010 Test.rar

السلام عليكم جرب المعادلة التالية =SUMPRODUCT(N((LEN(A2:A67)-LEN(SUBSTITUTE(A2:A67;"/";"")))=MATCH(D1;G1:G15;0))) تحياتي عد مواد الدور الثانى.rar

السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub تحياتي

السلام عليكم هذا شرح للكود Sub Macro1() Dim iNm As String Dim Lr As Long, i As Long Dim R As Integer Dim d1 As Double, d2 As Double '''''''''''''''' ' iNm اسم الحساب يتم حفظه في المتغير iNm = Range("B1").Value ' d1 التاريخ الاول يتم حفظه في المتغير d1 = Range("B2").Value2 ' d2 التاريخ الثاني يتم حفظه في المتغير d2 = Range("B3").Value2 '''''''''''''''' ' مسح كشف الحساب Range("D6:K35").ClearContents '''''''''''''''' ' تعطيل اهتزاز الشاشة Application.ScreenUpdating = False With ورقة1 ' اخر صف للعمود 3 في اليومية Lr = .Cells(.Rows.Count, "C").End(xlUp).Row ' سلسلة تبدا من الصف 6 الى اخر صف في اليومية For i = 6 To Lr ' مقارنة اسم الحساب في العمود 3 والعمود 4 من اليومية If iNm = CStr(.Cells(i, "C")) Or iNm = CStr(.Cells(i, "D")) Then ' مقارنة التاريخ في العمود 6 ما بين الفترتين Select Case .Cells(i, "F").Value2 Case d1 To d2 R = R + 1 ' نقل الترقيم في العمود 4 من الكشف Cells(R + 5, "D").Value = R ' نقل 4 اعمدة من اليومية الى الكشف ابتداءا من العمود 6 Cells(R + 5, "F").Resize(1, 4).Value = .Cells(i, "F").Resize(1, 4).Value ' يتم مقارنة اسم الحساب مع العمود 3 في اليومية If iNm = CStr(.Cells(i, "C")) Then ' اذا كان صح ينقل القيمة في العمود 10 قيمة المدين Cells(R + 5, "J").Value = .Cells(i, "J").Value Else ' اذا كان خطا ينقل القيمة في العمود 11 قيمة الدائن Cells(R + 5, "K").Value = .Cells(i, "K").Value End If End Select End If Next End With ' تفعيل اهتزاز الشاشة Application.ScreenUpdating = True End Sub

السلام عليكم اذا اردتها بالكود Sub Macro1() Dim iNm As String Dim Lr As Long, i As Long Dim R As Integer Dim d1 As Double, d2 As Double '''''''''''''''' iNm = Range("B1").Value d1 = Range("B2").Value2 d2 = Range("B3").Value2 '''''''''''''''' Range("D6:K35").ClearContents '''''''''''''''' Application.ScreenUpdating = False With ورقة1 Lr = .Cells(.Rows.Count, "C").End(xlUp).Row For i = 6 To Lr If iNm = CStr(.Cells(i, "C")) Or iNm = CStr(.Cells(i, "D")) Then Select Case .Cells(i, "F").Value2 Case d1 To d2 R = R + 1 Cells(R + 5, "D").Value = R Cells(R + 5, "F").Resize(1, 4).Value = .Cells(i, "F").Resize(1, 4).Value If iNm = CStr(.Cells(i, "C")) Then Cells(R + 5, "J").Value = .Cells(i, "J").Value Else Cells(R + 5, "K").Value = .Cells(i, "K").Value End If End Select End If Next End With Application.ScreenUpdating = True End Sub مع الشكر لاخي جمال ودمتم في حفظ الله عمل كشف حساب بتاريخ بداية وتاريخ نهاية.rar

جزاكم الله خيرا وبارك فيكم وكل عام وانتم بخير تقبلوا تحياتي وشكري

السلام عليكم تفضل المرفق 2010 انشاء اوراق بالحسابات.rar

السلام عليكم كل عام وانتم بخير جرب المعادلة التالية =DATE(YEAR(TODAY());MONTH(TODAY());1) تحياتي

السلام عليكم حملت الملف للتاكد ووجدته 2003 وفتحته على اكسل 2003 وهو يعمل تمام التمام لا ادري ما المشكلة عندك

السلام عليكم الرابط التالي به طلبك http://www.officena.net/ib/index.php?showtopic=33890 وكل عام وانتم بخير

السلام عليكم جرب هذا الضريبة.rar

السلام عليكم شاهد المرفق 2010 ترحيل غياب_جديد.rar

السلام عليكم غير كود الزر CommandButton1 بالكود ادناه Private Sub CommandButton1_Click() Dim MyPath As String MyPath = MyNamebook '================================================ Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Set MyDate = Application.Evaluate(My_Date) With MyDate .Sort .Columns(2), xlAscending End With kh_Copy_Class Kh_Start FormulaToValue wsh kh_PageSetup With MyDate .Sort .Columns(1), xlAscending End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic '================================================ If Dir(MyPath, vbDirectory) = vbNullString Then MyBook.SaveAs MyPath MsgBox " : تم اضافة الملف بالاسم التالي" _ & vbCr & vbCr & MyPath, 524288, "الحمد لله" End If '================================================ wsh.PrintPreview Set wsh = Nothing Set MyBook = Nothing Set MyDate = Nothing End Sub تم فيه فرز البيانات حسب عمود الاسم قبل تنفيذ الكود ثم اعادة فرزها حسب التسلسل قم اولا باضافة تسلسل للبيانات في العمود A قبل تشغيل الكود المرفق 2003 توزيع على الفصول م1.rar

السلام عليكم هذا المرفق مع تنسيق شرطي لتلوين اعمدة يوم الجمعة المرفق 2010 ترحيل غياب_جديد.rar

شاهد المرفق 2010 ترحيل غياب_جديد.rar

جزاك الله خيرا

السلام عليكم استخدم هذه المعادلة في التنسيق الشرطي بشرط ان يكون كود المنطقة 4 ارقام في النطاق a11:a15 =COUNTIF($A$11:$A$15;LEFT(A3;4))=0

السلام عليكم ورحمة الله وبركاته الف مبروووووك والى الامام دوما..

السلام عليكم ورحمة الله وبركاته الف مبروووووك والى الامام دوما..