Bir hücreye tıklayınca diğerine gitmek

[hakki83]

İyi günler

C2'ye tıkladığımda B6'ya gitsin,
C6'ya tıkladığımda B2'ye gitsin,
C4'e tıkladığımda B7'ye gitsin,
C7'ye tıkladığımda B4'e gitsin nasıl yazılır?



Aşağıdaki gibi denedim olmadı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("C2").Select Then Range("B6").Select
If Range("C6").Select Then Range("B2").Select
If Range("C4").Select Then Range("B7").Select
If Range("C7").Select Then Range("B4").Select

End Sub

 

[Greenblacksea53]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        Range("B6").Select
    ElseIf Target.Address = "$C$6" Then
        Range("B2").Select
    ElseIf Target.Address = "$C$4" Then
        Range("B7").Select
    ElseIf Target.Address = "$C$7" Then
        Range("B4").Select
    End If
End Sub

Kullanımı bu şekilde olması gerekir.

 

[hakki83]

Çok teşekkürler, emeğinize sağlık.

 

[Korhan Ayhan]

Altenatif;

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range(Replace(Replace(Replace(Replace(Target.Address(0, 0), "C2", "B6"), "C4", "B7"), "C6", "B2"), "C7", "B4")).Select
End Sub

 

[hakki83]

Korhan hocam çok teşekkürler, emeğinize sağlık.

 

[hakki83]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        Range("B6").Select
    ElseIf Target.Address = "$C$6" Then
        Range("B2").Select
    ElseIf Target.Address = "$C$4" Then
        Range("B7").Select
    ElseIf Target.Address = "$C$7" Then
        Range("B4").Select
    End If
End Sub

Kullanımı bu şekilde olması gerekir.

Merhaba

Sayfa1’deki C2’ye tıklayınca, Sayfa2’deki B6’ya nasıl gideriz?

If Target.Address = Sayfa1.Range("$C$2") Then
Sayfa2.Range("B6").Select

olarak denedim olmadı.

 

[Greenblacksea53]

Merhaba

Sayfa1’deki C2’ye tıklayınca, Sayfa2’deki B6’ya nasıl gideriz?

If Target.Address = Sayfa1.Range("$C$2") Then
Sayfa2.Range("B6").Select

olarak denedim olmadı.

 If Target.Address = "$C$2" Then
        Sheets("Sayfa2").Select
        Sheets("Sayfa2").Range("B6").Select
    End If

İşinizi görecektir..