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

تفضل Sub kh_Move() Dim mPath As String Dim oldName As String, newName As String mPath = ThisWorkbook.Path & "\" oldName = mPath & "zzz\vv.xls" newName = mPath & "mmm\vv.xls" Name oldName As newName End Sub تحياتي

السلام عليكم جرب الكود التالي Sub kh_Move() Dim oldName As String, newName As String oldName = "c\zzz\vv.xls" ' اسم الملف مع المسار newName = "c\mmm\vv.xls" ' اسم الملف مع المسار Name oldName As newName End Sub تحياتي

اختي الفاضلة / ام عبدالله .............اكرمكم الله صعب التعرف على التنسيق الشرطي بالدالة ... والله اعلم لازم يكون لون حقيقي وليس تنسيقي علشان تعمل الدالة ... تقبلوا تحياتي وشكري

اخي الفاضل تقبل اعتذاري.................

السلام عليكم جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم اخي الحبيب الخالدي .......لم اشاهد مشاركتك عموما زيادة في الخير ............جزاكم الله خيرا.....تقبلوا تحياتي وشكري اخي الحبيب عباد..........جزاكم الله خيرا.....تقبلوا تحياتي وشكري

السلام عليكم تم العمل بالكود التالي: Const Adr As String = "I13" Sub Macro1() Dim Rng1 As Range, Rng2 As Range, Cel As Range Dim R As Integer Set Rng1 = Range("A1:A11") Set Rng2 = Range("D1:D11") For Each Cel In Rng1 R = R + 1 If WorksheetFunction.CountIf(Rng2, CStr(Cel)) Then Range(Adr).Cells(R, 1).Value = Cel.Value End If Next For Each Cel In Rng2 If WorksheetFunction.CountIf(Rng1, CStr(Cel)) = 0 Then R = R + 1 Range(Adr).Cells(R, 1).Value = Cel.Value End If Next End Sub شاهد المرفق 2003 ترتيب بشكل معين.rar

سرني مروركم وكلماتكم الطيبة....جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم اخي الفاضل / أحمد فؤاد ............حفظكم الله الف مليوووون مبروك .... والى الامام دوما....

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

السلام عليكم اخي الفاضل/ حمادة باشا ...حفظكم الله تاكدت من معرفة المطلوب من ملفك ...جزاكم الله خيرا اختي الفاضلة / ام عبدالله ...حفظكم الله عملنا الدالة التالية لحساب اكبر غياب متصل مع عد الخلايا الملونة ( اي لون بدون تحديد) اذا اتصلت بالغياب Function kh_ContNoN(Rnge As Range) As Integer Dim Cel As Range Dim i As Integer, ii As Integer, iii As Integer For Each Cel In Rnge If CStr(Cel) = "غ" Or Cel.Interior.ColorIndex <> -4142 Then If CStr(Cel) = "غ" Then i = i + 1 If Cel.Interior.ColorIndex <> -4142 Then ii = ii + 1 If i > 0 Then If i + ii > iii Then iii = i + ii Else: i = 0: ii = 0 End If Next kh_ContNoN = iii End Function ارجوا ان يكون المطلوب المرفق 2003 ASA3.rar

السلام عليكم شاهد المرفق 2003 جدول++.rar

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

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

السلام عليكم شاهد المرفق 2010 شئون.rar

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

السلام عليكم تم اضافة عمود بعد اسم الام يجمع الثلاثة الاسماء الاولى مع اسم الام ( عن طريق المعادلات) تستطيع من خلاله البحث عن الاسم الكامل وتم اضافة رسالة التكرار عند اضافة الاسم الجديد( توخذ المقارنة من عمود الاسم الكامل) شاهد المرفق 2010 المرضى المزمنين++.rar

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

السلام عليكم تم عمل المجاميع لكل الحسابات وتعديل كود اسماء الشيتات في ورقة قائمة الاسماء وتم عمل المجاميع بين تاريخين للفواتير والسندات (لورقة واحدة حسب الاختيار) في ورقة حسابات - تقديرات شاهد المرفق 2003 برنامج الحسابات.rar

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

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

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

ضع الرقم الذي تريده في التاكست (رقم السجل ) تحت لست البحث واضغط انتر.

السلام عليكم حل رائع ....جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم الف مليوووووون مبروك والى الامام دوما............