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