Hücreler arası gezinme

[manisali50]

Private Sub Worksheet_Change(ByVal Target As Range)
sat = [a65536].End(3).Row
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "A") Then
Worksheets(ActiveSheet.Name).Cells(sat, "B").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "B") Then
Worksheets(ActiveSheet.Name).Cells(sat, "C").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "C") Then
Worksheets(ActiveSheet.Name).Cells(sat, "G").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "G") Then
Worksheets(ActiveSheet.Name).Cells(sat, "I").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "I") Then
Worksheets(ActiveSheet.Name).Cells(sat + 1, "A").Select
End If
End Sub

Elimdeki bu kodlarla,hücreye veri girdikten sonra enter tuşuna bastığımda kodun içinde belirlenen
hücreler arasında geziniyordum.
Ancak;
C18-C19-C20-E20-C21-C22-C18 hücreleri arasında gezinmeyi başaramadım.
Yardımlarınızı bekliyorum.

 

[mancubus]

sayın manisalı.
şurada halletmemiş miydik o sorunu?

http://www.excel.web.tr/f14/stenilen-hucreye-atlama-t92727.html

 

[manisali50]

Doğru dostum..O başka bir dosyayrdı..Bu dosyaya uyarlayamadım bir türlü

 

[mancubus]

tamam.

eski kodları bir tarafa bırakalım. tam olarak ne istiyoruz?

 

[manisali50]

Oluşturduğum çizelgede C18 hücresinden başlamak üzere her enter tuşuna bastıktan sonra sırasıyla C19-C20-E20-C21-C22-C18 hücreleri arasında gezinmeyi istiyorum.

 

[mancubus]

dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("C18")) Is Nothing Then Range("$C$19").Select
If Not Intersect(Target, Range("C19")) Is Nothing Then Range("C20").Select
If Not Intersect(Target, Range("C20")) Is Nothing Then Range("E20").Select
If Not Intersect(Target, Range("E20")) Is Nothing Then Range("C21").Select
If Not Intersect(Target, Range("C21")) Is Nothing Then Range("C22").Select
If Not Intersect(Target, Range("C22")) Is Nothing Then Range("C18").Select

End Sub

 

[manisali50]

Üstadım süper .. İlgine,bilgine ve emeğine teşekkür ederim.

 

[mancubus]

rica ederim.

daha kaliteli bir kod mutlaka vardır. ben bunu bulabildim.

 

[bilalakdeniz]

Merhaba, Hücreye bilgi girişi yapmasak, Enter e bastığımızda yinede bir sonraki belirlenen hücreye gitmesi mümkünmü? İyi Çalışmalar

 

[bilalakdeniz]

Merhaba, Kayıt No dan başladığım zaman vemiş olduğum sıra numarasına göre
imlecin Enter e bastığımda o hücreye gitmesini istiyorum,
Lakin araştıdığım örneklerde, Hücreye bir şey yazma isem diğer hücreye geçmiyor,
Numarasını verdiğim sırayla gitmesini istiyorum, Boş olsa dahi
Bilgilerin hepsi aynı zamanda belli olmuyor,
Teşekkürler

 

[bilalakdeniz]

Merhaba, hücreler arası gezinmede, Hücreyi boş gerçmek gerektiğinde, Bir sonraki hücreye geçebilmemiz mümkünmü? İyi Çalışmalar,

 

[manisali50]

Arkadaşım merhaba.
Sorunuzu şimdi gördüm.Hücreyi boş geçmek istediğinizde boşluk tuşuna basıp,enter tuşu ile devam edebilirsiniz.

 

[bilalakdeniz]

O şekilde oluyor ama boşluk tuşuna basmak çok hoş olmuyor, ve kullanım açısındanda güzel gözükmüyor, Her halukarda bir sonraki hücreye geçmesi mümkün değilmi ? İyi Çalışmalar,

 

[manisali50]

Dostum benim bilgim o kadar gelişmiş değil ama aklıma gelen çözüm şu :
Boşluk yapacağınız yerlere 0 (SIFIR) yazın..Hücre biçimlendirmeden ,isteğe uyarlanmış bölümüne 2 adet "" (ÇİFT TIRNAK) işareti koydunuz mu sorun çözülür gibi geliyor bana ama sizin işinizi görür mü bilmem..Kolay gelsin. İyi çalışmalar.

 

[bilalakdeniz]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("e9")) Is Nothing Then Range("$g$9").Select
If Not Intersect(Target, Range("g9")) Is Nothing Then Range("e10").Select
If Not Intersect(Target, Range("e10")) Is Nothing Then Range("g10").Select
If Not Intersect(Target, Range("E11")) Is Nothing Then Range("e13").Select
If Not Intersect(Target, Range("e13")) Is Nothing Then Range("e15").Select
If Not Intersect(Target, Range("e15")) Is Nothing Then Range("g15").Select

End Sub

Arkadaşım İlgine teşekkür ederim, Önceki arkadaşların yapmış olduğu örneklere göre, hücreyi boş olarak geçebilmem için nereyi değiştireceğimi bulamadım, İyi Çalışmalar

 

[manisali50]

Dostum tekrar merhaba.
Burada değiştirmen gereken yer yok
Dediğim gibi sen boş geçmen gereken yerlere 0(SIFIR) gir. Daha sonra dosyayı açıp,boş geçmen gerekecek hücreleri seç ,Ctrl+1tuşuna bas.Kategori kısmına gir,enlt sırada bulunan "İSTEĞE UYARLANMIŞ" menüsünü seç,Sağ taraftaki TÜR kısmına ;;;; (dört adet noktalı virgül) işaretini koy,TAMAM deyip çık. Seçtiğin hücrelere ne girersen gir o hücre boş görünecektir.Kolay gelsin iyi çalışmalar

 

[bilalakdeniz]

Sayın manisali50 yardımlarınız için çok teşekkür ederim ama, yapamadım, size zahmet ekteki dosya üzerinde birkaç hücreyi örnek olarak yapabilirmisiniz, teşekkürler,

 

[peleryn]

Önce tüm sayfayı seçip hücre biçimlendirmeden hücreleri kilitli hale getirdim.
Sonra numaralandırdığınız hücrelerin kilitlerini açtım.Sonra Araçlar/Koruma sayfayı koru işlemi yaptım.(Bunu yaparken sadece kilidi açılmış hücreleri seç seçeneğini işaretledim.)Sonra Araçlar seçenekler/düzen menüsünden enter tuşuna bastığımda sağa gitmesi için gerekli düzenlemeyi yaptım.Bu düzenlemelerden sonra sayfadaki hücreler istediğiniz gibi seçiliyor.Eklediğim dosyada eğer enter tuşuna bastığınızda verdiğiniz sırayı takip etmiyorsa:

Araçlar/Seçenekler/Düzen/Seçimi Enter Tuşundan sonra taşı/Yön:Sağ yapmayı unutmayın..

 

[peleryn]

Enter tuşu ayarının dosyada makro ile yapıldığı halini de ekliyorum.

Auto Open,Before close,ve sayfanın deactivate kodlarını inceleyin.

 

[bilalakdeniz]

Sayın paleryn, çok teşekkür ederim, elinize sağlık,