Aktif olan hücreden , başka bir hücreye yönlenmek

[ozgurmath]

Merhaba Arkadaşlar;

A1:A100 aralığında çeşitli bilgiler girilmektedir.A100 hücrseine girildikten sonra yani A101 hücresinin aktif olmasından sonra B1 hücresine direkt gidebileceğim bir kod yapısı acaba nasıl olabilir ?

tEÞEKKÜRLER.

 

[xxrt]

Sayfa1'in Kod kısmına aşağıdakileri yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$a$101")) Is Nothing Then Exit Sub
Range("B1").Select
End Sub

A'dan C'ye kadar isterseniz

"$a$101:$c$101" değiştirin.

 

[ozgurmath]

Merhaba Sayın xxrt;

Vermiş olduğunuz kodlar işe yaradı.Ama şunu nasıl yapabilirim:

A101 aktif olduğunda B1 e;
B101 aktif olduğunda C1 e;
C101 aktif olduğunda D1 e;
D101 aktif olduğunda E1 e;
E101 aktif olduğunda F1 e;
.
.
.

teşekkürler , iyi çalışmalar...

 

[cako]

Bir de şöyle deneyelim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 101 Then
    Cells(1, ActiveCell.Column + 1).Select
End If
End Sub

tabi eğer son sütundaysanız kodlar hata verir. Onu da siz düzeltirsiniz sanırım.