Hücreye sadece yazılmalı

[zırzır]

Arkadaşlar, bir hücreye rakamları sadece yazabilmeliyim,kopyalama ve yapıştırma
veya başka bir şey yapılmamalı.Bunu yapabilirmiyim. İlginize şimdiden teşekkürler.

 

[zırzır]

Arkadaşlar,sağ tuştaki kopyala ve kaydeti pasif hale getirebilirmiyim.

 

[Seyit Tiken]

Etkin bir önlem için menülerin gizlenmesi gerek. Ben makrolu bir çözümü öneriyorum. A1 hücresine sayısal ve sayısal olmayan değerler girerek sonucu gözlemleyiniz.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.IsText([a1]) Then
MsgBox "Sayı Giriniz"
[a1] = vbNullString: [a1].Select
End If
End Sub

 

[brcyns]

Veri doğrulama olarak bu yapılabiliyor ama kopyala yapıştırda yapılamamasını istemiş.Tekrar bakabilirseniz seviniriz.

 

[zırzır]

Sayın Seyit Tiken,verdiğiniz test sayfası çok iyi ancak excel sayfamda çalıştıramadım ne yapmam lazım.Sayfada A1 den AP36 ya kadar hücreler dolu.

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:AP36]) Is Nothing Then Exit Sub
If WorksheetFunction.IsText(Target.Value) Then
MsgBox "Sayı Giriniz"
Target.Value = vbNullString: Target.Select
End If
End Sub

 

[asilacar]

Hücrelerin sadece elle sayı girmeye ayarlanması için bir çözüm bulunabilirse benim de çok işime yarar arkadaşlar

 

[zırzır]

Sayın Seyit Tiken,verdiğiniz kodu nereye kopyalayacağım,modülde çalışmıyor.Siz nasıl çalıştırıyorsunuz

 

[Seyit Tiken]

ilgili sayfa sekmesinin üzerini sağ tıklayın > Kod Görüntüle'yi tıklayın > İmlecin yanıp söndüğü yere kodu kopyalayın.

 

[zırzır]

Sayın Seyit Tiken,şimdi oldu ilgine teşekkür ederim

 

[baydeniro]

Sayın Seyit Tiken paylaşım için çok teşekkürler. Bu kodun "Sadece Metin" girişi ile ilgili kısıtlama versiyonu da yapılabilir mi ?