Diğer kutulardaki bilgileri silme

[tugi56]

arkadaşlar merhaba
ekte yer alan tabloda evet - hayır- uygulanmaz diye kolanlar var
ben evet'e X koyduğumda hayır ve uygulanmazdaki kutucuklarda boş bıraksın
hayır koyduğumda evet ve uygulanmazdakini boş bıraksın
uygulanmaza koyduğumda evet-hayırı boş bıraksın

bunlar tüm sütünlar için ayrı ayrı olabilir mi
şimdiden teşekkürler

 

[hamitcan]

Sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 4 Then Exit Sub
If Target.Row Mod 2 <> 0 Then Exit Sub
Application.EnableEvents = False
Range("a" & Target.Row & ":" & "c" & Target.Row).Clear
Application.EnableEvents = True
Target = " X"
End Sub

 

[tugi56]

Üstad merhaba
ben kodları ekledim ama bişey olmadı
dosyayı ekte gönderiyorum
sana zahmet kontrol edebilirmisin
emeğin için teşekkürler

 

[hamitcan]

İki dosya birbirinden farklı, tabii ki olmaz.

 

[tugi56]

haklısın valla kusura bakma üstad.
kaydedince macro-enable şeklinde kaydet uyarısı verdimi normal mi

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [N7:P45]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.MergeCells Then
a = Split(Target.MergeArea.Address, "$")(4)
Range("n" & Target.Row & ":" & "p" & a).ClearContents
Else
Range("n" & Target.Row & ":" & "p" & Target.Row).ClearContents
End If
Target = "X"
Application.EnableEvents = True
End Sub

 

[tugi56]

ellerin dert görmesin, allah razı olsun
süper olmuş.
emeğine sağlık

 

[tugi56]

Yanlışıkla delete tuşuna bastığımda şu hatayı veriyor nedendir acaba

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [N7:P45]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then Exit Sub
On Error GoTo 0
Application.EnableEvents = False
If Target.MergeCells Then
a = Split(Target.MergeArea.Address, "$")(4)
Range("n" & Target.Row & ":" & "p" & a).ClearContents
Else
Range("n" & Target.Row & ":" & "p" & Target.Row).ClearContents
End If
Target = "X"
Application.EnableEvents = True
End Sub

 

[tugi56]

emeğine sağlık
teşekkürler