seçilen hücrelere sadece sayı veya rakam yazılsın..

Katılım
28 Mart 2007
Mesajlar
127
Excel Vers. ve Dili
2003 Türkçe
arkadaşlar iyi günler elimde bir excel sayfasının a1 hücresine sadece rakamlar yazmayı, b1 hücresine ise sadece harfleri yazmayı istiyorum.. Veri Doğrulama seçeneğinden denedim ancak bir türlü işlem yapamadım. bununla ilgili bir formül varsa ve yardımcı olursa memnun olurum.. kolay gelsin.. :yardim:
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Kod ile yapmak isterseniz, çalışma sayfasının kod bölümüne kopyalayınız.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
 
    If Target = "" Then Exit Sub
 
    If Target.Column = 1 Then
        If IsNumeric(Target) = False Then
            MsgBox "Bu alana sayı girebilirsiniz"
            Exit Sub
        End If
    Else
        If IsNumeric(Target) = True Then
            MsgBox "Bu alana metin girebilirsiniz"
            Exit Sub
        End If
    End If
 
End Sub
---------------------------------------------------------------------------------------------

Doğrulama ile yapmak isterseniz, doğrulamadaki özel menüsüne

A sütunu için formül;

=M(A1)=""

B sütunu için formül;

=S(B1)=0

aralıkları ve doğrulamadaki hata mesajlarını buna göre düzenlersiniz.

.
 
Katılım
28 Mart 2007
Mesajlar
127
Excel Vers. ve Dili
2003 Türkçe
ömer bey merhabalar..
bilgisayarı yeni açtım.. yazmış olduğunuz formül gerçekten çok işime yaradı ilginiz için teşekkür ederim.. iyi dileklerimle..
 
Katılım
17 Kasım 2011
Mesajlar
31
Excel Vers. ve Dili
2003 ve 2007
Merhaba,

Kod ile yapmak isterseniz, çalışma sayfasının kod bölümüne kopyalayınız.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
 
    If Target = "" Then Exit Sub
 
    If Target.Column = 1 Then
        If IsNumeric(Target) = False Then
            MsgBox "Bu alana sayı girebilirsiniz"
            Exit Sub
        End If
    Else
        If IsNumeric(Target) = True Then
            MsgBox "Bu alana metin girebilirsiniz"
            Exit Sub
        End If
    End If
 
End Sub
---------------------------------------------------------------------------------------------

Doğrulama ile yapmak isterseniz, doğrulamadaki özel menüsüne

A sütunu için formül;

=M(A1)=""

B sütunu için formül;

=S(B1)=0

aralıkları ve doğrulamadaki hata mesajlarını buna göre düzenlersiniz.

.
Ömer bey (öMER) Şeklinde parantez işareti varsa bunu nasıl kaldırabiliri.
Yani sadece Ömer
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,417
Excel Vers. ve Dili
excel 2010
arkadaşlar iyi günler elimde bir excel sayfasının a1 hücresine sadece rakamlar yazmayı, b1 hücresine ise sadece harfleri yazmayı istiyorum.. Veri Doğrulama seçeneğinden denedim ancak bir türlü işlem yapamadım. bununla ilgili bir formül varsa ve yardımcı olursa memnun olurum.. kolay gelsin.. :yardim:
Merhaba

Ömer Bey'in şık formülüne alternetif,
Sayı için;
Veri doğrulama / ondalık / en az (-9,99999999999999E+307) / en fazla (9,99999999999999E+307)

veya
Özel / formül (=VE(E1>-9,99999999999999E+307;E1<9,99999999999999E+307)

Metin için;
Özel / formül (=DEĞİL(VE(E1>-9,99999999999999E+307;E1<9,99999999999999E+307))
 
Katılım
3 Nisan 2014
Mesajlar
393
Excel Vers. ve Dili
Excel 2019 - Türkçe
Merhaba

Ömer Bey'in şık formülüne alternetif,
Sayı için;
Veri doğrulama / ondalık / en az (-9,99999999999999E+307) / en fazla (9,99999999999999E+307)

veya
Özel / formül (=VE(E1>-9,99999999999999E+307;E1<9,99999999999999E+307)

Metin için;
Özel / formül (=DEĞİL(VE(E1>-9,99999999999999E+307;E1<9,99999999999999E+307))
Merhaba,

Çok teşekkürler faydalı oldu fakat mesela 1.2 yazarsam hata vermiyor, 1.Şub olarak kabul ediyor. Bunu engelleyebilir miyiz?
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Ömer beyin kodlarına şu kod satırı eklenirse hatalı girişleri ENGELLER ve SİLER.
Kod:
Target.Select: Target = ""
 
Üst