رجب جاويش

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

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

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

أخى الفاضل جرب هذا الكود Sub ragab() Dim sh As Worksheet Dim cl As Range, Rng As Range Dim LR As Integer, i As Integer, T As Integer Set sh = Sheets("فرز التكرار") '================================================================== sh.Range("A5:J1000").ClearContents For T = 1 To 2 For i = 2 To 3 If T = 2 Then i = 3 Set Rng = Sheets(i).Range("J5:J" & Sheets(i).[J1000].End(xlUp).Row) For Each cl In Sheets(T).Range("J5:J" & Sheets(T).[J1000].End(xlUp).Row) If Application.WorksheetFunction.CountIf(Rng, cl) >= 1 Then LR = sh.Cells(Rows.Count, 2).End(xlUp).Row + 1 cl.Offset(0, -9).Resize(1, 10).Copy sh.Range("A" & LR) End If Next cl Next i Next T End Sub ازدواجية 1.rar

أخى الحبيب / حمادة ربنا يسهل ان شاء الله ويتم استكمال السلسلة تقبل أرق تحياتى

أخى الحبيب / حمادة عمر شكرا جزيلا أخى الحبيب على كلماتك الطيبة ومرورك العطر وجزاك الله كل خير

الأستاذ الفاضل / عبد الله المجرب شرح ممتاز جعله الله فى ميزان حسناتك وفقك الله لاكمال هذه السلسلة الرائعة تقبل تحياتى وتقديرى

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

أخى الفاضل / محمد يوسف شكرا جزيلا أخى الفاضل على دعائك الطيب وجزاك الله كل خير

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

أخى الفاضل مر على هذا الرابط سوف تجد طلبك من عمل الاخ الحبيب / حمادة عمر فى المشاركة الثانية http://www.officena.net/ib/index.php?showtopic=46850&hl=%2B%D8%AD%D9%81%D8%B8+%2B%D8%A7%D9%84%D9%85%D9%84%D9%81+%2B%D9%83%D9%84+%2B%D9%81%D8%AA%D8%B1%D8%A9

أخى الفاضل / احمد الشافعى جزاك الله كل خير

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

أخى الحبيب / عباس السماوي دائما أتشرف واسعد بمرورك العطر على مشاركاتى وأسعد أكثر وأكثر بدعائك الطيب الطاهر فجزاك الله كل خير

أخى الفاضل / سعد عابد شكرا جزيلا أخى الفاضل وجزاك الله كل خير ليس عندى معلومة عن هذا الموضوع الذى يخص اخفاء المشروع كله

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

تفضل أخى NEW.rar

واذا أردنا حذف جميع الموديولات ما عدا الموديول المحتوى على كود الحذف وهو هنا ( module1 ) يكود الكود كالآتى Sub Del_All_Modules() Set VBComp = Application.VBE.ActiveVBProject.VBComponents For Each VBComponent In VBComp If VBComponent.Name <> "Module1" Then If VBComponent.Type = 1 Then VBComp.Remove VBComponent End If End If Next End Sub حذف جميع الموديولات.rar

أخى الفاضل جزاك الله كل خير

واذا أردنا تعديل بحيث يكون الحذف بدلالة اسم الموديول وليس رقمه يكون التعديل كالآتى Sub Del_Module() On Error Resume Next mod_nam = Application.InputBox("أدخل اسم الموديول المراد حذفه", "حذف موديول") With ActiveWorkbook.VBProject.VBComponents .Remove .Item(mod_nam) End With End Sub

تكملة للموضوع اليكم طريقة حذف موديول عن طريق الكود هذا هو الكود وهو يعتمد على كتابة رقم الموديول فقط طبعا ذلك يعتمد على أن الموديولات لها الأسماء الافتراضية module1 و module2 و module3 وهكذا Sub Del_Module() On Error Resume Next mod_num = Application.InputBox("أدخل رقم الموديول المراد حذفه", "حذف موديول") With ActiveWorkbook.VBProject.VBComponents .Remove .Item("Module" & mod_num) End With End Sub حذف موديول.rar

أخى الفاضل / وائل عبد الصمد شكرا جزيلا وجزاك الله كل خير

أخى الفاضل / خالد القدس شكرا لك أخى الفاضل وجزاك الله كل خير

أخى الفاضل / سعد عابد شكرا لك أخى الفاضل وجزاك الله كل خير

أقم لكم اليوم كود لنسخ موديول Module من ملف اكسيل لآخر هذا هو الكود Const File1 As String = "book1" Const File2 As String = "book2" Const Old_mod As String = "Module1" Const New_mod As String = "ragab" Sub CopyModule() Dim Tmp As String On Error Resume Next F_path = ActiveWorkbook.Path Tmp = F_path & "\" & "TempFile.bas" Workbooks(File1).VBProject.VBComponents(Old_mod).Export Filename:=Tmp Workbooks.Open F_path & "\" & File2 Workbooks(File2).VBProject.VBComponents.Import(Filename:=Tmp).Name = New_mod Kill Tmp End Sub الجزء العلوى من الكود نحدد فيه بيانات الملفين والموديولات كالآتى السطر الأول Const File1 As String = "book1" نحدد فيه اسم الملف الاول السطر الثانى Const File2 As String = "book2" نحدد فيه اسم الملف الثانى السطر الثالث Const Old_mod As String = "Module1" نحدد فيه اسم الموديول المراد نسخه السطر الرابع Const New_mod As String = "ragab" نحدد فيه الاسم الجديد للموديول فى الملف الثانى ملحوظة مهمة لكى يعمل الكود بشكل سليم لابد من الخطوتين التاليتين أولا 1- فى محرر الاكواد (VBA editor ) اذهب الى أدوات (Tools) ثم مراجع (References ) وضع علامة صح أمام المرجع Microsoft Visual Basic For Application Extensibility كما فى الصورة 2- فى واجهة الاكسل العادية من قائمة أدوات (Tools ) اختار ماكرو (macro ) ثم الأمان ( security) ثم من التبويب ( trusted publishers) ضع علامة صح أمام عبارة ( Trust access to visual Basic project ) كما فى الصورة نسخ موديول من ملف لآخر.rar