Tab tuşu ile gezinme

[manisali50]

Arkadaşlar.Tab tuşu ile istenilen hücrler arasında gezinme ile ilgili forumda bulduğum aşağıdaki kodları boş bir sayfaya yapıştırıyorum gayet güzel çalışıyor.
Fakat elimdeki bir dosyaya uyguluyorum çalışmıyor.Yardımcı olur musunuz?

Ben sırasıyla; A-B-C-G-I-A hücreleri arasında gezinmek istiyorum..

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, "D").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "D") Then
Worksheets(ActiveSheet.Name).Cells(sat, "E").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "E") Then
Worksheets(ActiveSheet.Name).Cells(sat + 1, "A").Select
End If
End Sub

 

[İhsan Tank]

Arkadaşlar.Tab tuşu ile istenilen hücrler arasında gezinme ile ilgili forumda bulduğum aşağıdaki kodları boş bir sayfaya yapıştırıyorum gayet güzel çalışıyor.
Fakat elimdeki bir dosyaya uyguluyorum çalışmıyor.Yardımcı olur musunuz?

Ben sırasıyla; A-B-C-G-I-A hücreleri arasında gezinmek istiyorum..

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, "D").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "D") Then
Worksheets(ActiveSheet.Name).Cells(sat, "E").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "E") Then
Worksheets(ActiveSheet.Name).Cells(sat + 1, "A").Select
End If
End Sub

merhaba
kodu bununla değişiniz

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

 

[manisali50]

Hocam.. Şaşılacak bir şey.. Az önce yaptığım gibi yeni bir sayfa açıp yapıştırıyorum çalıştırıyor..Az önce sizin yaptığınız dosyaya yapıştırıyorum çalışmıyor.Çizelgenin alt kısımlarında boş yere inince çalışıyor..Çizelge içerisinde çalışmıyor..Sebebi ne olabilir ki?

 

[İhsan Tank]

Hocam.. Şaşılacak bir şey.. Az önce yaptığım gibi yeni bir sayfa açıp yapıştırıyorum çalıştırıyor..Az önce sizin yaptığınız dosyaya yapıştırıyorum çalışmıyor.Çizelgenin alt kısımlarında boş yere inince çalışıyor..Çizelge içerisinde çalışmıyor..Sebebi ne olabilir ki?

onu tam bilmiyorum.
kod normal sayfada çalışıyor.
dilersen o dosyayı ekle onun üzerinde kod'u deniyelim

 

[manisali50]

Ekledim hocam..
Dediğim gibi çizelgenin altına boş bir yere inince sorunsuz çalışıyor
Denemek için çizelgenin içinde bir alanı seçip tümünü temizle yapıyorum,yine çalışmıyor.. Şaşırdım kaldım..

 

[manisali50]

Hocam dosyam ekte..İlginizi bekliyorum

 

[İhsan Tank]

Ekledim hocam..
Dediğim gibi çizelgenin altına boş bir yere inince sorunsuz çalışıyor
Denemek için çizelgenin içinde bir alanı seçip tümünü temizle yapıyorum,yine çalışmıyor.. Şaşırdım kaldım..

syn : manisalı50
çok aceleci davranıyorsunuz.
eki inceleyin biraz değişiklik yaptım umarım işinizi görür

 

[manisali50]

Hocam teşekkür ediyorum..Anladığım kadarıyla sorun son satırdaki "TOPLAM" yazısında... Orijinaline uygun hazırlamak zorunda olduğum için toplam satırını yine altta bıraktım,sadece TOPLAM yazısını kaldırdım,sorun halloldu..Tekrar tekrar teşekkür ederim..

 

[İhsan Tank]

Hocam teşekkür ediyorum..Anladığım kadarıyla sorun son satırdaki "TOPLAM" yazısında... Orijinaline uygun hazırlamak zorunda olduğum için toplam satırını yine altta bıraktım,sadece TOPLAM yazısını kaldırdım,sorun halloldu..Tekrar tekrar teşekkür ederim..

rica ederim
kolay gelsin :mutlu: