me4you

شكرا لاهتمامك اخي العزيز لكن بالكود كل شيء ممكن الا انه ينقصني الخبرة

شكرا جزيلا استاذ حسين إلا أن ما قصدته من سؤالي هو التحكم بتنسيق أعمدة الليست بوكس كل بحسب ما يحتويه (مثلاً : عمود النص إلى اليسار ، عمود الارقام إلى اليمين أو الوسط) وليس المقصود تغيير مجمل الليست بوكس أرجو أن أكون قد استطعت توضيح الفكرة استاذي العزيز مهند أشكر لك اهتمامك الضرورة تكمن في التنسيق حيث أنك اذا لاحظت استاذي الفاضل أنه يوجد في نفس الاكسل تنسيق خاص بالارقام وتنسيق خاص بالنصوص لتظهر بشكل أوضح للمستخدم هذا هو الهدف من الموضوع تقبل مني كل الاحترام ولكم الشكر

السلام عليكم لو تكرمتم أخواني احتاج كود لتنسيق النص في أعمدة الليست بوكس (يسار - وسط - يمين) حيث أن الأرقام تظهر بشكل غير مرتب مرفق ملف بسيط للتوضيح ...ولكم جزيل الشكر ليس هناك داعى لرفع الملف مضغوط طالما حجمه صغير ... وذلك تجنباً لعدم اهدار وقت الأساتذة ListBoxAlign.xlsm

السلام عليكم .... وجدت الحــل If .Show = -1 Then ActiveSheet.PageSetup.CenterHeaderPicture.Filename = .SelectedItems(1) ActiveSheet.PageSetup.CenterHeader = "&G" ActiveSheet.PrintPreview End If تقبلوا تحياتي

السلام عليكم اخواني لو تكرمتم بحاجة إلى كود لتحميل صورة كعنوان للورقة عند الطباعة مرفق ملف بسيط للتوضيح ولكم الشكر Load Header.rar

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

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

السلام عليكم هل يمكن تعبئة سطر واحد في صفحة اكسل بالبيانات الموجودة في أسطر الليست بوكس بحيث يأخذ كل سطر فيها رينج معين بالتتابع داخل السطر الواحد في الصفحة وذلك باستخدام الكود ولتوضيح الفكرة أكثر (مثلاً ليست بوكس تحتوي 3 أسطر و 5 أعمدة): "A2:E2" السطر الأول من الليست بوكس يظهر في الـرينج "F2:J2" السطر الثاني من الليست بوكس يظهر في الـرينج "K2:O2" السطر الثالث من الليست بوكس يظهر في الـرينج ولكم جزيل الشكر ListBox to One Row.xlsm

جزاك الله خيراً استاذ سليم .. شيء رووعة فعلاً يليق بهذا المنتدى الرائع لكنني كنت أفكر بحل عن طريق معادلات الاكسل وليس بالماكرو، فهل يمكن ذلك مع كل الاحترام والتقدير لكم

السلام عليكم أخواني لوتكرمتم بإفادتي بطريقة لعمل مقارنة بين جدولين لاكتشاف كامل الاسطر المتشابهة وليس خلية واحدة فقط مرفق ملف يبين المطلوب بشكل أوضح ولكم جزيل الشكر match tow tables.rar

شكراً أخي الفاضل ali mohamed ali للعلم أني كنت قد اعتمدت على الكود لتطبيق subtotal على تغير المجموع وليس الفورمولا وذلك لكثرة البيانات حيث يمكن التحكم بارتجاج الورقة وبطء عملية الحساب. جاري التجربة .. ولك الشكر والتقدير

للرفع ..

السلام عليكم أرفق لكم نموذج عن الملف يشرح المطلوب ولكم جزيل الشكر Subtotal.rar

السلام عليكم أخواني لدي تساؤل حول الحدث الخاص بالفلترة العادية حيث أني أريد وضع كود يعمل بعد تنفيذ عملية الفلترة ولا أرغب بتنفيذ الفلترة عن طريق كود فما الحل؟ وما هي الطريقة؟ !! جزاكم الله خيراً

السلام عليكم لوتكرمتم اخواني ارجو المساعدة في ايجاد القيم المتطابقة بشكل تقريبي وليس كامل عند المقارنة بين قيم عمودين يوجد مرفق لتسهيل شرح المطلوب ولكم الشكر والاحترام Match.rar