الـعيدروس

السلام عليكم استاذ عماد الحسامي حفظك الله ورعاك اكوادك تدل على انسان متمكن الاكسل مع الحسامي ( بلا حدود ) وفقك الله وسدد خطاك وحماك من كل مكروه تقبل تحياتي وشكري

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

لاشكر على واجب والحمد لله انه المطلوب

السلام عليكم جزاك الله خير استاذ طارق عمل متقن وفقك الله تقبل مروري

السلام عليكم هل تريد الكشف في شيت منفصل ام في الشيت نفسه في عدة طرق بالامكان بالفلترة او كود تحياتي

السلام عليكم الاخ الفاضل ابو الحسن حفظك الله ==================== بمعنى ان يقوم بالعمل على اخر سطر بالصفحة لكل صفحات العمل لو اخر سطر به كلمة الاجمالى لايعمل " إقتباس " ولو اخر سطر لا يوجد به كلمة الاجمالى يتم تنفيذ الكود ================ هذا هو عمل الكود فما الاضافة التي تريدها ؟؟

السلام عليكم ياهو لايوجد مرفقات ربما حذفت مع مشكلة البارح ام ماذا ؟؟؟

السلام عليكم حقيقة ملف به اشياء قيمة جزاك الله خير لي طلب بسيط شرح هذا الجزء من الكود ما مهمة هذا الجزء Private Sub Export(ByVal lig As Long) استخدمت فيه هذه الدالة ماعملها ByVal ولك منا كل الشكر والتقدير وعمل ان شاء الله في موازين حسناتك

السلام عليكم هل يمكن ارفاق الملف وان كان به اسرار عمل اعمل منه نسخة وسو عليه بيانات وهميه وارفقة وان شاء الله يتم عمل المطلوب

السلام عليكم الاستاذ الفاضل عبدالله المجرب انا جربت كودك على ملف الاستاذ خبور خير Application.Speech.Speak ch وعمل بكفائة ولاتوجد اي لخبطه ؟؟

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

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

=========================== تم تعديل المرفق في المشاركة السابقة لخصنا الكود نوع ما الكود في السابق كان على حلقتين مما يسبب بطئ في حال البيانات كثيره والان ان شاء الله يعمل بكفائه تحياتي

السلام عليكم اشكرك استاذ احمد على هذا المرور العطر والكلمات الطيبه الاخ الفاضل Creation World اطلع على المرفق طريقتين StatusBar واطار فورم عله يفي بالغرض ودعواتك يالغالي B_ALIDROOS.rar

السلام عليكم استاذ عبدالله (خبور خير) حفظك الله حقيقة عمل اساتذه كبار لاادري ماذا اسمية قمة الروعة ذو فائده قيمة عمل من العيار الثقيل جعله الله في موازين حسناتك ان شاء الله تقبل مروري

السلام عليكم استاذنا الحبيب احمد يعقوب حفظك الله والله انا لااعلم شيء عن هذه المقارنه وان توصلت الى المعلومه سوف لن اقصر ان شاء الله تتوصل لما تريد استاذ احمد تقبل اعتذاري والسلام عليكم

السلام عليكم وهذا كود تم عمله مسبقاً شبيه كثير لكود استاذنا الحبيب محمد صالح لاثراء الموضوع هذا الكود في حدث ThisWorkbook Private Sub Workbook_Open() For Each sh In ActiveWorkbook.Worksheets ALI_SH = ALI_SH & "," & sh.Name Next sh With ورقة1 .Range("A1").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=ALI_SH End With End With End Sub وهذا في حدث الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Worksheets(Target.Value).Select End If End Sub

جزاك الله خير استاذ محمد صالح حل جميل جدا

تفضل واي ملاحظات انا موجود تحياتي SH_ALI.rar

اطلع على المرفق fffd.rar

السلام عليكم الذي في المرفق لااعتقد ان تقدر تربطه على تنفيذ ولاكن انشاء ليست بوكس من عناصر تحكم Activex وحط هذا الكود في حدث الصفحة Private Sub ListBox1_Click() Dim sh As Worksheet With ListBox1 Set sh = Sheets(.Column(0)) End With sh.Activate End Sub Private Sub ListBox1_LostFocus() On Error Resume Next Dim C_ALI As Integer For C_ALI = 1 To ActiveWorkbook.Sheets.Count ActiveSheet.ListBox1.AddItem ActiveWorkbook.Sheets(C_ALI).Name Next C_ALI = Null End Sub

السلام عليكم استاذ احمد يعقوب حفظك الله ورعاك ياللروعة اعمالك برنامج عملي جدا وقيم اهنيك على الافكار التي فيه استفدت منها تقبل مروري

الحمد لله الذي بنعمته تتم الصالحات

السلام عليكم اتبع الشرح اذا مازبط معاك اخبرني شرح.rar

السلام عليكم جرب هذا الكود ربما يفي بالغرض والشكر موصول لمن كتب الكود المدى تحدده من الكود موضح علية من اين تعدل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False '======================================================= ' هذا الجزء في حال النقر غير صف 2 من اي عمود لاينفذ الكود If Target.Row <> 2 Then Exit Sub '======================================================= ' هذا المدى الذي سيتنفذ فيه الكود! ! If Not Intersect(Target, Range("A2:I2")) Is Nothing Then '======================================================= ' نطاق الفرز يبداء من اول سطر البيانات بعد صف 2 Rows("3:65536").Sort Key1:=Cells(3, Target.Column), _ Order1:=xlAscending, Header:=xlNo Cancel = True Cells(3, Target.Column).HorizontalAlignment = xlRight End If Application.EnableEvents = True End Sub يتفعل الكود عند النقر مرتين على صف العمود ماهو ضمن المدى