DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Then
MsgBox "Sadece Rakam Girişine İzin Var...."
Target = ""
Target.Offset(0, 0).Select
End If
Son:
End Sub
amacım tek bir sutun için bunu yapmak değil ben bazı satır ve sutunlar için bunu yapmak istiyorum yani hücreleri direkt olarak nasıl belirleyebilirimtamm yaptım bunu diğer hücreler içinde nasıl uyarlayabilirim. yani A1, B12, D3
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [[B][COLOR=red]A1, B2, C3, D4[/COLOR][/B]]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Then
MsgBox "Sadece Rakam Girişine İzin Var...."
Target = ""
Target.Offset(0, 0).Select
End If
Son:
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1, B2, C3, D4]) Is Nothing Then Exit Sub
[B]If Target = "" Then Exit Sub[/B]
If IsNumeric(Target) = False Then
MsgBox "Sadece Rakam Girişine İzin Var...."
Target = ""
Target.Offset(0, 0).Select
End If
Son:
End Sub