Çözüldü Mevcut kod ilgili hücreye de gitsin

[potifar534]

Aşağıdaki kod İçinde bulunulan sayfadaki A1 hücresine tıklayınca Sayfa2'ye gönderiyor kullanıcıyı.
Ben buna ek olarak Sayfa2 A1 hücresine göndersin istiyorum. Sayfa2'ye geçince A1'i de seçsin.
Bu mümkün mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then Sheets("Sayfa2").Select
    End Sub

 

[turist]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets("Sayfa2").Select
Range("A1").Select
End Sub

 

[potifar534]

Cevabınız için teşekkürler.
Sorun oluştu. Kod A1'e tıklamayınca da Sayfa2'ye gidiyor. Kod satırındaki Range("A1").Select kısmı sarı oluyor. A1'i seçmiyor.

İsteğim Sayfa1 A1'e tıklayınca Sayfa2 A1'e gitsin.

DOSYA: http://s7.dosya.tc/server10/m9pn2q/Range.rar.html

 

[Korhan Ayhan]

Hata veren satırı aşağıdaki gibi değiştirip deneyiniz.

Sheets("Sayfa2").Range("A1").Select

 

[turist]

Cevabınız için teşekkürler.
Sorun oluştu. Kod A1'e tıklamayınca da Sayfa2'ye gidiyor. Kod satırındaki Range("A1").Select kısmı sarı oluyor. A1'i seçmiyor.

İsteğim Sayfa1 A1'e tıklayınca Sayfa2 A1'e gitsin.

DOSYA: http://s7.dosya.tc/server10/m9pn2q/Range.rar.html

Aşağıdaki gibi deneyin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("Sayfa2").Select
Sheets("Sayfa2").Range("A1").Select
End If
End Sub

 

[potifar534]

Teşekkürler sayın turist işlem gerçekleşiyor.
Sayın Korhan Ayhan size de teşekkür ederim yardım isteği için. Bilgi amaçlı şunu belirtmeliyim önerdiğiniz değişiklik sorunu gidermemişti.

 

[turist]

Teşekkürler sayın turist işlem gerçekleşiyor.

Sağolun, iyi çalışmalar.

 

[Haluk]

Alternatif:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then Application.Goto Worksheets("Sayfa2").Range("A1")
End Sub

.

 

[Korhan Ayhan]

Tam kodu kendiniz uyarlayabilirsiniz diye bilerek vermemiştim. Bu sebeple önerimden sonuç alamadınız.

 

[potifar534]

Sağ olun @Haluk,
PC de deneyeceğim, şu an cepten bakıyorum.