حمادة عمر

الاستاذ القدير العلامة الخبير / عبدالله باقشير منتهي منتهي الجمال والروعة جزاك الله خيرا

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك تفضل اخي المرفق المطلوب بالكود الذي تريده ولكن مع بعض التعديلات ليتناسب مع ما تريده اخي الحبيب ولكن عذرا تم وضعه بسرعة ... فرجاءا التجربة واخباري بالنتيجة واي استفسار معك دائما باذن الله ولكن لاحظ وضع هذا الكود لمسح بيانات الفورم عند الاستعلام KH_ClearControl تقبل خالص تحياتي جزاك الله خيرا استعلام من فاتورة-SAMA11.rar

السلام عليكم الاخ الكريم / ياسر فتحى البنا بارك الله فيك الملف المرفق من الاخ الحبيب / أبو محمد عباس ... جزاه الله خيرا وجعله الله دائما في عون الجميع ... وجعل ذلك في ميزان حسناته يوم القيامة يعمل كما تريد تماما واليك صورة من الملف عند محاولة المسح وراجع اخي الاكسيل لديك هل قمت بتمكين وحدات الماكرو ام لا واليك طريقة تمكين الماكرو في اكسيل 2007 تقبل خالص تحياتي طريقة تخفيض مستوى الأمان في كل إصدارات الإكسيل2007.rar

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك اعذرني فقط في التأخر عليك بالرد وذلك نظرا لظروف وضغط العمل وضيق الوقت فقط وسأحاول تنفيذ هذا الكود بالطريقة التي تريدها مع ملاحظة انني اظن انه لاستخدام هذا الكود والحصول علي افضل النتائج المطلوبة يجب ان تكون البيانات التي يتم استدعاؤها للفورم بنفس ترتيب البيانات في ورقة الاكسيل ( اي ترتيب الاعمدة ) تقبل خالص تحياتي

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

السلام عليكم الاخت الفاضلة / أم عبد الله بارك الله فيكي انت اختي الاستاذة ... وبالفعل والله انا متابع لردودك في معظم موضوعاتك والتي دائما تتسم بالابداع وروح الخبرة العالية يالا شدي حيلك علشان يكون عندنا اول ( خبيرة معتمدة ) باذن الله تقبلي خالص تحياتي جزاكي الله خيرا

السلام عليكم الاخ الكريم / halimnacer بارك الله فيك تقبل خالص تحياتي اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

السلام عليكم الاخ الكريم / عبد السلام زاوي يمكنك عمل ذلك باتباع التالي من قائمة ادوات --- > خيارات كما في الصور التالية الخطوة الثانية ويمكنك عمل ذلك ايضا باستخدام الاكواد ان اردت ذلك تقبل خالص تحياتي جزاك الله خيرا

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

السلام عليكم الاخ الكريم / صالح أبو أحمد بارك الله فيك بما انك تعرف الكود المستخدم واصبح سهل التعامل معه اذا هيا معا نقوم بفكرة بسيطة لتنفيذ طلبك وهي تكرار الكود فقط في نفس الامر ولكن مع تغيير اسم النطاق كما تريد ... كما يلي في الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم صلاحية لتنفيذ ذلك ... مع تحياتي / حمادة عمر " End If If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("mydata")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم صلاحية لتنفيذ ذلك ... مع تحياتي / حمادة عمر " End If End Sub واليك الملف المرفق وفي انتظار ردك تقبل خالص تحياتي myrange3.rar

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

السلام عليكم الاخ الكريم / محمد يوسف محمد1 بارك الله فيك مرور طيب وكريم من اخ كريم تقبل خالص تحياتي اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

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

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك قمت بتغيير كود الاستعلام نهائيا ليتناسب مع طلبك حيث ان عمود البحث ليس هو اول عمود والاعمدة المطلوب احضارها للفاتورة ليست بالترتيب فوضعت لك كود سهلا يسهل استخدامه اكثر من الكود السابق حتي في حالة زيادة صفوف الفاتورة ويمكنك التعديل فيه كما تريد ... ولكن ليس بكومبوبكس ولكن تكست بوكس جديد لكتابة رقم القيد ثم الضغط علي زر (( استعلام )) واليك الكود المستخدم والملف المرفق وفي انتظار رأيك وردك بالنسبة لهذا الكود Private Sub CommandButton1_Click() Dim a As Integer For a = 2 To 10000 b = Sheet1.Cells(a, 18) If b = TextBox1.Text Then Text_datE = Sheet1.Cells(a, 4) Exit For End If Next a For a = 2 To 10000 b = Sheet1.Cells(a, 18) c = Sheet1.Cells(a, 18) If b = TextBox1.Text Then If b = c Then C1 = Sheet1.Cells(a, 2) D1 = Sheet1.Cells(a, 3) E1 = Sheet1.Cells(a, 5) F1 = Sheet1.Cells(a, 6) G1 = Sheet1.Cells(a, 7) H1 = Sheet1.Cells(a, 8) I1 = Sheet1.Cells(a, 9) J1 = Sheet1.Cells(a, 13) K1 = Sheet1.Cells(a, 10) L1 = Sheet1.Cells(a, 11) M1 = Sheet1.Cells(a, 12) Exit For End If End If Next a '====================== For a = 2 To 10000 b = Sheet1.Cells(a, 18) c = Sheet1.Cells(a, 18) If b = TextBox1.Text Then If b = c Then C2 = Sheet1.Cells(a + 1, 2) D2 = Sheet1.Cells(a + 1, 3) E2 = Sheet1.Cells(a + 1, 5) F2 = Sheet1.Cells(a + 1, 6) G2 = Sheet1.Cells(a + 1, 7) H2 = Sheet1.Cells(a + 1, 8) I2 = Sheet1.Cells(a + 1, 9) J2 = Sheet1.Cells(a + 1, 13) K2 = Sheet1.Cells(a + 1, 10) L2 = Sheet1.Cells(a + 1, 11) M2 = Sheet1.Cells(a + 1, 12) Exit For End If End If Next a End Sub واليك اخي المرفق جزاك الله خيرا استعلام عن فاتورة-SAMA.rar

الاخ الكريم / رائد 1982 بارك الله فيك تقبل خالص تحياتي جزاك الله خيرا

الاخ الكريم / رائد 1982 بارك الله فيك تقبل خالص تحياتي

الاخ الكريم / رائد 1982 بارك الله فيك تقبل خالص تحياتي

الاخ الكريم / رائد 1982 بارك الله فيك

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

السلام عليكم الاخ الكريم / رائد 1982 بارك الله فيك تقبل خالص تحياتي

بالفعل صياد لكل ما هو جديد ومجهود رهيب تشكر عليه وشعور جميل ورغبة في مساعدة الجميع بكل معلومة تقبل اخي الحبيب خالص تحياتي

لارفاق ملف يجب عليك القيام بضغط الملف باحد برامج الضغط واليك رابط لشرح طريقة رفع الملفات بالمنتدي فيديو http://www.officena....showtopic=41520

يتم ذلك من خلال النطاق الذي تحدده مثلا في الملف السابق المرفق .RowSource = "=Sheet1!A2:C10" قم بتغيير A2 الي A1 وشاهد النتيجة في الملف السابق من الكود او من الخصائص الخاصة بالليست تقبل خالص تحياتي