Hücreyi Doldurmadan Geçilmesin (Zorunlu Alan Uygulaması)

[CRAYZLOVEIS]

Arkadaşlar öncelikle geçmiş Kurman Bayramızın mübarek olsun... Benim hazırladığım bir excel dosyası var. Burada adı soyadı ünvanı mesleği gibi alanlar var. Örnek verecek olursa ADI bölümünü doldurmadan SOYADI bölümüne geçilmesin. Yani Uyarı versin. Esasında DOĞRULAMA özelliğini kullanarak bunu yapabilirim fakat her hücreye bir kere doğrulama özelliği kullanılabiliyor ve bende bu özelliği ileride kullanacağım.

Bu dediğim UYARI olayını acaba VB ile nasıl yaparız. İlginiz için şimdiden tşk.

 

[Ömer]

Merhaba

Linki inceleyin..

http://www.excel.web.tr/showthread.php?t=1412

 

[CRAYZLOVEIS]

Kardeş linke ve örnek dosyaya baktım fakat burada b sütununda dediğim özelliğe benzer bir vb var ama c sütünuna geçtiğimizde boşta olsa uyarı vermiyor.. Birde ben bu olayı sütunlarda değil satırlarda yapmak istiyorum.

Birde gönderdiğim örnek dosyadan yola çıkacak olursa herkesin bir cep telefon numarası olmak zorunda değil yani ADI SOYADI vs.. bölümü doldurulmadan geçilmesin fakat cep telefonu bölümüne gelince "BU ALANA BİR VERİ YAZILMADI" gibi bir uyarı versin fakat yinede bir alt satıra geçsin.

Birde bu özelliği bir den fazla satırda yapacağım (yaklaşık 200 satır) bu mümkünmüdür.

 

[hamitcan]

Bir de veri doğrulama yardımıyla ve aşağıdaki formülü kullanarak yapmayı deneyin.

Örn: D2 hücresine =

=BAĞ_DEĞ_DOLU_SAY(A2:C2)=3

Örn: E2 hücresine =

=BAĞ_DEĞ_DOLU_SAY(A2:D2)=4

şeklinde uygulayın.

 

[CRAYZLOVEIS]

İlginiz için çok teşekkür ederim.

BAĞ_DEĞ_DOLU_SAY(A2:C2)=3

Bu formülleri kullanınca oluyor ama daha öncede dediğim gibi ben veri doğrulamayı başka bir amaçla kullanacaktım.Sanırım bir hücreye birden fazla doğrulama olmuyor..

Birde bu formülün sonundaki "3" ne işe yarıyor. Yani olayın mantığı nedir ? ve bu formülü yaklaşık 200 satıra nasıl uygularız.

 

[cebir]

merhaba
sayfa1 in kod sayfasına yazınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B:f]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 0).Select
End If
End Sub

 

[Recep İpek]

Aşağıdaki kodları sayfanın VBA kısmına kopyalayarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2:f30]) Is Nothing Then Exit Sub
If Target = Empty Then
MsgBox "İlgili Hücreyi Boş Geçemezsiniz!!"
Target.Select
End If
End Sub

 

[CRAYZLOVEIS]

Sayın RIPEK

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2:f30]) Is Nothing Then Exit Sub
If Target = Empty Then
MsgBox "İlgili Hücreyi Boş Geçemezsiniz!!"
Target.Select
End If
End Sub

Kodlarını kullandığım zaman hücre boş olsa bile diğer hücreye geçmesine izin veriliyor. Sadece belirtilen alanda bir hücreyi sildiğimiz zaman uyarı veriyor. Sonuç olarak maalesef sorunum çözlümedi.

Sayın CEBİR

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B:f]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 0).Select
End If
End Sub

Kodlarını kullandığım zaman sorun bir nebzede olsa çözüldü gibi görüksede tam olarak değil. Sizin bu kodlamada hücreye bir şey yazmadan diğer hücreye geçilmesine izin vermiyor. Ama burada zorunlu olmayan alanlarda var. Mesela daha öncede dediğim gibi herkesin cep telefonu olmayabilir yada mail adresi vs. Cebir arkadaşım sağolsun öyle bir kod yazmışki bu kodun yazıldığını bilmesem enter tuşu çalışmıyor zannederim. Hücreye bir veri girmeden bırakmıyor. Ama birde uyarı verse iyi olur. Yoksa bilmeyen biri olsa sürekli enter tuşuna basmak zorunda kalır.

Sonuç olarak soruma henüz cevap bulamadım. Eğer "eee sende çok oluyorsun.... sanada cevap beğendiremiyoruz" diye düşünmüyorsanız ekteki dosyaya ve aşağıdaki kurallara göre yardımlarınızı bekliyorum. Tşk. Ederim.

Adı.............: ZORUNLU
Soyadı........: ZORUNLU
Adresi.........: ZORUNLU
Meslek........: ZORUNLU DEĞİL (Etrafta benim gibi işsiz çokkkk )
Kan Grubu....: ZORUNLU
Cep Telefonu: ZORUNLU DEĞİL (Eeee işsiz adamın cep telefonuda olmaz )

 

[hamitcan]

Birde bu formülün sonundaki "3" ne işe yarıyor. Yani olayın mantığı nedir ?

Verilen aralıktaki dolu olan hücre sayısının, üçe(3) eşit olması halinde girişe izin ver.

 

[cebir]

merhaba..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B:f]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value = "" Then
Msgbox " VERİ GİRİLMEDİ "
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 0).Select
End If
End Sub

msg eklendi,uyarı verecek..
meslek ve cep telefonu yoksa "-" (tire) tuşu..