makro kodu hakkında yardım

[OZCANLOK]

Aşağıdaki kodu belirli bir aralık için nasıl yazabiliriz.

Yani j17 : de300 aralığına

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then Target = ""
End Sub

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Birden fazla hücre kontrolü için döngü kullanmalısınız. Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each Hücre In [J17:DE300]
    If Not IsNumeric(Hücre) Then Hücre.Value = ""
    Next
End Sub

 

[OZCANLOK]

Teşekkürler tam istediğim gibi

Sağolun