Aktif çalışma sayfasındaki herhangi bir hücrede sadece nümerik veri girişine izin veren VBA kodudur.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If IsNumeric(Target) = False Then
MsgBox "Sadece nümerik veri girişi yapılabilir."
Target.Clear
Target.Select
End If
End Sub