Ali Mohamed Ali

'واذا اردت الترحيل من العمود 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

تفضل Microsoft Excel Worksheet2.xlsm

جرب هذا بمجرد ادخال الرقم خطأ والضغط على انتر يقوم بمسح التكست بوكس Microsoft Excel Worksheet.xlsm

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

تفضل لك ما طلبت كلمة السر :123 يمكنك تغييرها كما تريد من داخل الكود Microsoft Excel Worksheet.xlsm

لك ما طلبت اصناف.xlsm

تفضل اصناف.xlsm

بالفعل هناك كلمة سر ولا استطيع الدخول الى الملف

اهلا بك فى المنتدى يمكنك رفع اى ملف تصورى لما تريد وشرح بالتفصيل ما تريد عليه

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

يمكن عمل الكودين فقط فى حالة اذا تم فتح صفحات بإسم الصنف ولكن انصحك بعمل ملف اخر لهذا الطلب أفضل لأنه كلما زاد من حجم الملف الواحد كلما ثقل وصعب العمل بكفاءة تفضل الملف بعد تحرير عمود السعر 11حساب العملاء(1).xlsm

أحسنت بارك الله فيك وجزاك الله كل خير

اهلا بك اخى الكريم تفضل تم ضبط الملف ولكن عليك فتح الصفحات الذى تريدها للأصناف المطلوبة بأخذ كوبى من الصفحة المفتوحة ,وعمل نفس المعادلات للصفحة الجديدة كما هو الحال فى المعادلات الموجودة بصفحة Reference للصنف المفتوح حاليا وهو 15003 بارك الله فيك كارت الصنف 2018 (1).xlsm

اهلا بك اخ كريم فى المنتدى لك ما طلبت 11حساب العملاء.xlsm

اخى الكريم كل البيانات الناتجة تمام بالنسبة للمعطيات فعل سبيل المثال ليس للصف الأول المتوسط اجمالى اقساط للمدرسة م8 ,فمنطقى ان لا يعطى نتيجة ,فلمل تقول النتائج غير دقيقة النتائج بالنسبة لما هو معطى مع المعادلة 100 % صحيحة ولكن سأنفذ لك الملف على المرحلة فقط كما تريد تفضل لك ما طلبت اقساط طلاب.xlsx

تفضل كل ما طلبت اقساط طلاب.xlsx

تفضل لك كل ما طلبت تحويل من عدة صفوف الى عمود واحد(1).xlsm