D1 Hücresine Rakam Yazmadan Başka Hücreye Giriş Yapılmasına İzin Vermeme Makrosu

[baydeniro]

Merhaba arkadaşlar. Şöyle bir makro kodu mümkün müdür ?

D1 hücresine bir rakam girmeden ve bu rakam E1 hücresindeki rakam ile aynı olmadan başka hücrelere kayıt girmesine izin vermeyen bir makro ? Biraz beyin fırtınası gibi oldu ama böyle bir makro çok harika olurdu !!

 

[Orion1]

Çalışma sayfasının kod bölümüne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = Range("D1").Address Or _
ActiveCell.Address = Range("E1").Address Then Exit Sub
On Error Resume Next
If Range("D1").Value = "" Or _
Not IsNumeric(Range("D1").Value) Or Range("D1").Value <> _
Range("E1").Value Then
    MsgBox "Uygun değil", vbCritical, "UYARI"
    Range("A1").Select
End If
End Sub

 

[baydeniro]

Sayın Evren Gizlen, sizi nasıl tebrik etsem azdır. Harika ötesi bir kod. Çok çok işimize yarayacak. Çok teşekkür ederim, sağlıcakla kalın.

 

[Orion1]

Sayın Evren Gizlen, sizi nasıl tebrik etsem azdır. Harika ötesi bir kod. Çok çok işimize yarayacak. Çok teşekkür ederim, sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.

 

[F1]

Bende makrosuz bir çözüm önereyim, çeşit olması açısından.
Data Validation (Veri Doğrulama) ilede mümkün

Kilitlemek istediğiniz bölgeyi seçin
Data-Validation Allow dan Custom seçin.
Formül kısmına =$D$1=$E$1 yazın ("Ignore Blank" işaretli olmasın)
Diğer seçeneklerde Uyarı mesajıda yazabilirsiniz vs.

 

[baydeniro]

Sayın F1 bu çözüm hücredeki verinin silinmesi halinde bir işlev görmüyor. Sadece hücreye girilecek rakamı belirliyor.