amine14

السلام عليكم ممكن تحديد عدد الصفوف التى تظهر على الليست فقط 5 الاخير تعديل البيانات.xlsm

حملت الملف حجمه كبير لو سمحت التعديل على الملف برنامج_ادارة_الاحياء.xlsm

Private Sub CommandButton1_Click() Unload Me UserForm1.show End Sub

هل من رد الله يجزيكم خير

شكرا لك عل الجهود ولكن اريد لم اعدل على الاسم يتعدل اسم الشيت

السلام عليكم انا في امسى الحاجة لي التعديل على هذا الكود Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then lr = Sheets("Accounts").Range("c" & Rows.Count).End(xlUp).Rows.Value Sheets("Sample").Select Sheets("Sample").Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = lr End If End Sub "c" هذا الكود يقوم بفتح صفحة جديدة في حالة ملء أي خلية في العمود الثالث إلي الشيت الجديد Sample ثم يقوم بنسخ محتوي الشيت ممكن حل لي مشكل هو انا لم احذف اسم شيت او اعدل الاسم يطلع لي خطا كذلك يعمل الكود عند تكرار الخلايا ... فيقوم بنسخ صفحة أخري المطلوب : 1-اريد كود لم احذف اسم الشيت من الخلية يتحذف ما يطلع الخطئ يبقى على حاله 2-ولم اعدل على الاسم يتعدل اسم الشيت كذلك 3-2- عدم تكرير الاسم الشيت تطلع رسالة خطا يوجد الاسم مشبه ملاحظة: انا وجدت هذا الكود وهو يقوم بالتعديل على اسم الشيت من خلية معينة ممكن يساعدكم الله يجزيكم خير Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Target = Range("A1") If Target = "" Then Exit Sub Application.ActiveSheet.Name = VBA.Left(Target, 31) Exit SubEnd Sub https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=125841

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

اعرض الملف العملاء بسم الله صاحب الملف amine14 تمت الاضافه 01 ماي, 2017 الاقسام قسم الإكسيل