Delete hatası

[ozuberk]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address(False, False) = "K6" And Target.Value <> "" Then _
    ActiveSheet.Range("K7") = Range("K7") + 1
End Sub

Not: Excel sayfasında herhangi bir veriyi sildiğim zaman hata veriyor. Bunu nasıl çözebilirim acaba yardımlarınız için şimdiden tşk. ler.

 

[danersin]

birden fazla hücre ile işlem yaptığınızda kodunuz hata veriyor, bunun için aşağıdaki gibi bir kontrol koyabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Selection.Cells.Count > 1 Then GoTo 100
If Target.Address(False, False) = "K6" And Target.Value <> "" Then _
ActiveSheet.Range("K7") = Range("K7") + 1
100
End Sub

 

[Fenomen]

Konuyla alakalı değil ama then den sonraki _ işareti neye yarıyo cehaletimi affetin

 

[ozuberk]

sayın danersen ilginiz için teşekkür ederim. elinize sağlık çok güzel olmuş kolay gelsin

 

[danersin]

Sn. Fenomen lütfen bu tip ifadeler kullanmayın, sonra hiçbirimiz soru soramaz hale geliriz..Bazen gerçekten çok basit şeyler gözden kaçıyor..
Neyse o "_" işareti VBA editöründe aynı satırda devam etmesi gereken bir ifadeyi,
okunabilirliği sağlamak için alt satırdan devam ettirmek amacı ile kullanılıyor..
Yani yukarıdaki koddan "_" işaretini kaldırarak tek satırdada yazabiliriz.

If Target.Address(False, False) = "K6" And Target.Value <> "" Then ActiveSheet.Range("K7") = Range("K7") + 1

Sn. ozuberk rica ederim.. kolay gelsin.

 

[Fenomen]

ilginiz için teşekkür ederim
iyi çalışmalar.