Fonksiyonlar ile Köprü oluşturmak

[Ergün Güler]

Selam Arkadaşlar,
Fonksiyonlar ile Köprü oluşturmak istiyorum. Ekte örnek dosya var ve içinde de açıklama var.
Mesela;
Sayfa2'deki A ve B sütuna eşit olan Sayfa1'deki hücre aralıklarını tıklayarak görmek istiyorum. Nasıl yapabilirim?
İyi çalışmalar.

 

[Ergün Güler]

günaydın arkadaşlar,

 

[muygun]

Merhaba;
İşinizi görürmü bilmem ama biraz makro biraz fonksiyonla oluşturulmuş eki inceleyin.
İyi çalışmalar.

 

[Ergün Güler]

Sayın MUYGUN,
emeğinize sağlık.Çok güzel olmuş. Çok teşekkür ederim. Benim istediğimden çok daha fazla ihtiyaçları karşılıyor. istediğim bu değildi. Gönderdiğiniz çözümü başka çalışmalarımda istifade edeceğim.
Farklı çözümler yapılabilir mi?
örneğin ben sayfa 2'deki
H2 hücresine =KÖPRÜ("[FERAG-BAKIM.xls]'Periyodik Bakımlar'!a2:d3";"Bakımları Gör")
H3 hücresine =KÖPRÜ("[FERAG-BAKIM.xls]'Periyodik Bakımlar'!a4:d8";"Bakımları Gör")
H4 hücresine =KÖPRÜ("[FERAG-BAKIM.xls]'Periyodik Bakımlar'!a9:d12";"Bakımları Gör")
H5 hücresine =KÖPRÜ("[FERAG-BAKIM.xls]'Periyodik Bakımlar'!a13:d15";"Bakımları Gör")

gibi yaptım Ancak,size gönderdiğim Sayfa2'deki A ve B sütunundaki değerler değiştiğinden a2:d3, a4:d8 gibi değerler değişiyor.
DOLAYLI içinde kullanmayı beceremedim.
Siz ve Diğer arkadaşlar yardımcı olursa sevinirim.
Kolay gelsin.

 

[Ömer]

Merhaba,

Çalışma sayfa adını formülde kullacağım için kısa olması açısında ornek olarak değiştirdim. Siz formülü düzenlerken bu kısmı kendinize göre uyarlarsınız..

Sayfa1 F2 hücresine yazarak alt satırlara kopyalayın.

=A2&B2

Bu işlemi yapmamdaki neden köprü formülünü kısaltmak içindir. Dilerseniz bu yardımcı sütunu kullanmadan da yapabilirim.

Daha sonra Sayfa2 H2 hücresine aşağıdaki formülü yazarak alt satırlara kopyalayınız.

=KÖPRÜ("[[COLOR=red]ornek[/COLOR].xls]'Sayfa1'!"&"A"&KAÇINCI(A2&B2;Sayfa1!F:F;0)&":D"&KAÇINCI(
A2&B2;Sayfa1!F:F;0)+EĞERSAY(Sayfa1!F:F;A2&B2)-1;"Bakımları Gör")

.

 

[Ergün Güler]

Sayın ÖMER,
Çok teşekkür ederim tam istediğim gibi. Ellerinize sağlık. Sayın MUYGUN'a da çok teşekkürler. Çözümü çok başarılı idi.
Hepinize iyi çalışmalar.

 

[halit3]

alternatif olarak farklı bir uygulama ekliyorum

 

[Ergün Güler]

Sayın Halit3,
Çok teşekkür ederim. İyi bir alternatif. Yalnız eklediğiniz düğmenin yerini değiştiremiyorum. Bir de bazen düğmeye tıkladığımda dosyam takılı kalıyor. Acaba Benden mi Kaynaklanıyor?
Kolay gelsin.

 

[halit3]

Sayın Halit3,
Çok teşekkür ederim. İyi bir alternatif. Yalnız eklediğiniz düğmenin yerini değiştiremiyorum. Bir de bazen düğmeye tıkladığımda dosyam takılı kalıyor. Acaba Benden mi Kaynaklanıyor?
Kolay gelsin.

kodu değiştirdim.

Sub adresleribul()
Worksheets("Sayfa2").Range("H2:H29").Hyperlinks.Delete
For r = 2 To Worksheets("Sayfa2").[a65536].End(3).Row
aranan1 = Sheets("Sayfa2").Cells(r, 1).Value & Sheets("Sayfa2").Cells(r, 2).Value
For i = 2 To Worksheets("Sayfa1").[a65536].End(3).Row
aranan2 = Sheets("Sayfa1").Cells(i, 1).Value & Sheets("Sayfa1").Cells(i, 2).Value
If aranan1 = aranan2 Then
If deg1 <= 0 Then
deg1 = i
End If
deg2 = i
End If
Next i
Sheets("Sayfa2").Cells(i, 8).Value = "Bakımları Gör"
yer = Worksheets("Sayfa2").Cells(r, 8).Address
Worksheets("Sayfa2").Range(yer).Hyperlinks.Add Anchor:=Worksheets("Sayfa2").Range(yer), Address:="", SubAddress:="Sayfa1!A" & deg1 & ":D" & deg2
deg1 = 0
Next r
End Sub