• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
B

blue

Yeni Üye
Katılım
20 Haz 2023
Mesajlar
16
Aldığı beğeni
3
Excel V
Office 2016 TR
Konu Sahibi
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?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
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.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
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.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
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
Genişletmek için tıkla...
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
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
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Kontrol eder misiniz?
 
Olumlu oy 0 Negatif oyla
gggh.gif

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

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.


HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
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ı.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.


HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
blue' Alıntı:
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
Genişletmek için tıkla...
Syn Refaz 'ın kodlarında küçük bir değişiklik yaptım
Deneyin.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
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.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst