Abo Sufiyan

اخوانى واحبائى ارجوا المساعدة فى الملف المرفق حيث يوجد جدولين متساوين فى عدد الصفوف والعمدان ارجوا عند تلوين خلية فى الجدول الثانى يتلون نفس الخلية فى الجدول الاول Book1.xlsx

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

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

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

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

السلام عليكم ورحمة الله وبركاتة ..اخوتى الكرام ..ارجوا مساعدتى فى تعديل كود على اليوزرفورم ws.Cells(LR, 1).Value = Me.A1.Value ws.Cells(LR, 2).Value = Me.B1.Value ws.Cells(LR, 3).Value = Me.C1.Value ws.Cells(LR, 4).Value = Me.D1.Value ws.Cells(LR, 5).Value = Me.e1.Value حيث اريد بدلا من اخذ قيمة C1 تكون سالبة بمعنى اذا كان ال Text box C1 بها رقم 8 عند وضعها بصفحة الاكسيل تكون (-8) ولكم جزيل الشكر

اخى العزيز ...حسين-مامون/ اشكرك جدا على الحل وهذا ما اعتدنا علية من هذا الصرح والعاملين علية بارك الله لك وجعلة فى ميزان حسناتك فانت لاتعرف مدى الخدمة التى قدمتها لى

اخى العزيز ...حسين-مامون اولا اشكرك على الاهتمام بالملف واسف جدا على عدم شرح المشكلة بشكل جيد وقد قمت برفع الملف بعد حذف جميع اليوزر فورم الاخرى ووضعت صورة بها المشكلة ارجوا ان تكون واضحة Pro11.xlsb

السلام عليكم ... كل عام وانتم بخير وعيد اضحى سعيد لقد قمت باخذ يوزر فورم من الموقع وتعديلها لتصلح لعملى ولكن الكود يعمل بالارقام فقط برجاء التكرم بالمساعدة فى جعل الكود فى اليوزر فورم يعمل حروف وارقام معا بدلا من ارقام فقط Pro11.xlsb

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

السلام عليكم ..لابد من التحية عند بداية اى مشاركة ...اخوانى الاعزاء ارسل اليكم ملف قمت باخذ كود من ملف اخر موجود على الموقع ولكن لانى لا افهم فى الاكواد فلا اعرف كيف اجعل السطر الذى بة اسم السيارة يتم ترحيلة الى الشيت باسم السيارة خلية رقم C3 بدلا من الخلية A30 Book1.xlsm

.. متابع

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

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