Seçilen Hücredeki Değerin Olduğu Başka Bir Hücreyi Seçmek

[ZuCChiNi]

Buradaki konuda, seçtiğim bir hücredeki değeri başka bir hücreye yazdırma sorunum hallolmuştu.

Şimdi ise seçtiğim hücredeki değerin olduğu başka bir hücreyi seçili hale getirmeye çalışıyorum.

Yardımlarınızı istirham ediyorum.

 

[Erdem Akdemir]

Soru'da bir hata olabilir mi?
Excel'i inceleyebilir misiniz.

 

[ZuCChiNi]

Soru:
B8 hücresine tıkladığımda bu hücredeki değer olan 4'ü
Liste sekmesindeki B sütununda bulacak ve bulunduğu hücreyi (B7) seçecek.

Excel dosyasında C7 demişim. Özür diliyorum.

 

[alicimri]

Dosyanıza bakamadım. Bir hücrede çift tıklatsanız, aynı değerdeki başka bir hücreye gider.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then Exit Sub
Cells.Find(What:=Target, After:=ActiveCell, SearchDirection:=xlNext).Activate
End Sub

 

[ZuCChiNi]

Teşekkür ederim @alicimri
Tıkladığım hücredeki değer ne ise Liste sekmesindeki B sütunundaki aynı değerdeki hücreye gitmesi grekiyor.

 

[alicimri]

Galiba aşağıdaki kod işinizi görür.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
If WorksheetFunction.CountIf(Range("B:B"), Target) = 0 Then Exit Sub
Range("B:B").Find(What:=Target, SearchDirection:=xlNext).Activate
End Sub

 

[ZuCChiNi]

@alicimri maalesef Liste sekmesinde herhangi bir hücreyi seçmiyor.

 

[alicimri]

Kusura bakmayın. "Sekme" yi gözden kaçırmışım. Kodları hücre seçeceğiniz sayfaya yapıştırın. Liste sayfasını açıyor ve B sütununda aynı değerdeki hücreyi seçiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If WorksheetFunction.CountIf(Sheets("Liste").Range("B:B"), Target) = 0 Then Exit Sub
Sheets("Liste").Activate
Sheets("Liste").Range("B:B").Find(What:=Target, SearchDirection:=xlNext).Activate
Exit Sub
Application.ScreenUpdating = True
End Sub

 

[alicimri]

yukarıdaki kodu değiştirdim.

 

[ZuCChiNi]

Allah sizden razı olsun @alicimri.
Kodlardan beynim sulanmaya başlamıştı.