الزام المستخدم بالكتابة بالترتيب في نفس الصف داخل الجدول

[سليم حاصبيا]

في الملف المرفق عندنا جدول من A1  الى F8 وعلى المستخدم ان يملؤه بالترتيب (في كل صف)

مثلا اذا قمت بالكتابة في الخلية D4  و كان ما قبلها فارغاً (C4) يقوم الدكتور اكسل بمسح ما قمت بكتابته بعد الخروج من الخلية دون انذار

و اذا حذفت اول خلية بالصف يتم حذف كامل الصف

الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If Not Intersect(Target, Range("A1:F8")) Is Nothing Then
   If Target.Count = 1 Then
     del_to_Column (Target.Row)
   End If
End If

Application.EnableEvents = True
End Sub
'================================
Sub del_to_Column(R)
Dim My_rg As Range, R_Empty As Range
Dim Col%
    
    Set My_rg = Cells(R, 1).Resize(, 6)
    Col = My_rg.Columns.Count
    Set R_Empty = My_rg.Find(vbNullString, After:=Cells(R, 6))

If Not R_Empty Is Nothing Then
 R_Empty.Resize(, Col - R_Empty.Column + 1) = vbNullString
End If

End Sub

الملف مرفق

write_by_order.xlsm

[Ali Mohamed Ali]

أحسنت استاذ سليم كود ممتاز بارك الله فيك وجزاك الله كل خير

[مجدى يونس]

الاخ سليم

دائما بافكار جديدة

احسنت وبالتوفيق ان شاء الله

[محمد بشاره]

مشكور كتير استاذي سليم 

[يوسف السيد]

انت الدكتور استاذ سليم

معلومة قيمة بارك الله فيك