Veri Transferi Yaptığım Sekmeyi Açma Kod Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Aşağıdaki koddan da anlaşılacağı üzere, çift tıklama ile "Personel_Bilgileri" sayfasının "C3" hücresine, üzerine tıkladığın veriyi transfer ediyorum.
Yapmak istediğim ise, aynı zamanda veriyi transfer ettiğim sayfanın "C3" hücresine kadar gitmek istiyorum. Bunu sağlamak için mevcut kodu nasıl düzenlemeliyim.

Saygılarımla.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("A4:A1000")) Is Nothing Then
        [Personel_Bilgileri!C3] = Target
        End If
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları kullanın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("A4:A1000")) Is Nothing Then
            [Personel_Bilgileri!C3] = Target
            Worksheets("Personel_Bilgileri").Select
            Worksheets("Personel_Bilgileri").Range("C3").Select
        End If
End Sub

 

[Believing]

Sayın Dalgalikur,

Yardımınız için size çok teşekkür ederim.
ALLAH sizden razı olsun.
Cumanız hayırlara vesile olur inşallah.

Saygılarımla.

 

[Muzaffer Ali]

Ecmain.
Sizin de cumanız hayırlı olsun.