Ali Mohamed Ali

تفضل اخى الكريم طالمل لم تقم برفع ملف كان عليك رفع ملف تجنبا لمضيعة الوقت -1ترتيب الاسماء.xlsm

بعد انهاء وكتابة المعادلة قم بالوقوف عليها كما بالصورة واضغط على Ctrl+Shift+Enter ورجاءا اخى الكريم عندما تقوم بالرد لا تاخذ اقتباس من رد الشخص الأخر فهذا يعمل على التشتيت وعدم التركيز فى المشكلة او الطلب كما انك عندما تقوم برفع ملف به مشكلة لا ترفع اكثر من 20 صف على الأكثر حتى يكون الملف خفيف فى التعامل معه ولا يضيع من وقت الأساتذة فى الفتح جزاك الله كل خير

تفضل بنسخة Mdb وكلمة السر واسم المستخدم 1 العيادات الطبية.mdb

تفضل اخى الكريم ليس هناك اى خطأ فى معادلة جلب الأسماء بدون تكرار ولكن الخطأ كان فى طريقة اقفال المعادلة فهذه معادلة مصفوفة وليست كمعادلة عادية ان تضغط على انتر بعد انهاء المعادلة ولكن لابد من الضغط على Ctrl+Shift+Enter بدون تكرار2.xlsm

كلمة السر للبرنامج ان وجدت هو 123 https://up.ar4up.com/do.php?id=310 اختر منهم ما يناسبك تفضل نسبة لكبر حجم الملف تم رفعه على موقع خارجى ,تفضل ولكمة السر هى 0000 https://up.ar4up.com/do.php?id=309

يمكنك التغيير كما تشاء فيه اذا وجدت كلمة سر فستكون : 123 برنامج تسيير المطعم المدرسي.xls

اهلا بك اخ كريم فى المنتدى يمكنك البحث عن هذا البرنامج وتحميله ثم قم بتسطيبه : Passware Passware Kit Forensic.v13.5.8557.x32-BRD

وعليكم السلام ,تفضل الملف بعد التعديل عليه 99.xlsx

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

اهلا بك اخ كريم فى المنتدى تفضل يعرض قيمة الخلية C5 فى تكست بوكس1 فى الفورم Userform.xlsm

لة ممكن رفع الملف حتى نتمكن من حل المشكلة

تفضل يتم ذلك بمجرد الضغط على ترحيل كارت الصنف 2018 (1).xlsm

الكود التالي يحدف الملف بعد مرة واحدة من استعماله تلقائيا و بدون اشعار المستخدم ! ضع الكود في ThisWorkbook Module Option Explicit Private Const MAX_USES As Long = 1 Private Sub Workbook_Open() Dim lNumberOfUses As Long  On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With  End Sub ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود

تفضل اخى الكريم كود الترحيل يعمل الأن معك المشكلة كانت لأنك لم تغير رقم الصفحة المرحل منها وهى 1 فى الشيت الجديد المرسل منك لأن ترتيبها اصبح الصفحة الثالثة وليست الأولى كما فى الملف القديم حساب عملاء.xlsm

اهلا بك اخ كريم فى المنتدى تفضل لك ما طلبت وجدت هذا الملف عندى دالة التفقيط باللغة التركية.xlsm او جرب هذا turk.xlsm

'واذا اردت الترحيل من العمود K : L فقط 'عليك بتغيير هذا الصف فى الكود Range(Cells(i, "A"), Cells(i, "O")).Copy 'وجعله هكذا Range(Cells(i, "K"), Cells(i, "L")).Copy

بارك الله فيك دائما وفى استاذنا الكبير ياسر خليل ابو البراء له منا كل الحب والإحترام وأدامه الله دائما عونا لنا جعله الله فى ميزان اعماله وغفر الله له

تم ارسال الكود الجديد فى المشاركة الأخرى

Option Explicit Sub TARHIL() Dim Sh As String Dim i As Integer Dim AA As Integer '====================================================== Application.ScreenUpdating = False Sheets("جنح").Range("A2:O1000").ClearContents Sheets("مدنى").Range("A2:O1000").ClearContents 'يمكنك فى هذا الجزء اضافة اى شيت اخر جديد على نفس هذه الطريقة الموجودة '====================================================== For i = 2 To Cells(10000, "A").End(xlUp).Row Sh = Cells(i, "D").Value AA = Sheets(Sh).Cells(10000, 1).End(xlUp).Row + 1 If AA < 2 Then AA = 2 On Error Resume Next Range(Cells(i, "A"), Cells(i, "O")).Copy Sheets(Sh).Range("A" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 1 Next i Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" End Sub

تفضل اخى الكريم أجندة محامى (Autosaved).xlsm

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

تفضل اخى الكريم اخفاء الاطار الخارجى للفورم.xlsm

Index,Match,if

أعتذر خطأ صغير جدا فى المعادلة تفضل 2الانشطة.xlsx