Sayfalar arası Köprü Kurmak

[drejan62]

Merhabalar,
Sayfa1 A2 hücresinde "F0123456" diye bir değer bulunmakta
aynı değer Sayf2 A sütununda herhangi bir hücrede olabiliyor. Amaç b2 hücrisene formül girerek veya Makro ile Sayf1 A2 hücresindeki değererin Sayfa2 A sütunundaki bulunduğu ücreye köprü kurmak.
Tabi Sayfa1 A2 hücresine uyguladağımız formül yada makroyu tüm a sütnundaki değerlere için uygulamak de gerekiyor.
Yardımlarınız için teşekkürler.

 

[Orion1]

Sayfa1'in modülüne aşağıdaki kodu yapıştırınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
Set k = Sheets("Sayfa2").Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Sheets("Sayfa2").Select
    k.Select
End If
End Sub

 

[drejan62]

Üstat teşekkür ederim ama bir hareket olmadı?

 

[Orion1]

Üstat teşekkür ederim ama bir hareket olmadı?

Siz becerememişsiniz.
Ekli dosyayı inceleyiniz.

 

[drejan62]

Pardon üstad tamamdır
Teşekkür ederim hata bende
Saygılar