hücre içinde gezinme

[qrrxz]

daha önce bu kodları başka bi çalışma kitabında kullanmıştım. fakat şimdi c ve e sütunları içinde gezerek sadece boş geçilemez uyarılarını vermesini sağlamak için nasıl sadeleştirebiliriz??

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:f]) Is Nothing Then Exit Sub
If Target.Offset(0, -1) = 0 Then
MsgBox "Boş geçilemez! Lütfen bir değer giriniz."
Target.Offset(0, -1).Select
Exit Sub
End If
If Target.Column < 6 Then
Target.Next.Select
Else
Target.Offset(1, -4).Select
End If
If Target.Column = 5 Then
deg = Array(1, 2, 3, 4, 5, "eğitim", "egitim", "egıtım", "sağlık", "saglik", "saglık", "gıda", "gida", "giyim", "gıyım", "kira", "kıra")
For a = 0 To UBound(deg)
If deg(a) = Target Then Exit Sub
Next
MsgBox "Geçersiz veri girişi yaptınız!"
Target.Select
End If
End Sub

 

[hamitcan]

Umarım doğru anlamışımdır.Aşağıdaki satırı, eskisi ile değiştirin.

If Intersect(Target, [c:c,e:e]) Is Nothing Then Exit Sub

 

[qrrxz]

Umarım doğru anlamışımdır.Aşağıdaki satırı, eskisi ile değiştirin.

If Intersect(Target, [c:c,e:e]) Is Nothing Then Exit Sub

enter tuşuna bastığımda sağa doğru hareket edecek c, d, e sütunları içinde fakat boş geçersem uyarı verip tekrar boş bıraktığım hücreye dönecek ve e'ye bir şey girip enter'a bastığımda bir alttaki c'den devam edecek. bu şekilde aşağı doğru ilerleyecek. ben açıklayıcı yazmamıştım. kusura bakmayın..

 

[hamitcan]

Bir de aşağıdakini deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:e]) Is Nothing Then Exit Sub
If Target.Offset(0, -1) = 0 Then
MsgBox "Boş geçilemez! Lütfen bir değer giriniz."
Target.Offset(0, -1).Select
Exit Sub
End If
If Target.Column < 5 Then
Target.Next.Select
Else
Target.Offset(1, -2).Select
End If
If Target.Column = 5 Then
deg = Array(1, 2, 3, 4, 5, "eğitim", "egitim", "egıtım", "sağlık", "saglik", "saglık", "gıda", "gida", "giyim", "gıyım", "kira", "kıra")
For a = 0 To UBound(deg)
If deg(a) = Target Then Exit Sub
Next
MsgBox "Geçersiz veri girişi yaptınız!"
Target.Select
End If
End Sub

 

[qrrxz]

bu kodlar istediğim yerden geziniyor. fakat uyarıları doğru yerlerde vermiyor.

 

[hamitcan]

Bir ka&#231; g&#252;nd&#252;r foruma girmedi&#287;imden mesaj&#305;n&#305;z&#305; yeni okuyabildim. &#214;rnek bir dosya eklerseniz eksikli&#287;i gidermemiz daha kolay olacak kan&#305;mca.