hücrelere nümerik değer girişini engelleme

[ahmetcin]

örneğin L6:L1000 ve M6:M1000 arsındaki hücrelerine nümerik karekter girilmesini istemiyorum. Buraya bunun haricinde herhangi bir şey yazılabilir. Bunu nasıl yapabilirim?

İyi günler, iyi çalışmalar....

 

[uzmanamele]

merhaba

aşağıdaki kodları denermisiniz.

A1:A10 ve C2:C10 aralığı yerine kendi alanınızı yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1:A10,C2:C10]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Not IsNumeric(Target) = False Then
    MsgBox "sayısal değer giremezsiniz!"
    Target = Empty
    Target.Offset(0, 0).Select
End If
Son:
End Sub

not:
kodlar syn Necdet Yeşertener'den (ç)alıntıdır.

 

[Haluk]

Makrosuz bir alternatif ektedir....

.

 

[ahmetcin]

Makrosuz bir alternatif ektedir....

.

öncelikle teşekkkür ederim, indirdim, denedim ama anlayamadım.