الرائد77

Private Sub CommandButton1_Click() Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" Me.ListBox6.clear lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 59 To lr - 1 b = i Me.ListBox6.AddItem Me.ListBox6.List(b - 59, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(b - 59, 2) = Sheets("level1").Cells(b, 2) Next i End Sub Me.ListBox6.clear

Private Sub CommandButton1_Click() Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 59 To lr - 1 b = i Me.ListBox6.AddItem Me.ListBox6.List(b - 59, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(b - 59, 2) = Sheets("level1").Cells(b, 2) Next i End Sub تفضل. يمكن أن تستغني عن b . و تضع i فقط. تركتها لاووضح لك التعديل على كودك. القائمة تبدأ من الصف 59. المصنف1.xlsm

تفضل تعديل (1).xlsm

أخي احمد ابوزيزو تفضل المطلوب المكرر على اليوزرفورم.xlsm

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

السلام عليكم . رمضان مبارك تقبل الله منا و منكم في الملف كود لإظهار القيم المكررة مع رقم الصف الموجود فيه التكرار في MSGBOX اظهار المكرر في رسالة.xlsm

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

تفضل أخي. الملف معدل فقط ضع a19.value=impath قبل else pictre.xlsb

تفضل pictre.xlsb

غير ممكن. و الله أعلم. حتى لو وضعت الكود يمكن التغيير فيه بتعطيل الماكرو من قائمة خيرات مكروسوفت اوفيس و فتحه . و اذا كان الملف على جهازك ممكن تثبت هذا البرامج و لا يمكن لأي أحد أن ينسخ الملفات التي تحددها. و الله أعلم . M File Anti-Copy https://raymondcc.r.worldssl.net/M File Anti-Copy 4.0-1622.zip

تفضل Book150 code.xlsm

تفضل Book150 code.xlsm

تفضل أخي. اذا احتجت مدى أكبر. انسخ التنسيق الى باقي الخلايا Book150 (1).xlsx

تريد ان يبدأ بالعمود b مثلا؟ أوضح أكثر و أنا في الخدمة أخي

بعد اذن أخي عبدالفتاح في بي اكسيل .. حفط باسم الشركة و تاريخ الانشاء . و كذلك حفظ على سطح المكتب لأي جهاز بدون تحديد اسم صاحب الجهاز. و كذا رسالة لاستبدال اللملف اذا كان موجود سابقا و كذلك تغير ناحية الطباعة مع آخر سطر في العمود c جدول متغيير.xlsm

إضافة زر استعراض بدل نسخ مسار المجلد الذي يحتوي على الملفات في inputbox hyperlink2.xlsm

تفضل . هايبرلينك لملفات في مجلد ما . و هايبر عن طريق الليست بوكس و ورقة العمل hyperlink.xlsm

تفضل أخي ListBox to One Row.xlsm

لا بأس أخي. تفضل رقم البطاقة على حسب المادة2.xlsx

عفوا. أخي.

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

بارك الله فيكم زملائي الكرام. شكرا اخيأحمد يوسف.جزاك الله خيرا .

السلام عليكم و رحمة الله تعالى و بركاته الى الإحوة الأفاضل هذا الملف و الذي يحتوي على اكواد رائعة . و الذي يحتاجه خاصة الذين يتعاملون مع فروع الشركات التي ترسل ملفات عن طريق الايميل مثلا : لديك نمودج لتقرير ما اسمه repport.xls ترسله الى الفروع ،و عند استقبال الملفات عن طريق الايمل و تحملها تصبح هكذا repport(1).xls ..repport(2).xls...repport(3).xls..الخ . لا يهم أيا كان اسم الملف و تريد اعادة تسمية الملفات بناءا على اسم الفرع في الخلية من كل تقرير . اليك هذا الملف بضعطة زر . تسمية كل الملفات. مهما كان عددها الملفات المرفقة : أمثلة عن تقارير. عند التحميل تجد التقارير و البرنامج 1- أفتح ملف اعادة تسمية الملفات 2- جدد مسار ملفات التقارير التي في المرفق 3- اضغط على جلب اسماء الملفات 4- اضغط على اعادة تسمية. ستلاحظ أن الملفات قد تغيرت أسماءها الى اسم الفرع المرسل. ملاحظة : يمكنك التعديل على الاكواد كما تشاء حسب تصميم تقريرك و السلام عليكم و رحمة الله تعالى و بركاته تسمية.rar

تفضل talabia.xlsx

لم يكن طلبك واضح من البداية يا أخي لا بأس تفضل . اضافة العنصر المختار من ليست بوكس 3 الى العمود h ; و الليست 2 الى i يمكنك التغييير ادا اردت في الكود Sample (1).xlsm