Eğer hücre boşsa..

[acolkesen1]

İyi akşamlar,
Aşağıdaki kod, hücre seçildiğinde mesaj veriyor. Oysa ben hücre boş bırakılıp başka hücreye geçmek istenildiğinde boş hücrede kalıp mesaj vermesini ve hücre doldurulmadan diğer hücreye geçmemesini istiyorum, ama yapamadım bir türlü.. Yardıma ihtiyacım var kısaca...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo hata
If eski = "" Then
MsgBox "TARİHİ BOŞ BIRAKMAYIN..!!!"
End If
eski = Target.Value
hata:
End Sub

 

[karadami]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo hata
If Target = "" Then
MsgBox "TARİHİ BOŞ BIRAKMAYIN..!!!"
Target.Select         'içine girilen hücre tekrar seçilir
SendKeys "{F2}"     'seçilen hücrenin tekrar içine girilir
End If
hata:
End Sub

 

[acolkesen1]

Değerli karadamı, aşağıdaki gibi düzenledim ama yine diğer hücreye geçince mesaj veriyor. benim yapmak istediğim, hücre boşsa entere veya tab tuşunu kullanınca hücreden çıkmadan mesaj vermesi.. Yardımınız için teşekkür ederim ama bu şekilde düzenleyebilir miyiz?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo hata
If eski = "" Then
MsgBox "TARİHİ BOŞ BIRAKMAYIN..!!!"
End If
eski = Target.Value
hata:

End Sub

 

[karadami]

Değerli karadamı, aşağıdaki gibi düzenledim ama yine diğer hücreye geçince mesaj veriyor. benim yapmak istediğim, hücre boşsa entere veya tab tuşunu kullanınca hücreden çıkmadan mesaj vermesi.. Yardımınız için teşekkür ederim ama bu şekilde düzenleyebilir miyiz?

2. mesajdaki kod güncellendi, deneyiniz....

 

[acolkesen1]

Merhaba Karadamı,
Cevabınız için teşekkür ederim öncelikle.. Yapılan değişiklikler olmadı.. Şimdi hiç mesaj vermiyor.. Yani hücrenin boş veya dolu olması bir şey ifade etmiyor..Bir dosya ekledim, onun üzerinde düzeltebilirseniz sevinirim..

 

[karadami]

verdiğim kodlarda hücrenin içine girip birşey yazarsanız uyarı vermez.
hücrenin içine girip boş bırakırsanız ve enter, tab vs. basarsanız bu hücreye veri girilmesini sağlar. esc ile seçimi pasif yapabilirsiniz ve başka hücrelerle işleminizi yapabilirsiniz. eğer istediğiniz bu şekilde değilse lütfen daha açık şekilde anlatınız.

 

[acolkesen1]

Tekrar merhaba
Kodları sayfanın kod bölümüne yapıştırdım ve a sütununda söylediklerinizi yaptım ama bir sonuç alamadım. Acaba uygulamada mı bir hata yapıyorum? Eklediğim dosyada denmeniz mümkün mü acaba?

 

[karadami]

Tekrar merhaba
Kodları sayfanın kod bölümüne yapıştırdım ve a sütununda söylediklerinizi yaptım ama bir sonuç alamadım. Acaba uygulamada mı bir hata yapıyorum? Eklediğim dosyada denmeniz mümkün mü acaba?

eklediğiniz dosyada denedim. dediğim gibi önce f2 ile giriş yapılırsa ve hücre boş bırakılırsa hata veriyor ve tekrar başa dönüyor. eğer siz sadece seçim yaptıgınızda boş ise hata vermesini istiyorsanız change olayını tekrardan selectionchange olarak değiştirin

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz. Yalnız MsgBox işin içine girince işi bozuyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "" Then [A1].End(xlDown).Offset(1).Select
End Sub

Kodu kendinize uyarlayınız.

 

[acolkesen1]

Tekrar başa döndük... Yani boş hücreden çıkınca değilde boş hücreye girince mesaj veriyior.. Ben seçilen hücre boş bırakılmış ve hücreden çıkılmışsa mesaj versin istiyordum.. Zaman ayırdığınız için teşekkür ederim..

 

[Seyit Tiken]

Sayın acolkesen1, çözümler kolay geliştirilmiyor. Önemli olan "B Planları"nın olması. Ekli dosyayı inceleyebilirsiniz.

 

[karadami]

Sayın acolkesen1, çözümler kolay geliştirilmiyor. Önemli olan "B Planları"nın olması. Ekli dosyayı inceleyebilirsiniz.

bu planda güzelmiş. teşekkürler Seyit Tiken hocam.

 

[acolkesen1]

Değerli karadamı kardeşime ve Seyit Tiken hocama teşekkürler..Son sözü hocalar söyler..Kolay kolay hoca olunmuyor anlaşılan..

 

[unur]

Arkadaşlar iyi günler;
Seyit hocamın dosyasını açamadım ve bir fikir edinemedim.
Elimde kodlar mevcut fakat yapmak istediğim.
Örn: B8 hücresi boş ise; makroyu çalıştırmak istediğimde "B8" hücresini boş bırakamazsınız mesajı vermek. Yoksa makronun çalışmasını sağlamak istiyorum.
Yardımlarınız için teşekkürler.