Çözüldü Tab Tuşuna Basınca İki Sütun Atlatma

[blue]

bu konuyla ilgili daha önce bir yardım almıştım buradan ve çok işime yaradı. A sütununa veri girince tab tuşuyla C sütununa c sütununa veri girince E sütununa gitmek istiyorum. Bunun için eklediğim dosyadaki makroya ekleme yapabilir misiniz?

 

[Refaz]

If Target.Column = 3 Then 'If Target.Column = 3 And Target.Row > 1 Then
enter_Aktif
Else
enter_Pasif
End If

Yukardakini silip alttakini ekleyin sub dışına.
Ama bukez entere basınca A sütununa gitmez.

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

 

[Refaz]

Eğer e sütunundan sonra A ya gidecekse alttaki gibi yapın ve en alttaki gibi 3 yerine 5 yazın.

Sub Enter_Tus()
ActiveCell.Offset(1, -4).Select
End Sub


If Target.Column = 5 Then 'If Target.Column = 3 And Target.Row > 1 Then
enter_Aktif
Else
enter_Pasif
End If

 

[blue]

Bunu eklediğimde c sütunundan beni E sütununa atıyor. C sütununa veri girip tab tuşuna bastığımda E sütununa girmek istiyorum.

 

[blue]

Eğer e sütunundan sonra A ya gidecekse alttaki gibi yapın ve en alttaki gibi 3 yerine 5 yazın.

Sub Enter_Tus()
ActiveCell.Offset(1, -4).Select
End Sub


If Target.Column = 5 Then 'If Target.Column = 3 And Target.Row > 1 Then
enter_Aktif
Else
enter_Pasif
End If

Evet A sütununa veri girip tab tuşuna basınca C sütununa, C sütununa veri girince tab tuşuyla E sütununa gitmeyi E sütununa veri girdikten sonra enterla A sütununa dönmeyi istiyorum.

 

[aeGNoR]

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kontrol eder misiniz?

 

[Refaz]

Kod 2.satırdan itibaren çalışır öyle yaptım.İsterseniz koddaki yeri silin if ile yapılan =1 olan kısmı.

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

 

[blue]

Ekli dosyayı görüntüle 19077

Kod 2.satırdan itibaren çalışır öyle yaptım.İsterseniz koddaki yeri silin if ile yapılan =1 olan kısmı.

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

teşekkür ederim kod çok güzel çalışıyor fakat kendi dosyama entegre ettiğimde yanıt vermiyor. birde farklı bir sayfada çalışmasını istediğimde "Sayfa1" yazan yeri "Sayfa2" yaparsam diğer sayfada çalışıyor. Sayfa1 ve 2 de çalışsın ama 3 de çalışmasın dersen ne yapmalıyım. bir de sayfa ismini değiştirince çalışmıyor

 

[Caylak]

teşekkür ederim kod çok güzel çalışıyor fakat kendi dosyama entegre ettiğimde yanıt vermiyor. birde farklı bir sayfada çalışmasını istediğimde "Sayfa1" yazan yeri "Sayfa2" yaparsam diğer sayfada çalışıyor. Sayfa1 ve 2 de çalışsın ama 3 de çalışmasın dersen ne yapmalıyım. bir de sayfa ismini değiştirince çalışmıyor

Syn Refaz 'ın kodlarında küçük bir değişiklik yaptım
Deneyin.

 

[Refaz]

Merhaba.
Caylak üstadın yaptığı gibi global değişken ile yaptım.
Öncekinde şöyle hata vardı örnek sayfa1 A2 hücresi seçili olsun ve sayfa3e gidip tekrar sayfa1 e gelip bişeye tıklamadan tab tuşuna tıklayınca B2 seçiliyordu onuda düzelttim ve enter olayınıda ayarladım tekrar.
Api kullandım arşivimden çünkü tab ve enter tuşunu yakalamak gerekiyordu umarım 64bit excelde hata vermez.
Koda ayrıca collection ekledim.Denemelerimde sorunsuz çalışıyor sayfa3 e kod eklemedim örnekteki.
Hangi sayfalarda yapacaksanız kod olan bir sayfadaki tüm kodu kopyalayıp ona yapıştırın.
Başka kodlarınız varsa ayarlarsınız yoksa çakışıp hata verebilir.

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.