[حل شده] حذف مقادیر سل مجاور در صور ورود مقدار در سل

[majidosmani]

سلام خدمت اساتید گرامی یک سوال داشتم در نمونه ارسالی که یک چک لیست است سه تا ستون داریم (بله-خیر- ناقص) که داخل هر ستون میشه تیک زد حالا من میخواهم کاری کنم که وقتی یک مورد تیک زده بشه دو مورد دیگه مقدار ان خود کار پاک بشه یعنی هیچ موقع برای یک مورد در دو ستون نشود تیک زد
و یک مورد دیگه اگه کمک کنید ممنون میشم میخواهم وقتی پرینت را میزنم ارتفاع سطر ها طوری مرتب بشه که به اندازه یک صفحه بشه عرض ش خوبه فقط ارتفاع را نمی دونم چطور تنظیم کنم توی بخش scale to fit میرم فقط کاری میکنه نصف صفه میشه نمیشه کاری کرد که ارتفاع تمام صفحه بشه ایا باید دستی تنظیم کرد؟ اخه تعدا چک لیست ها زیاد است

[iranweld]

با سلام

خواسته اول شما با کدنویسی انجام شد.

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("D5:D18")) Is Nothing Then
    
    Application.EnableEvents = False
       
   Target.Offset(, 1) = ""
    Target.Offset(, 2) = ""
    
    End If
    
    Application.EnableEvents = True
    
    If Not Intersect(Target, Me.Range("E5:E18")) Is Nothing Then
    
    Application.EnableEvents = False
       
    Target.Offset(, -1) = ""
    Target.Offset(, 1) = ""
    
    End If
    
    Application.EnableEvents = True
    
    
    If Not Intersect(Target, Me.Range("F5:F18")) Is Nothing Then
    
    Application.EnableEvents = False
    
    Target.Offset(, -1) = ""
    Target.Offset(, -2) = ""
    
    
    End If
    
    Application.EnableEvents = True
    
    End Sub