M.NHAKAMI

السلام عليكم تحية طيبه للجميع لدي الكود التالي يعمل جيدا وجدته بهذا المنتدى الذي تعلمناه من الكثير جدا اشكر القائمين عليه وأريد التعديل عليه حيث اني لم استطع امل منكم المساعدة شاكرا لكم أولا اريد أن يظهر بالكومبوبوكس الورقة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

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

اخ عبدالله اشكر اهتمامك هذا ما احتاجه بالضبط هل بالامكان تعديل في الكود بحيث تظهر لي نافذه اختار منها ملف name اي كان موقعه بدلا من المسار المحدد بالكود الذي يجبر المستخدم ان يضع الملف في نفس مسار ملف import_name

عندي ملفا اكسل استخدم احدهما لتسجيل الاسماء والاخر اريد استيراد الاسماء اليه عن طريق اليوزر فورم مالكود الافضل لذالك جيث ينقل لي البيانات من الملف الاول الاول للثاني بنفس الترتيب ‏import ‏name.xlsm name.xlsx

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

السلام عليكم الكود الحالي يرتب القيم تنازلي حسب العمود مجموع الأخطاء فإذا تساوت قيمتان به يفرزهم حسب الاقل زمنا اريد تعديله إلى المطلوب بالاسفل اريد تعديله الى ترتيب القيم تنازلي من الأصغر للأكبر حسب القيم الموجوده في عمود مجموع الاخطاء والأقل زمن Sub sort() Application.ScreenUpdating = True Range("B23:AA400").Activate ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Clear ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _ "H23:H400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _ "E23:E400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("SPEED").sort .SetRange Range("B23:AA400") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("E10").Activate ' Application.Visible = False ' فرز الفرسان End Sub ترتيب القيم قيمتين.xlsm

اخ حسن لك جزيل الشكر هذا ما احتاجه شكرا لك

عملت موقت زمني ثانيه وجزء من الثانيه ببرمجة حلقات التكرار لكن اريد اضافة ايقاف واستمرار له مؤقت1.xlsm

السلام عليكم عندي الكود التالي يصدر الشيت النشط لمصنف اخر وانا اريد تصدير جميع شيتات المصنف لمصنف اخر ايش التعديل المطلوب ThisWorkbook.ActiveSheet.copy _ before:=Workbooks.Add.Worksheets(1) Worksheets(1).Name = "current balance" & Format(Date, "dd-mm-yyyy") نسخ الشيتات.xlsm

السلام عليكم هذا عداد تنازلي مبرمج في الاكسس اذا تكرمتم اريده يكون نفس العداد تصاعدي بفورم بالاكسل عداد تنازلي.mdb

الكود جميل

عملت فورم وعملت له كود تكبير لملئ الشاشه لكن المشكله الفورم يكون ملئ الشاشه والمحتويات ثابته اريد تكبير الفورم مع المحتويات ملئ.xlsm

السلام عليكم ممكن كود تغير لون label الى لون الخلفيه يعني بدون لون اريد وضع label فوق صوره واريد يكون بدون لون المصنف1.xlsm