Abo Sufiyan

اخى العزيز كلما حاولت تشغيل الملف يعطى خطاء بالكود كما بالمرفق

اخى الكريم اشكرك جدا على مجهودك وسعة صدرك للمساعدة فى حل مشكلتى ولكن هل يمكن ان يكون اليست على شيت عادى وليس فورم ان امكن

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

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

اخى العزيز Mohamed Hicham اشكرك شكرا جزيلا على الكود وجعلة الله فى ميزان حسناتك كما اسكر جميع الاخوة على المجهود المبذول فى محاولة مساعدتى انتم فعلا نعم العون

وعلبكم السلام ورحمة الله وبركاتة اشكرك اخى على الكود ولكن انا اريد التعديل على الكود الموجود حتى يقوم بعمل الشيت طبقا لشيت الموجود بالملف حيث يوجد ملف sample يصنع مثلة كل ما يتم طلب انشاء شيت جديد

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

بارك الله فيك وجعلة فى ميزان حسناتك

اشكرك اخى العزيز وجعلة الله فى ميزان حسناتك

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

متشكر جدا ربنا يجعلة فى ميزان حسناتك

الملف اخى العزيز Book2.xlsm

اشكرك اخى الكريم وارجوا مساعدتى فى كود لمسح الصفحة الرئيسية بعد الترحيل

بسم الله الرحمن الرحيم ..السلام عليكم ورحمة الله وبركاته ..السادة الأفاضل / مشرفي المنتدى تحية طيبة وبعد ..هذا كود ترحيل ..اريد السطر اللى بالون الاحمر بدلا من ان يرحل الى الخانة A5 يرحل عندالسطر الذى يالى اخر سطر بة كتابة وبعد الترحيل يمسح الصفحة التى تم الترحيل منها Store Issue من اول البيانات من خلية A5 Sub shift_Class() ' Set Sh = Sheets("Store Issue") Sh.Select Dim Arr(1 To 1) '====================================================== End_Row = Sh.Cells(Rows.Count, "a").End(xlUp).Row Set Rng = Sh.Range("a4:g" & End_Row) '====================================================== Arr(1) = "Store Issue (2)" Application.ScreenUpdating = False '====================================================== 'Call Clear_Class For Class = 1 To 1 If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData ActiveSheet.AutoFilterMode = False End If '====================================================== Rng.AutoFilter Field:=7, Criteria1:=Arr(Class) Set Rng_1 = ActiveSheet.AutoFilter.Range.Offset(2).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1) Rng_1.Copy Sheets(Arr(Class)).Range("A5") Application.CutCopyMode = False '====================================================== If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData ActiveSheet.AutoFilterMode = False End If '====================================================== Next '====================================================== 'Call Hide_Columns_In_Range '====================================================== Application.ScreenUpdating = True ' End Sub

شكرا جدا لحضرتك