veri doğrulama ile boşluk bırakmasın

[purpledarkness]

bir hücreye çeşitli rakamlar yazılıyor, standardı sağlamak için bu rakamların boşluk içermemesini istiyorum yani bitişik yazılmasını istiyorum, hücreye rakam girilirken boşluk bırakılmamasını nasıl sağlayabilirim,

örneğin; 1590 yazılması gerekirken 15 90 yazılmasına izin vermesin ohücreye kaç haneli rakam yazılırsa yazılsın bitişik yazılsın.

 

[Orion1]

Yalnızca A sütununda çalışır.
Aşağıdaki kodları çalışma sayfasının kod bölümüne yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo son
If Target.Value = "" Then Exit Sub
For i = 1 To Len(Target.Value)
    If Mid(Target.Value, i, 1) = " " Then
        MsgBox "Dikkat Boşluk Karakteri Var..!!", vbCritical, "DİKKAT"
        Target.Select
         exit sub
    End If
Next
son:
End Sub

 

[purpledarkness]

Yalnızca A sütununda çalışır.
Aşağıdaki kodları çalışma sayfasının kod bölümüne yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo son
If Target.Value = "" Then Exit Sub
For i = 1 To Len(Target.Value)
    If Mid(Target.Value, i, 1) = " " Then
        MsgBox "Dikkat Boşluk Karakteri Var..!!", vbCritical, "DİKKAT"
        Target.Select
         exit sub
    End If
Next
son:
End Sub

teşekkür ederim, hemen deniyorum.

 

[purpledarkness]

Sayın Evren Gizlen,
kodu denedim hücreye veri girişinde boşluk bırakınca uyarı veriyor ama, uyarıya tamam dediğimizde o boşluklu hücre yerinde duruyor, yani uyarıyı veriyor ama uyarıya neden olan hatayı düzeltmesi için baskı yapmıyor,

örneğin, ben 125 125 yazdığımda beni uyarıyor boşlukla ilgili buraya kadar güzel ama ben uyarıya tamam dediğimde uyarı kapanıyor ama boşluklu hücre yerinde kaya gibi sağlam bir şekilde duruyor, yani boşluksuz giriş için hücreyi boşaltmıyor.

bu kodda uyarıdan sonra hücreyi boşaltma işlemi yaptırabilirmiyiz.
teşekkür ederim.

 

[Orion1]

Aşağıdaki kodları kullanınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo son
If Target.Value = "" Then Exit Sub
For i = 1 To Len(Target.Value)
    If Mid(Target.Value, i, 1) = " " Then
        MsgBox "Dikkat Boşluk Karakteri Var..!!", vbCritical, "DİKKAT"
        target.value = "" 
        Target.Select
         exit sub
    End If
Next
son:
End Sub

 

[Orion1]

kodu denedim hücreye veri girişinde boşluk bırakınca uyarı veriyor ama, uyarıya tamam dediğimizde o boşluklu hücre yerinde duruyor, yani uyarıyı veriyor ama uyarıya neden olan hatayı düzeltmesi için baskı yapmıyorörneğin, ben 125 125 yazdığımda beni uyarıyor boşlukla ilgili buraya kadar güzel ama ben uyarıya tamam dediğimde uyarı kapanıyor ama boşluklu hücre yerinde kaya gibi sağlam bir şekilde duruyor.

Aslında zorluyor.
Hücreden çıkılamıyordu.
Belkide silmeden üzerinde düzeltme yapabilirdiniz.

 

[purpledarkness]

Aslında zorluyor.
Hücreden çıkılamıyordu.
Belkide silmeden üzerinde düzeltme yapabilirdiniz.

aslında dediğin mantıklı ama bu kodu içeren tabloyu yaklaşık 25 kişi kullanacak yani farklı sosyo-ekonomik yapıya sahip 25 kişinin uyarı karşısındaki tepkileri aynı olmayacağından dolayı işi baştan sıkı tutmak lazım.

bu arada kod çalışıyor, çok teşekkür ederim.

 

[Necdet]

Merhaba,

Veri Doğrulama İle Fonksiyonlarla Yapılmış Alternatif Çözüm :

A Sütununda Veri Doğrulama - İsteğe Uyarlanmış

=EHATALIYSA(MBUL(" ";A1))
=ISERROR(SEARCH(" ";A1))

 

[Orion1]

aslında dediğin mantıklı ama bu kodu içeren tabloyu yaklaşık 25 kişi kullanacak yani farklı sosyo-ekonomik yapıya sahip 25 kişinin uyarı karşısındaki tepkileri aynı olmayacağından dolayı işi baştan sıkı tutmak lazım.

bu arada kod çalışıyor, çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[purpledarkness]

Merhaba,

Veri Doğrulama İle Fonksiyonlarla Yapılmış Alternatif Çözüm :

A Sütununda Veri Doğrulama - İsteğe Uyarlanmış

=EHATALIYSA(MBUL(" ";A1))
=ISERROR(SEARCH(" ";A1))

çok teşekkür ederim, sayın Yeşertener
iyi çalışmalar.

 

[xlsx]

veri doğrulama

Merhaba,

Veri Doğrulama İle Fonksiyonlarla Yapılmış Alternatif Çözüm :

A Sütununda Veri Doğrulama - İsteğe Uyarlanmış

=EHATALIYSA(MBUL(" ";A1))
=ISERROR(SEARCH(" ";A1))

Selam;
Eğer boşluk rakamların sonunda bırakılıyorsa bu durumda yukarıdaki örnek formüllerde Uyarı vermesini sağlamıyor.Örneğin "123 456" formatında uyarı verirken "1234 " şeklinde sonunda boşluk varsa uyarı vermeden kabul ediyor..
Aklıma bunun için bir alternatif veri doğrulamada kullanılacak formül gelmedi.Sizin?

 

[xlsx]

TRIM formülü kullanılabilir diye düşünmüştüm ama doğru da yazılsa girişi kabul etmiyordu.
=TRIM(A1)<>A1 &#351;eklinde denedi&#287;imizde de 1234 56 format&#305;ndaki rakamlar aras&#305;nda bo&#351;luk varsa kabul etmemesini sa&#287;latabiliriz.
sonunda bo&#351;luk varsa ne yapabiliriz hen&#252;z akl&#305;ma gelmiyor

 

[Necdet]

Merhaba,

H&#252;creye rakam yaz&#305;p sonuna bo&#351;luk b&#305;rakt&#305;&#287;&#305;nzda excel bunu zaten rakam olarak alg&#305;l&#305;yor.

E&#287;er h&#252;cre metin olarak bi&#231;imlendirilirse sonundaki yada ba&#351;&#305;ndaki bo&#351;luk dikkate al&#305;n&#305;yor ve giri&#351;e izin verilmiyor.

 

[xlsx]

veri doğrulama

Merhaba,

Hücreye rakam yazıp sonuna boşluk bıraktığınzda excel bunu zaten rakam olarak algılıyor.

Eğer hücre metin olarak biçimlendirilirse sonundaki yada başındaki boşluk dikkate alınıyor ve girişe izin verilmiyor.

evet bunun farkına varmıştım, ve trim formülünü de denedim ayrıca.tşk