• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çözüldü Bir hücre boşken diğer hücreye veri girişini engelleme

B

blackinci

Katılım
18 Haziran 2008
Mesajlar
57
Excel Vers. ve Dili
2019TR - 365TR
Merhaba arkadaşlar;
bir veri doğrulama yapmaya çalışıyorum alttaki formül ile
I5 hücresi boşsa N5 hücresine veri girişini durdurması için veri doğrulama yapıyorum ama tersine bi şekilde çalışıyor I5 dolu ie durdurma yapıyor
Kod: 
=EBOŞSA(I5)
=I5=""
=EĞER(I5="";1;0)=1
Aklıma gelen bu 3 formülü denedim ama istediğim sonucu alamadım
 
Merhaba,
Ben de her şartı denedim, çalışmadı.
Sorunu vba da buldum.
aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("N5")) Is Nothing Then
        If Range("I5").Value = "" Then
            MsgBox "I5 hücresi boşken N5'e veri girişi yapılamaz.", vbExclamation
            Application.EnableEvents = False
            Range("N5").ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub
 
Merhaba.

Merhaba.
Boşluk ile çalışınca, Boşluğu Yok Say tikini kaldırmanız gerekir.
 
@Necdet bey teşekkür ederim maalesef iş yerim .XLSX dosyasına izin vermiyor bu şekilde kayıt yapamıyorum. :(
 
Arkadaşlar yardımcı olan ve olmak isteyen arkadaşlara çok teşekkür ederim ben farklı bi şekilde çözdüm belki işine yarayan olur diye bulduğum çözümü yazayım
A sütunu ile I sütununa girilen verileri saydırıp eşit olmadığı zaman girişi engelledim belki işine yarayan olur
Kod: 
=EĞER(BAĞ_DEĞ_DOLU_SAY($A$5:A35)-BAĞ_DEĞ_DOLU_SAY($I$5:I35)=0;YANLIŞ;DOĞRU)
 
Son düzenleme:
blackinci' Alıntı:
Arkadaşlar yardımcı olan ve olmak isteyen arkadaşlara çok teşekkür ederim ben farklı bi şekilde çözdüm belki işine yarayan olur diye bulduğum çözümü yazayım
A sütunu ile I sütununa girilen verileri saydırıp eşit olmadığı zaman girişi engelledim belki işine yarayan olur
Kod: 
=EĞER(BAĞ_DEĞ_DOLU_SAY(A5:A35)-BAĞ_DEĞ_DOLU_SAY(I5:I35)=0;YANLIŞ;DOĞRU)
Genişletmek için tıkla ...
Boşluğu Yoksay tikini kaldırın formül kısmına =DEĞİL(EBOŞSA(I5)) yada =I5<>"" formüllerinden birini uygulayın.
 
Muzaffer Ali' Alıntı:
Boşluğu Yoksay tikini kaldırın formül kısmına =DEĞİL(EBOŞSA(I5)) yada =I5<>"" formüllerinden birini uygulayın.
Genişletmek için tıkla ...

@Muzaffer Ali Bey dediğiniz gibi daha önceden de yapmıştım şimdi yine denedim ama olmuyor sizde deneyip görebilirsiniz hatta konu açmadan öncede çok denedim boşluğu yok say tikini kaldırıp ama olmuyor belki de office365 de olmuyordur bilemiyorum
 
Merhaba @blackinci,

Söz konusu I5 hücresinin tam olarak boş olduğundan emin misiniz?
Zira boş olması için içinde hiçbir şeyin olmaması gerekir. Hiçbir şey yokmuş gibi görünüp içinde bir adet (boşluk) dahi olsa o hücre dolu sayılır.
Böyle bir durum mevcut ise KIRP kullanarak yine önerilen formülleri deneyebilirsiniz.

=KIRP(I5)<>""

iyi çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst