HÜCREYE SADECE HARF GİRİŞİ İZNİ ?

[comp_wolf]

G5 L5 birleşik hücreye sadece harf girişine izin vermek istiyorum.

KODU İLE İLGİLİ BANA YARDIMCI OLABİLİR MİSİNİZ.?

 

[çıtır]

G5:L5 hücre aralığını seçiniz.Veri doğrulama, özel,formül alanına aşağıdaki formülü kopyalayınız.

=S(G5)=0

 

[PriveT]

Merhaba,

Alternatif:
Anlatımından daha kolay olur düşüncesiyle;

Linkteki dosyayı indirin,
G5 hücresini kopyalayıp kendi G5 hücrenize yapıştırın.

https://dosya.co/ypw39j7zw7o3/Kitap1.xlsx.html

İyi günler.

 

[kulomer46]

Farklı bir alternatif.

Aşağıdaki kodu ilgili sayfanın Worksheet_Change Olayına ekleyin.

İlgili hücrede girilen metin içinde rakamlar varsa, sadece o rakamlar silinir geriye harfleriniz kalır.

Private Sub Worksheet_Change(ByVal Target As Range)
'01.04.2019    13 51

If Target.Row = 5 And Target.Column = 7 Then

    Application.EnableEvents = False

    For i = 0 To 9
        Target.Value = Replace(Target.Value, i, "")
    Next

    Application.EnableEvents = True

End If


End Sub

 

[çıtır]

#2 nolu iletimde hata olmuş. Yeniledim.Deneyiniz.

 

[comp_wolf]

Merhaba,

Alternatif:
Anlatımından daha kolay olur düşüncesiyle;

Linkteki dosyayı indirin,
G5 hücresini kopyalayıp kendi G5 hücrenize yapıştırın.

https://dosya.co/ypw39j7zw7o3/Kitap1.xlsx.html

İyi günler.

TEŞEKKÜR EDERİM İŞİMİ GÖRDÜ.
PEKİ AYNI ŞEKİLDE SADECE RAKAM GİRİŞİ İÇİN NE YAPMAM LAZIM AYNI VERİ EKLE ÖZEL KOD KISMINA NASIL BİR KOD GEREKLİ ?

 

[comp_wolf]

Farklı bir alternatif.

Aşağıdaki kodu ilgili sayfanın Worksheet_Change Olayına ekleyin.

İlgili hücrede girilen metin içinde rakamlar varsa, sadece o rakamlar silinir geriye harfleriniz kalır.

Private Sub Worksheet_Change(ByVal Target As Range)
'01.04.2019    13 51

If Target.Row = 5 And Target.Column = 7 Then

    Application.EnableEvents = False

    For i = 0 To 9
        Target.Value = Replace(Target.Value, i, "")
    Next

    Application.EnableEvents = True

End If


End Sub

kod için çok teşekkürler ben bu kod ile SADECE G5 KLASÖRÜNE İZİN VERMEK İÇİN NE YAPMAM LAZIM ? YARDIMCI OLURSANIZ SEVİNİRİM.

 

[PriveT]

TEŞEKKÜR EDERİM İŞİMİ GÖRDÜ.
PEKİ AYNI ŞEKİLDE SADECE RAKAM GİRİŞİ İÇİN NE YAPMAM LAZIM AYNI VERİ EKLE ÖZEL KOD KISMINA NASIL BİR KOD GEREKLİ ?

Rica ederim.
Sayı için veri doğrulamada EMETİNSE yerine ESAYIYSA kullanın.
Veya ekli dosyadan G8 hücresini kopyalayıp kendi hücrenize yapıştırın.

https://dosya.co/hw4zif9gedl0/Kitap1.xlsx.html

 

[kulomer46]

kod için çok teşekkürler ben bu kod ile SADECE G5 KLASÖRÜNE İZİN VERMEK İÇİN NE YAPMAM LAZIM ? YARDIMCI OLURSANIZ SEVİNİRİM.

Rica ederim.
SADECE G5 KLASÖRÜNE İZİN VERMEK ile ilgili talebinizi anlayamadım. G5 KLASÖRÜ ile neyi kastediyorsunuz?

 

[comp_wolf]

Rica ederim.
SADECE G5 KLASÖRÜNE İZİN VERMEK ile ilgili talebinizi anlayamadım. G5 KLASÖRÜ ile neyi kastediyorsunuz?

SADECE G5 HÜCRESİ YAZACAKTIM YANLIŞ OLMUŞ ?

 

[kulomer46]

SADECE G5 HÜCRESİ YAZACAKTIM YANLIŞ OLMUŞ ?

Merhaba

Zaten şu haliyle kod sadece G5 için çalışıyor.

Kolay Gelsin...

 

[comp_wolf]

ÖRNEK
' Iban'a sadece rakam yazmak için
On Error GoTo 10
If Intersect(Target, Range(["P13:AD13"])) Is Nothing Then GoTo 20
Application.EnableEvents = False
If Target.Value = ".,.,.,.,.,." Then GoTo 10
If IsNumeric(Target) = False Then
MsgBox "Sadece RAKAM Girişine İzin Verilmiştir....", vbInformation, "! ! !"
Target = ""
End If
' Iban'a sadece rakam yazmak için

BEN BU KOD İLE SADECE RAKAM GİRİŞİNE İZİN VEREBİLİYORUM AYNI ŞEKİLDE SADECE HARF GİRİŞİNE NASIL İZİN VEREBİLİRİM ?

 

[kulomer46]

Aşağıdaki gibi bir çözüm işinize yarayabilir... Kolay Gelsin...

'İlgili hücrede girilen metin içinde rakamlar varsa, sadece o rakamlar silinir geriye harfleriniz kalır
On Error GoTo 10
If Intersect(Target, Range(["P13:AD13"])) Is Nothing Then GoTo 20
Application.EnableEvents = False
If Target.Value = ".,.,.,.,.,." Then GoTo 10

Application.EnableEvents = False
For i = 0 To 9
Target.Value = Replace(Target.Value, i, "")
Next
Application.EnableEvents = True

'Kod sonu...

 

[comp_wolf]

ÇOK TEŞEKKÜR EDERİM

 

[kulomer46]

ÇOK TEŞEKKÜR EDERİM

Kolay Gelsin...