M.NHAKAMI

احبابنا بالمنتدى ماهي الطريقة لنقل ورقة thiswoekbook لتكون اخر ورقة عندما افتح الملف تظهر اولا ورقة من ملف العمل ثم تختفي ويظهر الفورم انا اريد ظهور الفورم مباشره اتوقع السبب ان ورقة thiswoekbook ليست في اخر الاوراق كما هي العادة

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

السلام عليكم اخواني الخبراء عند استيراد البيانات المن الشيت إلى الفورم تظهر الارقام العشرية اكثر من منزله اريد كود يظهر الأرقام كماهي بالحقول اضح صوره توضح لكم الاختلاف بين البيانات المستورده من الشيت والارقام بالشيت لا اريد الارقام العشرية تظهر بالفورم كذلك الرقم التالي 100% في الحقل f6 يظهر بالفورم 1% ممكن التعديل الملف مرفق برنامج دراسة فندق.xlsm

احتاج ان يكون الشيت محمي دائما علما ان الخلايا التي احتاج تنتقل فيها البيانات غير محميه قابله للتعديل

السلام عليكم عندي ملف اريد نسخ بيانات من شيت الى شيت اخر نسخ البيانات فقط دون تغير التنسيق للخلايا ولكن يظهر خطأ لم اعرف ماهو الملف مرفق شاكر لكم جميعا Sheets("programdata").Activate Range("b2").Copy Sheets("nameperson").Activate Range("b1").End(xlUp).Select Selection.PasteSpecial xlPasteValues Sheets("programdata").Activate Range("f3").Copy Sheets("nameperson").Activate Range("f1").End(xlUp).Select Selection.PasteSpecial xlPasteValues Sheets("programdata").Activate Range("j4").Copy Sheets("nameperson").Activate Range("j1").End(xlUp).Select Selection.PasteSpecial xlPasteValues Sheets("programdata").Activate Range("n2").Copy Sheets("nameperson").Activate Range("n1").End(xlUp).Select Selection.PasteSpecial xlPasteValues نسخ من شيت الى شيت.rar

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

السلام عليكم هل هناك طريقه لجعل موشر combo box يظهر في اتجاه اليمن علما اني عدلت خصائص form الخاصيه rihgt to left الى true يتعدل مؤشر combo الى اليسار ويظهر النص في listbox من اليمن واذا عدلت الخاصيه الى false يحدث العكس أنا اريد موشر combo box يظهر من اليمن والنص داخل list box يكون من اليمن حل من كود يعدل الخصائص المصنف.xlsm

الشكر لك اخ رائد الكود تم تجربته رائع جدا

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

السلام عليكم استفسار عندي الكود التالي يجلب البيانات من الشيبت من الصف الأول إلى أخر صف به نص في العمود طلبي انا اريده لو تكرمتم مالتعديل الذي اجريه عالكود بحيث يظهر لي بيانات الشيت في listbox حيث يبدأ من الصف 59 الي نهاية الصفوف التي بها بيانات Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To lr - 1 b = i + 1 Me.ListBox6.AddItem Me.ListBox6.List(i, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(i, 2) = Sheets("level1").Cells(b, 2) Next i المصنف1.xlsm

ممتاز جدا اخي

عندي الملف التالي عن طريقه اختار صوره من الكمبيوتر لتظهر بالفورم المشكله بالكود انه عندما اريد اختيار صوره بعد الضغط على زر اختيار الصوره تظهر نافذة اختيار الصور اجد جميع التمددات انا مثلا محدد تمدد jpeg , gif عند اختيار غير هذا التمدد تظهر شاشة الخطأ ويغلق البرنامج اريد معالجة الكود بحيث لو اخترت غير التمدد المطلوب يظهر msgbox يخبر بان التمدد غير صالح جلب صوره.xlsm

استاذي اشكرك نعم فيه ما اردت واكثر شكرا لك

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

مبارك استاذ احمد فعلا يستحق