Bİr HÜcreden DİĞerİne Gİtmek

[excel]

Merhaba,
ekli dosyada da açıkladığım gibi , bir hüçreye tıkladığımda diğer bir grup içinde bulunan eşdeğerine gitmek istiyorum.

Tşk.

 

[Recep İpek]

Bunun çözümü bildiğim kadarıyla sadece makro ile yapılabilinir.

Ekteki dosyanızı inceleyebilirsiniz.

 

[xxcell]

bende şöyle bişey önerecektim.

Madem yazdık gönderelim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo cikis

If ActiveCell.Column = 4 And ActiveCell.Row >= 3 And ActiveCell.Row <= 11 Then
Cells(Application.WorksheetFunction.Match(ActiveCell.Text, Range("A:A"), 0), "a").Select
End If

cikis:
Exit Sub

End Sub

 

[Orion1]

Merhabalar.
Sayın hocalarım gerçi cevap vermişler ama bende aşağıdaki gibi bir kod hazırlamıştım.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo hata
If Intersect(Target, [d2:d11]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Set c = Range("A1:A65536").Find(Target.Value, LookIn:=xlValues)
If c Is Nothing Then Exit Sub
Range(c.Address).Select
hata:
End Sub