formül ile önceden belirlenen hücrelerden veri sildirme

[forum34uyelik]

Merhaba arkadaşlar, sorumu örnek dosyanın içine yazdım, yardımcı olabilecek arkadaşlara şimdiden tşk ederim.

 

[apocalyt]

sayfa1 sağ klik yapıp kod görüntüle diyin..ve oraya aşağıda kodu kopyalayın..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target = "" Then
Range("a" & Target.Row & ":" & "f" & Target.Row).ClearContents
End If
End Sub

 

[forum34uyelik]

sayfa1 sağ klik yapıp kod görüntüle diyin..ve oraya aşağıda kodu kopyalayın..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target = "" Then
Range("a" & Target.Row & ":" & "f" & Target.Row).ClearContents
End If
End Sub

Cevap için çok tşk ederim, küçük bir sorum daha var, A2 hücresindeki veri silindiğinde sadece B2, D2, G2, J2 hücrelerindeki verileri sildirip, diğer hücrelerdeki verilerin kalmasını istersem nasıl yapmalıyım?

 

[apocalyt]

şunu deneyin..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target = "" Then
Range("a" & Target.Row & "," & "d" & Target.Row & "," & "j" & Target.Row & "," & "g" & Target.Row).ClearContents
End If
End Sub

 

[forum34uyelik]

şunu deneyin..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target = "" Then
Range("a" & Target.Row & "," & "d" & Target.Row & "," & "j" & Target.Row & "," & "g" & Target.Row).ClearContents
End If
End Sub

sadece D2 hücresindeki veriyi sildi, zahmet olmazsa dosyayı kodyalıp gönderebilir misiniz?

 

[apocalyt]

dosyanız ekte..

 

[forum34uyelik]

dosyanız ekte..

size zahmet verdim, çok tşk. ederim.

 

[apocalyt]

rica ederim ne demek..

 

[forum34uyelik]

dosyanız ekte..

L ve ZZ sütunu aralığındaki, tüm verileri sildirmek istediğimde, kodun içine her sütunun ismini ayrı ayrı yazmam gerekiyor mu?

 

[apocalyt]

şunu deneyin..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target = "" Then
Range("l" & Target.Row & ":" & "zz" & Target.Row).ClearContents
End If
End Sub

 

[forum34uyelik]

şunu deneyin..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target = "" Then
Range("l" & Target.Row & ":" & "zz" & Target.Row).ClearContents
End If
End Sub

Bu çok güzel oldu işte, gerçekten size minnettarım büyük bir yükten kurtardınız beni, konu ile ilgili başka problem kalmadı ellerinize sağlık.

 

[apocalyt]

rica ederim.. ne demek..