حمادة عمر

السلام عليكم الاخ الكريم / الجموعي بارك الله فيك كود جميل ... تسير في طريق جميل الا وهو طريق التميز وفي انتظار اعمالك وروائعك ومساعداتك للجميع تقبل خالص تحياتي

السلام عليكم الاخ الكريم / مهند الزيدي بارك الله فيك اللهم آمين ...آمين واكرمك الله في الدارين تقبل خالص تحياتي

السلام عليكم الاخ الكريم / مهند الزيدي بارك الله فيك ولكن عذرا فلقد تم تنفيذ طلبك في عجاله ... وكان الغرض الوصول للفكرة التي تقصدها فقط وهذا تعديل بسيط ليتناسب مع طلبك كما تريد ( باذن الله ) استبدل الاكواد الموجودة لديك في الفورم بالاكواد التالية Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select ComboBox2.Clear With ComboBox2 For I = 1 To 250 If Not IsEmpty(Cells(2, I)) Then ComboBox2.AddItem Cells(2, I) Next End With End Sub Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select With ActiveSheet For Each c In Range(Cells(2, 1), Cells(2, 256)) If c = ComboBox2.Value Then c.Select Next End With Unload Me End Sub Private Sub UserForm_Activate() ComboBox1.Clear For T = 1 To ThisWorkbook.Sheets.Count R = Sheets(T).Name ComboBox1.AddItem R Next End Sub في انتظار ردك ونسألكم الدعاء تقبل خالص تحياتي فورم انتقال باسم الورقة واسم نطاق-ss.rar

السلام عليكم الاخ الحبيب / الشهابي لم ار ردك الا بعد ارسال الرد ... فعذرا حيث قمت بارسال المشاركة سريعا نظرا لضيق الوقت لدي الآن تقبل خالص تحياتي

الاخ الكريم ع السريع ... شاهد المرفق ... هل هذا هو ما تريد ؟؟ نسألكم الدعاء لوالدي ( رحمه الله ) فورم انتقال باسم الورقة واسم نطاق.rar

الاخ الكريم شاهد المشاركة رقم 241 في نفس الموضوع بها طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=45637&page=13&hl=%2B%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1%D8%A7%D8%AA+%2B%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%8A%D9%84#entry283497

بارك الله فيك اخي الكريم / ابو جيداء تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ahmd2505 بارك الله فيك بالنسبة للشرح علي اوفيس 2007 فهو ليس بالامكان في الوقت الحالي ولكني معك دائما في اي استفسار تحتاج اليه بالنسبة لفتح الفيجوال بيسك ... يمكنك فتحه في اي اصدار اكسيل باستخدام الضغط علي Alt + F11 وحتي يتم الشرح علي 2007 ( ان امكن ) شاهد الرابط التالي ... يستخدم قوائم 2003 مع اكسيل 2007 لتتعود عليها http://www.officena.net/ib/index.php?showtopic=38902&hl=%2B%D9%82%D9%88%D8%A7%D8%A6%D9%85+%2B2003 تقبل خالص تحياتي

الاخ الحبيب / ابراهيم ابو ليله تقبل خالص تحياتي

بارك الله فيك اخي / عبد الرحمن شفيق

بارك الله فيكي تقبلي خالص تحياتي

بارك الله فيكي اختي الفاضلة / سما محمد

بارك الله فيكي اختي الفاضلة / سما محمد

نعم بهذا الشكل ولكن ينقصه السطر الاول كالتالي LR3 = Cells(Rows.Count, "AB").End(xlUp).Row If Me.ComboBox1.Value = "جدول4" Then For RR = 1 To 9 Sheet1.Cells(LR2, RR).Offset(0, 27) = Me.Controls("TEXTBOX" & RR) Next End If والسطر هو ... لتحديد عمود بداية الجدول المقصود LR3 = Cells(Rows.Count, "AB").End(xlUp).Row

ما اروع ملفاتك والعابك وصورك الجميلة تقبل خالص تحياتي

ياريت اخي الكريم لو ترفق ملف به الفورم المقصود تقبل خالص تحياتي

سيم وضع الجزء التالي من الكود في حدث الكومبوبكس Private Sub ComboBox1_Change() بالاضافة للموجود ElseIf Me.ComboBox1.Value = "جدول4" Then Label1.Caption = Sheet1.Cells(2, 28): Label2.Caption = Sheet1.Cells(2, 29) Label3.Caption = Sheet1.Cells(2, 30): Label4.Caption = Sheet1.Cells(2, 31) Label5.Caption = Sheet1.Cells(2, 32): Label6.Caption = Sheet1.Cells(2, 33) Label7.Caption = Sheet1.Cells(2, 34): Label8.Caption = Sheet1.Cells(2, 35) Label9.Caption = Sheet1.Cells(2, 36): hhhh وبالتالي سيتم وضع كود آخر للبحث عن البيانات لظهورها في الليست والتي تخص الجدول 4 بالاكواد المستخدمة من الاخ الفاضل / ابراهيم ابو ليله ... جزاه الله خير ا وهذا هو الجزء المقصود Sub hhhh() Dim Ary() Dim i As Integer, ii As Integer, Lr As Integer ListBox1.ColumnCount = cont With Sheet1 Lr = .Cells(.Rows.Count, "a").End(xlUp).Row For i = 3 To Lr ii = ii + 1 ReDim Preserve Ary(1 To cont, 1 To ii) Ary(1, ii) = .Cells(i, 28).Value Ary(2, ii) = .Cells(i, 29).Value Ary(3, ii) = .Cells(i, 30).Value Ary(4, ii) = .Cells(i, 31).Value Ary(5, ii) = .Cells(i, 32).Value Ary(6, ii) = .Cells(i, 33).Value Ary(7, ii) = .Cells(i, 34).Value Ary(8, ii) = .Cells(i, 35).Value Ary(9, ii) = .Cells(i, 36).Value Next End With Me.ListBox1.Column = Ary Erase Ary End Sub ارجو ان يفي ذلك بطلبك تقبل خالص تحياتي label-SSSS++.rar

هل الجدول بنفس الشكل وسيكون مثلا ( جدول 4 ) بعد الجداول الموجودة

بارك الله فيك اخي الكريم / الجموعي تقبل خالص تحياتي

الشكل المقصود بعد الادارج كالتالي

جزاك الله خيرا اخي الحبيب احمد اين انت ... طالت غيبتك ... لعله خيرا ان شاء الله

جزاك الله خيرا اخي الحبيب / ضاحي

جزاك الله خيرا

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