Makro yardımı ile belli hücreye atlatmak

[Mehmet Sait]

Merhaba,


Sub menu_GirisÇıkış()
Sheets("Giris Çıkış").Select
ActiveWindow.Zoom = 70
ActiveSheet.Range("B:B").Find("?", , , , xlByRows, xlPrevious).Offset(1, 0).Select
If Target.Address = "$B:" And Target > 0 Then F: .Select
End Sub


Yukarıdaki kod ile yapmak istediğim; B hücresine yazdıktan sonra sağ ok a bastığımda F hücresine gitmesini sağlamak. Bu şekilde denedim yapamadım kodu nasıl düzenlemeliyim.

Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Konu başlığınız çok genel olmuş.

Daha net ve açıklayıcı başlıklar tercih etmelisiniz.

Sizinle aynı problemi yaşayan diğer üyelerimiz bu başlığa ulaşmak için hangi anahtar kelimeyi kullanmaları gerekiyor. Bu bağlamda düşünerek konu başlıklarınızı tercih ediniz.

 

[Mehmet Sait]

Konu başlığınız çok genel olmuş.

Daha net ve açıklayıcı başlıklar tercih etmelisiniz.

Sizinle aynı problemi yaşayan diğer üyelerimiz bu başlığa ulaşmak için hangi anahtar kelimeyi kullanmaları gerekiyor. Bu bağlamda düşünerek konu başlıklarınızı tercih ediniz.

Haklısınız Hocam. " Makro yardımı ile belli hücreye atlatmak " olarak değiştirmek istedim ancak başlık dğiştirme yetkisi yok.

 

[Korhan Ayhan]

Ben düzenledim..

 

[Korhan Ayhan]

Bu işlemi yapmak istediğiniz sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

B sütununa veri girişi yapıp hücreyi terk ettiğinizde otomatik olarak aynı satırın F sütunundaki hücreye atlamış olacaksınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Target.Offset(, 4).Select
End Sub

 

[Mehmet Sait]

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub Target.Offset(, 4).Select End Sub

Hocam, Emeğinize sağlık, teşekkür ederim.