jack305

الرجاء مساعدتي في ترحيل المعلوامت حيث اريد استعمال ورقة عمل واحدة ... 8.xlsm

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

السلام عليكم...اريد مساعدة في هذا الجدول..الشرح في الملف و شكرا الملف ينشئ جدول اوتوماتيكي بمجرد ادخال الاسماء.....اريد كود حذف اوتوماتيكي للاسم او الصف الفارغ داخل الجدول لكن شرط ان لا يختل الجدول ...و شكرا عنوان مخالف ... تم تعديل عنوان المشاركة ليعبر عن طلبك 0.xlsm

السلام عليكم ارجو من الخبراء تعديل هذا الكود ان امكن.... وظيفه نسخ محتوى الخلية عند نقر عليها....ارجو تعديله ليقوم بكتابة الرقم اللاحق عند النقر المزدوج على خلية اخرى تكون في نفس العمود ان امكن Public selectedCell As String 'Sheet Variable Public lastCell As String ' This updates the Sheet variable with the most recent selection Private Sub Worksheet_SelectionChange(ByVal Target As Range) selectedCell = lastCell lastCell = Target.Address End Sub ' Added a check for having a previously selected cell Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:c100")) Is Nothing Then If selectedCell = vbNullString Then Cancel = True MsgBox "Please select a destination cell for the data." selectedCell = vbNullString lastCell = vbNullString 'Prevents overwriting same cell by accident Else Cancel = True Target.Copy Destination:=Range(selectedCell) selectedCell = vbNullString lastCell = vbNullString 'Prevents overwriting same cell by accident End If End If End Sub المصنف1.xlsm